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

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA/zpshde.F90

@@ -95 +95 @@
 !     REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(in   )           ::  pta         ! 4D tracers fields
 !FTRANS pta :I :I :z :
-      REAL(wp), INTENT(in   )                      ::  pta(jpi,jpj,jpk,kjpt)         ! 4D tracers fields
+      REAL(wp), INTENT(in   )                      ::  pta(jpi,jpj,jpkorig,kjpt)         ! 4D tracers fields
 
       REAL(wp), DIMENSION(jpi,jpj,    kjpt), INTENT(  out)           ::  pgtu, pgtv  ! hor. grad. of ptra at u- & v-pts 
@@ -101 +101 @@
 !     REAL(wp), DIMENSION(jpi,jpj,jpk     ), INTENT(in   ), OPTIONAL ::  prd         ! 3D density anomaly fields
 !FTRANS prd :I :I :z
-      REAL(wp), INTENT(in   ), OPTIONAL            ::  prd(jpi,jpj,jpk)              ! 3D density anomaly fields
+      REAL(wp), INTENT(in   ), OPTIONAL            ::  prd(jpi,jpj,jpkorig)              ! 3D density anomaly fields
 
       REAL(wp), DIMENSION(jpi,jpj         ), INTENT(  out), OPTIONAL ::  pgru, pgrv  ! hor. grad. of prd at u- & v-pts