Changeset 4409 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/exchtestmod.F90

Timestamp:

2014-02-04T13:12:20+01:00 (10 years ago)

Author:

trackstand2

Message:

Changes to allow jpk to be modified to deepest level within a subdomain. jpkorig holds original value.

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/exchtestmod.F90 (modified) (3 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/exchtestmod.F90

@@ -67 +67 @@
 
   SUBROUTINE mpp_test_comms(depth, lmaxdepth)
-    USE par_oce,      ONLY: jpi, jpj, jpk, jpreci
+    USE par_oce,      ONLY: jpi, jpj, jpk, jpkorig, jpreci
     USE par_kind,     ONLY: wp
     USE mapcomm_mod,  ONLY: Iminus, Iplus, Jminus, Jplus, NONE
@@ -97 +97 @@
     test_failed = .FALSE.
 
-    ALLOCATE(r3d(jpi,jpj,jpk), r3d_2(jpi,jpj,jpk), r3d_3(jpi,jpj,jpk), &
+    ALLOCATE(r3d(jpi,jpj,jpkorig), r3d_2(jpi,jpj,jpkorig), r3d_3(jpi,jpj,jpkorig), &
              r2d(jpi,jpj), r2d_2(jpi,jpj), Stat=ierr)
 
@@ -242 +242 @@
     DEALLOCATE(r3d, r3d_2, r3d_3, r2d)
     ! and allocate that for integer-array tests
-    ALLOCATE(i3d(jpi,jpj,jpk), i3d_2(jpi,jpj,jpk), &
+    ALLOCATE(i3d(jpi,jpj,jpkorig), i3d_2(jpi,jpj,jpkorig), &
              i2d(jpi,jpj), i2d_2(jpi,jpj), Stat=ierr)