Changeset 7825 for branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

Timestamp:

2017-03-23T14:24:56+01:00 (7 years ago)

Author:

timgraham

Message:

Extra temporary change in domzgr for my GYRE_AGRIF config
Commented out Jerome's old hack for different jpk in nemogcm.F90

File:

• branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (2 diffs)

branches/2015/dev_r5803_UKMO_AGRIF_Vert_interp/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -358 +358 @@
          ! Save maximum number of levels in jpkdta, then define all vertical grids with this number.
          ! Suppress once vertical online interpolation is ok
-         IF(.NOT.Agrif_Root())   jpkdta = Agrif_Parent( jpkdta )
+!         IF(.NOT.Agrif_Root())   jpkdta = Agrif_Parent( jpkdta )
 #endif
          jpim1 = jpi-1                                            ! inner domain indices
@@ -504 +504 @@
                             CALL dia_tmb_init  ! TMB outputs
                             CALL dia_25h_init  ! 25h mean  outputs
-
       !
    END SUBROUTINE nemo_init