- Timestamp:
- 2011-11-15T22:45:47+01:00 (13 years ago)
- File:
-
- 1 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)
Note: See TracChangeset
for help on using the changeset viewer.