New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4409 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_exp.F90 – NEMO

Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_exp.F90

    r3211 r4409  
    9191      INTEGER                              , INTENT(in   ) ::   kjpt        ! number of tracers 
    9292      INTEGER                              , INTENT(in   ) ::   kn_zdfexp   ! number of sub-time step 
    93       REAL(wp), DIMENSION(        jpk     ), INTENT(in   ) ::   p2dt        ! vertical profile of tracer time-step 
     93      REAL(wp), DIMENSION(       jpkorig  ), INTENT(in   ) ::   p2dt        ! vertical profile of tracer time-step 
    9494 
    9595      !! DCSE_NEMO: This style defeats ftrans 
     
    9898 
    9999!FTRANS ptb pta :I :I :z : 
    100       REAL(wp), INTENT(in   ) ::   ptb(jpi,jpj,jpk,kjpt)         ! before and now tracer fields 
    101       REAL(wp), INTENT(inout) ::   pta(jpi,jpj,jpk,kjpt)         ! tracer trend  
     100      REAL(wp), INTENT(in   ) ::   ptb(jpi,jpj,jpkorig,kjpt)         ! before and now tracer fields 
     101      REAL(wp), INTENT(inout) ::   pta(jpi,jpj,jpkorig,kjpt)         ! tracer trend  
    102102      ! 
    103103      INTEGER  ::  ji, jj, jk, jn, jl        ! dummy loop indices 
Note: See TracChangeset for help on using the changeset viewer.