Changeset 9403 for branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/CANAL/MY_SRC/usrdef_zgr.F90

Timestamp:

2018-03-15T15:57:42+01:00 (6 years ago)

Author:

smasson

Message:

dev_merge_2017: update test_cases CANAL

File:

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

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

@@ -3 +3 @@
    !!                       ***  MODULE  usrdef_zgr  ***
    !!
-   !!                      ===  VORTEX configuration  ===
+   !!                      ===  CANAL configuration  ===
    !!
    !! User defined : vertical coordinate system of a user configuration
@@ -67 +67 @@
       !
       IF(lwp) WRITE(numout,*)
-      IF(lwp) WRITE(numout,*) 'usr_def_zgr : VORTEX configuration (z-coordinate closed flat box ocean)'
+      IF(lwp) WRITE(numout,*) 'usr_def_zgr : CANAL configuration (z-coordinate closed flat box ocean)'
       IF(lwp) WRITE(numout,*) '~~~~~~~~~~~'
       !
@@ -73 +73 @@
       ! type of vertical coordinate
       ! ---------------------------
-      ld_zco    = .TRUE.         ! VORTEX case:  z-coordinate without ocean cavities
+      ld_zco    = .TRUE.         ! CANAL case:  z-coordinate without ocean cavities
       ld_zps    = .FALSE.
       ld_sco    = .FALSE.
@@ -137 +137 @@
          WRITE(numout,*) '    zgr_z   : Reference vertical z-coordinates '
          WRITE(numout,*) '    ~~~~~~~'
-         WRITE(numout,*) '       VORTEX case : uniform vertical grid :'
+         WRITE(numout,*) '       CANAL case : uniform vertical grid :'
          WRITE(numout,*) '                     with thickness = ', zd
       ENDIF
@@ -175 +175 @@
       !! ** Purpose :   set the masked top and bottom ocean t-levels
       !!
-      !! ** Method  :   VORTEX case = closed flat box ocean without ocean cavities
+      !! ** Method  :   CANAL case = closed flat box ocean without ocean cavities
       !!                   k_top = 1     except along north, south, east and west boundaries
       !!                   k_bot = jpk-1 except along north, south, east and west boundaries
@@ -191 +191 @@
       IF(lwp) WRITE(numout,*) '    zgr_top_bot : defines the top and bottom wet ocean levels.'
       IF(lwp) WRITE(numout,*) '    ~~~~~~~~~~~'
-      IF(lwp) WRITE(numout,*) '       VORTEX case : closed flat box ocean without ocean cavities'
+      IF(lwp) WRITE(numout,*) '       CANAL case : closed flat box ocean without ocean cavities'
       !
       SELECT CASE(nn_botcase)