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

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

@@ -83 +83 @@
       CHARACTER(len=3)                     , INTENT(in   ) ::   cdtype          ! =TRA or TRC (tracer indicator)
       INTEGER                              , INTENT(in   ) ::   kjpt            ! number of tracers
-      REAL(wp), DIMENSION(        jpk     ), INTENT(in   ) ::   p2dt            ! vertical profile of tracer time-step
+      REAL(wp), DIMENSION(     jpkorig    ), INTENT(in   ) ::   p2dt            ! vertical profile of tracer time-step
 
       !! DCSE_NEMO: This style defeats ftrans
@@ -92 +92 @@
 !FTRANS pun pvn pwn :I :I :z
 !FTRANS ptb ptn pta :I :I :z :
-      REAL(wp), INTENT(in   ) ::   pun(jpi,jpj,jpk)        ! ocean velocity component (u)
-      REAL(wp), INTENT(in   ) ::   pvn(jpi,jpj,jpk)        ! ocean velocity component (v)
-      REAL(wp), INTENT(in   ) ::   pwn(jpi,jpj,jpk)        ! ocean velocity component (w)
-      REAL(wp), INTENT(in   ) ::   ptb(jpi,jpj,jpk,kjpt)   ! tracer fields (before)
-      REAL(wp), INTENT(in   ) ::   ptn(jpi,jpj,jpk,kjpt)   ! tracer fields (now)
-      REAL(wp), INTENT(inout) ::   pta(jpi,jpj,jpk,kjpt)   ! tracer trend 
+      REAL(wp), INTENT(in   ) ::   pun(jpi,jpj,jpkorig)        ! ocean velocity component (u)
+      REAL(wp), INTENT(in   ) ::   pvn(jpi,jpj,jpkorig)        ! ocean velocity component (v)
+      REAL(wp), INTENT(in   ) ::   pwn(jpi,jpj,jpkorig)        ! ocean velocity component (w)
+      REAL(wp), INTENT(in   ) ::   ptb(jpi,jpj,jpkorig,kjpt)   ! tracer fields (before)
+      REAL(wp), INTENT(in   ) ::   ptn(jpi,jpj,jpkorig,kjpt)   ! tracer fields (now)
+      REAL(wp), INTENT(inout) ::   pta(jpi,jpj,jpkorig,kjpt)   ! tracer trend 
 
       !
@@ -367 +367 @@
 
       !
-      REAL(wp), DIMENSION(jpk)         , INTENT(in   ) ::   p2dt            ! vertical profile of tracer time-step
+      REAL(wp), DIMENSION(jpkorig)      , INTENT(in   ) ::   p2dt            ! vertical profile of tracer time-step
 
       !! DCSE_NEMO: This style defeats ftrans
@@ -375 +375 @@
 !FTRANS pbef paft :I :I :z
 !FTRANS paa pbb pcc :I :I :z
-      REAL(wp), INTENT(in   ) ::   pbef(jpi,jpj,jpk), paft(jpi,jpj,jpk)     ! before & after field
-      REAL(wp), INTENT(inout) ::   paa(jpi,jpj,jpk)                         ! monotonic fluxes in the 1st direction
-      REAL(wp), INTENT(inout) ::   pbb(jpi,jpj,jpk)                         ! monotonic fluxes in the 2nd direction
-      REAL(wp), INTENT(inout) ::   pcc(jpi,jpj,jpk)                         ! monotonic fluxes in the 3rd direction
+      REAL(wp), INTENT(in   ) ::   pbef(jpi,jpj,jpkorig), paft(jpi,jpj,jpkorig)     ! before & after field
+      REAL(wp), INTENT(inout) ::   paa(jpi,jpj,jpkorig)                         ! monotonic fluxes in the 1st direction
+      REAL(wp), INTENT(inout) ::   pbb(jpi,jpj,jpkorig)                         ! monotonic fluxes in the 2nd direction
+      REAL(wp), INTENT(inout) ::   pcc(jpi,jpj,jpkorig)                         ! monotonic fluxes in the 3rd direction
       !
       INTEGER ::   ji, jj, jk   ! dummy loop indices