Changeset 11739 for NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/tests/VORTEX/MY_SRC/usrdef_nam.F90

Timestamp:

2019-10-21T10:49:30+02:00 (4 years ago)

Author:

jchanut

Message:

#2222, make possible vertical coordinate change with VORTEX (child vertical grid spacing chosen in namelist) + fix to compile VORTEX without key_AGRIF

File:

• NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/tests/VORTEX/MY_SRC/usrdef_nam.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/tests/VORTEX/MY_SRC/usrdef_nam.F90

@@ -72 +72 @@
          rn_dx = Agrif_Parent(rn_dx)/Agrif_Rhox()
          rn_dy = Agrif_Parent(rn_dy)/Agrif_Rhoy()
+#if ! defined key_vertical
          rn_dz = Agrif_Parent(rn_dz)
+#endif
          rn_ppgphi0 = Agrif_Parent(rn_ppgphi0)
       ENDIF
@@ -82 +84 @@
       kk_cfg = nINT( rn_dx )
       !
-      IF( Agrif_Root() ) THEN       ! Global Domain size:  VORTEX global domain is  1800 km x 1800 Km x 5000 m
-         kpi = NINT( 1800.e3  / rn_dx ) + 3  
-         kpj = NINT( 1800.e3  / rn_dy ) + 3 
-      ELSE
+      kpi = NINT( 1800.e3  / rn_dx ) + 3
+      kpj = NINT( 1800.e3  / rn_dy ) + 3
+
+#if defined key_agrif 
+      IF( .NOT.Agrif_Root() ) THEN       ! Global Domain size:  VORTEX global domain is  1800 km x 1800 Km x 5000 m
          kpi  = nbcellsx + 2 + 2*nbghostcells
          kpj  = nbcellsy + 2 + 2*nbghostcells
       ENDIF
+#endif
+
       kpk = NINT( 5000._wp / rn_dz ) + 1
       !