Changeset 13752 for NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/tests/SWG/MY_SRC/usrdef_hgr.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_hgr.F90 (modified) (4 diffs)

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

@@ -3 +3 @@
    !!                     ***  MODULE usrdef_hgr   ***
    !!
-   !!                     ===  AM98 configuration  ===
+   !!                     ===  SWG configuration  ===
    !!
    !! User defined :   mesh and Coriolis parameter of a user configuration
@@ -47 +47 @@
       !! ** Method  :   set all intent(out) argument to a proper value
       !!
-      !!                Here AM98 configuration :
+      !!                Here SWG configuration :
       !!          Rectangular mid-latitude domain 
       !!          - with axes rotated by 45 degrees
@@ -74 +74 @@
       !!-------------------------------------------------------------------------------
       !
-      !     !==  beta-plane with regular grid-spacing and rotated domain ==!  (AM98 configuration)
+      !     !==  beta-plane with regular grid-spacing and rotated domain ==!  (SWG configuration)
       !
       IF(lwp) WRITE(numout,*)
-      IF(lwp) WRITE(numout,*) 'usr_def_hgr : AM98 configuration (beta-plane with rotated regular grid-spacing)'
+      IF(lwp) WRITE(numout,*) 'usr_def_hgr : SWG configuration (beta-plane with rotated regular grid-spacing)'
       IF(lwp) WRITE(numout,*) '~~~~~~~~~~~'
       !
@@ -83 +83 @@
       !                       !==  grid point position  ==!
       !
-      ze1 =  rn_dx / REAL(nn_AM98, wp)                   ! [m] gridspacing used
+      ze1 =  rn_dx / REAL(nn_SWG, wp)                    ! [m] gridspacing used
       zgl =  rn_domsiz + 2._wp * REAL(nn_gc, wp) * ze1   ! [m] length of the square with ghostcells
       ! fit the best square around the square + ghost cells