- Timestamp:
- 2017-12-19T16:44:50+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/usrdef_zgr.F90
r9125 r9135 15 15 !!--------------------------------------------------------------------- 16 16 USE oce ! ocean variables 17 USE dom_oce , ONLY: ln_zco, ln_zps, ln_sco ! ocean space and time domain18 17 USE dom_oce , ONLY: ht_0, mi0, mi1, nimpp, njmpp, & 19 18 & mj0, mj1, glamt, gphit ! ocean space and time domain … … 74 73 ! 75 74 ! 76 ! type of vertical coordinate 75 ! type of vertical coordinate ==>>> here WAD_TEST_CASES : s-coordinate always 77 76 ! --------------------------- 78 ! set in usrdef_nam.F90 by reading the namusr_def namelist only ln_zco 79 ln_zco = .FALSE. ! z-partial-step coordinate 80 ln_zps = .FALSE. ! z-partial-step coordinate 81 ln_sco = .TRUE. ! s-coordinate 77 ld_zco = .FALSE. ! z-partial-step coordinate 78 ld_zps = .FALSE. ! z-partial-step coordinate 79 ld_sco = .TRUE. ! s-coordinate 82 80 ld_isfcav = .FALSE. ! ISF Ice Shelves Flag 83 81 ! … … 279 277 ! 280 278 ! 281 IF ( l n_sco ) THEN !== s-coordinate ==! (terrain-following coordinate)279 IF ( ld_sco ) THEN !== s-coordinate ==! (terrain-following coordinate) 282 280 ! 283 281 ht_0 = zht
Note: See TracChangeset
for help on using the changeset viewer.