Changeset 13752 for NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/SWG/MY_SRC/usrdef_zgr.F90

Timestamp:

2020-11-09T17:03:22+01:00 (3 years ago)

Author:

techene

Message:

#2485 change test case name AM98 => SWG

Location:

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/SWG

Files:

• . (copied) (copied from NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/AM98)
• MY_SRC/usrdef_zgr.F90 (modified) (5 diffs)

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/SWG/MY_SRC/usrdef_zgr.F90

@@ -3 +3 @@
    !!                       ***  MODULE  usrdef_zgr  ***
    !!
-   !!                       ===  AM98 configuration  ===
+   !!                       ===  SWG configuration  ===
    !!
    !! User defined : vertical coordinate system of a user configuration
@@ -65 +65 @@
       !
       IF(lwp) WRITE(numout,*)
-      IF(lwp) WRITE(numout,*) 'usr_def_zgr : AM98 configuration (z-coordinate closed flat box ocean without cavities)'
+      IF(lwp) WRITE(numout,*) 'usr_def_zgr : SWG configuration (z-coordinate closed flat box ocean without cavities)'
       IF(lwp) WRITE(numout,*) '~~~~~~~~~~~'
       !
@@ -71 +71 @@
       ! type of vertical coordinate
       ! ---------------------------
-      ld_zco    = .FALSE.         ! AM98 case:  z-coordinate without ocean cavities
+      ld_zco    = .FALSE.         ! SWG case:  z-coordinate without ocean cavities
       ld_zps    = .FALSE.
       ld_sco    = .TRUE.
@@ -168 +168 @@
       !! ** Purpose :   set the masked top and bottom ocean t-levels
       !!
-      !! ** Method  :   AM98 case = closed flat box ocean without ocean cavities
+      !! ** Method  :   SWG 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
@@ -186 +186 @@
       IF(lwp) WRITE(numout,*) '    zgr_top_bot : defines the top and bottom wet ocean levels.'
       IF(lwp) WRITE(numout,*) '    ~~~~~~~~~~~'
-      IF(lwp) WRITE(numout,*) '       AM98 case : closed flat box ocean without ocean cavities'
+      IF(lwp) WRITE(numout,*) '       SWG case : closed flat box ocean without ocean cavities'
       !
       z2d(:,:) = REAL( jpkm1 , wp )          ! flat bottom