Changeset 4409 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/lbclnk.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/lbclnk.F90 (modified) (2 diffs)

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

@@ -96 +96 @@
 ! DCSE_NEMO: work around a deficiency in ftrans
 !     REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) ::   pt3d1   , pt3d2      ! 3D array on which the lbc is applied
-      REAL(wp), INTENT(inout)   ::   pt3d1(jpi,jpj,jpk)   , pt3d2(jpi,jpj,jpk)
+      REAL(wp), INTENT(inout)   ::   pt3d1(jpi,jpj,jpkorig), pt3d2(jpi,jpj,jpkorig)
       REAL(wp), INTENT(in   )   ::   psgn                 ! control of the sign 
       !!----------------------------------------------------------------------
@@ -123 +123 @@
 !! DCSE_NEMO: work around a deficiency in ftrans
 !     REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout)           ::   pt3d      ! 3D array on which the lbc is applied
-      REAL(wp), INTENT(inout)                                   ::   pt3d(jpi,jpj,jpk)
+      REAL(wp), INTENT(inout)                                   ::   pt3d(jpi,jpj,jpkorig)
       REAL(wp)                        , INTENT(in   )           ::   psgn      ! control of the sign 
       CHARACTER(len=3)                , INTENT(in   ), OPTIONAL ::   cd_mpp    ! MPP only (here do nothing)