Changeset 3119 for branches/2011/dev_NEMO_MERGE_2011
- Timestamp:
- 2011-11-15T22:45:47+01:00 (13 years ago)
- Location:
- branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC/dommsk.F90
r2977 r3119 19 19 20 20 PUBLIC dom_msk ! routine called by inidom.F90 21 22 REAL(wp) :: rn_shlat = 2. ! type of lateral boundary condition on velocity 23 LOGICAL, PUBLIC :: ln_vorlat = .false. ! consistency of vorticity boundary condition 21 24 22 25 !! * Substitutions … … 48 51 INTEGER :: ji, jk ! dummy loop indices 49 52 INTEGER :: iif, iil, ijf, ijl ! local integers 53 ! 50 54 !!--------------------------------------------------------------------- 51 !55 52 56 IF( iwrk_in_use(2, 1) ) THEN 53 57 CALL ctl_stop('dom_msk: requested workspace arrays unavailable') ; RETURN 54 END 58 ENDIF 55 59 ! 56 60 ! Interior domain mask (used for global sum) -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
r2977 r3119 260 260 ELSE ! Compute bbl coefficients if needed 261 261 tsb(:,:,:,:) = tsn(:,:,:,:) 262 CALL bbl( kt, 'TRC')262 CALL bbl( kt, nit000, 'TRC') 263 263 END IF 264 264 #endif
Note: See TracChangeset
for help on using the changeset viewer.