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/DIA/diaptr.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/DIA/diaptr.F90

    r3849 r4409  
    146146!! DCSE_NEMO: work around deficiency in ftrans 
    147147!     REAL(wp) , INTENT(in), DIMENSION(jpi,jpj,jpk) ::   pva   ! mask flux array at V-point 
    148       REAL(wp) , INTENT(in)    ::   pva(jpi,jpj,jpk)           ! mask flux array at V-point 
     148      REAL(wp) , INTENT(in)    ::   pva(jpi,jpj,jpkorig)           ! mask flux array at V-point 
    149149      !! 
    150150      INTEGER                  ::   ji, jj, jk   ! dummy loop arguments 
    … …  
    237237!! DCSE_NEMO: work around a deficiency in ftrans 
    238238!     REAL(wp) , INTENT(in), DIMENSION(jpi,jpj,jpk)           ::   pva    ! mask flux array at V-point 
    239       REAL(wp) , INTENT(in)             ::   pva(jpi,jpj,jpk)             ! mask flux array at V-point 
     239      REAL(wp) , INTENT(in)             ::   pva(jpi,jpj,jpkorig)             ! mask flux array at V-point 
    240240      REAL(wp) , INTENT(in), DIMENSION(jpi,jpj)    , OPTIONAL ::   pmsk   ! Optional 2D basin mask 
    241241      !! 
    … …  
    317317!! DCSE_NEMO: work around a deficiency in ftrans 
    318318!     REAL(wp) , INTENT(in), DIMENSION(jpi,jpj,jpk) ::   pta    ! tracer flux array at T-point 
    319       REAL(wp) , INTENT(in)             :: pta(jpi,jpj,jpk)     ! tracer flux array at T-point 
     319      REAL(wp) , INTENT(in)             :: pta(jpi,jpj,jpkorig)     ! tracer flux array at T-point 
    320320      REAL(wp) , INTENT(in), DIMENSION(jpi,jpj)     ::   pmsk   ! Optional 2D basin mask 
    321321      !! 
Note: See TracChangeset for help on using the changeset viewer.