- Timestamp:
- 2017-12-13T19:01:03+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
r7616 r9024 16 16 USE oce ! ocean variables 17 17 USE dom_oce , ONLY: ln_zco, ln_zps, ln_sco ! ocean space and time domain 18 USE dom_oce , ONLY: mi0, mi1, nimpp, njmpp, &19 & mj0, mj1, glamt, gphit ! ocean space and time domain18 USE dom_oce , ONLY: ht_0, mi0, mi1, nimpp, njmpp, & 19 & mj0, mj1, glamt, gphit ! ocean space and time domain 20 20 USE usrdef_nam ! User defined : namelist variables 21 USE wet_dry , ONLY: rn_wdmin1, rn_wdmin2, rn_wdld , ht_wd21 USE wet_dry , ONLY: rn_wdmin1, rn_wdmin2, rn_wdld ! Wetting and drying 22 22 ! 23 23 USE in_out_manager ! I/O manager … … 232 232 END SELECT 233 233 END IF 234 !235 ! 234 235 236 236 ! at u-point: averaging zht 237 237 DO ji = 1, jpim1 … … 283 283 IF ( ln_sco ) THEN !== s-coordinate ==! (terrain-following coordinate) 284 284 ! 285 ht_ wd= zht285 ht_0 = zht 286 286 k_bot(:,:) = jpkm1 * k_top(:,:) !* bottom ocean = jpk-1 (here use k_top as a land mask) 287 287 DO jj = 1, jpj
Note: See TracChangeset
for help on using the changeset viewer.