Changeset 13337 for NEMO/branches/2020/dev_r13312_AGRIF-03-04_jchanut_vinterp_tstep/src/OCE/DOM/istate.F90

Timestamp:

2020-07-24T16:01:24+02:00 (4 years ago)

Author:

jchanut

Message:

#2222, start suppressing key_vertical (add ln_vremap namelist flag)

File:

• NEMO/branches/2020/dev_r13312_AGRIF-03-04_jchanut_vinterp_tstep/src/OCE/DOM/istate.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r13312_AGRIF-03-04_jchanut_vinterp_tstep/src/OCE/DOM/istate.F90

@@ -88 +88 @@
 #endif
 
+#if defined key_agrif
       IF ( (.NOT.Agrif_root()).AND.ln_init_chfrpar ) THEN
-#if defined key_agrif
          numror = 0                           ! define numror = 0 -> no restart file to read
          ln_1st_euler = .true.                ! Set time-step indicator at nit000 (euler forward)
@@ -169 +169 @@
          ! 
          ENDIF 
-
+#if defined key_agrif
       ENDIF
+#endif
       ! 
       ! Initialize "now" and "before" barotropic velocities: