Changeset 9135 for branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/usrdef_zgr.F90

Timestamp:

2017-12-19T16:44:50+01:00 (6 years ago)

Author:

flavoni

Message:

fix input/ouput flag of coordinates in usrdef routines

File:

• branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/usrdef_zgr.F90 (modified) (3 diffs)

branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/usrdef_zgr.F90

@@ -15 +15 @@
    !!---------------------------------------------------------------------
    USE oce            ! ocean variables
-   USE dom_oce ,  ONLY: ln_zco, ln_zps, ln_sco   ! ocean space and time domain
    USE dom_oce ,  ONLY: ht_0, mi0, mi1, nimpp, njmpp,  &
                       & mj0, mj1, glamt, gphit         ! ocean space and time domain
@@ -74 +73 @@
       !
       !
-      ! type of vertical coordinate
+      ! type of vertical coordinate ==>>>   here WAD_TEST_CASES : s-coordinate always
       ! ---------------------------
-      ! set in usrdef_nam.F90 by reading the namusr_def namelist only ln_zco
-      ln_zco    = .FALSE.      ! z-partial-step coordinate
-      ln_zps    = .FALSE.      ! z-partial-step coordinate
-      ln_sco    = .TRUE.       ! s-coordinate
+      ld_zco    = .FALSE.      ! z-partial-step coordinate
+      ld_zps    = .FALSE.      ! z-partial-step coordinate
+      ld_sco    = .TRUE.       ! s-coordinate
       ld_isfcav = .FALSE.      ! ISF Ice Shelves Flag
       !
@@ -279 +277 @@
       !                              
       !
-      IF ( ln_sco ) THEN      !==  s-coordinate  ==!   (terrain-following coordinate)
+      IF ( ld_sco ) THEN      !==  s-coordinate  ==!   (terrain-following coordinate)
          !
          ht_0 = zht