Changeset 4399


Ignore:
Timestamp:
2014-02-04T13:11:24+01:00 (7 years ago)
Author:
trackstand2
Message:

Add jpkf for deepest wet level of mpp sub-domain

Location:
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r3837 r4399  
    772772      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    773773      USE wrk_nemo, ONLY:   zmbk => wrk_2d_1 
     774      USE par_oce,  ONLY: jpkf, jpkfm1 
    774775      !! 
    775776      INTEGER ::   ji, jj   ! dummy loop indices 
     
    801802      ! For use in removing data below ocean floor from halo exchanges. 
    802803      mbkmax(:,:) = MAX(mbkt(:,:)+1, mbku(:,:), mbkv(:,:)) 
     804      jpkf = MAXVAL( mbkmax(:,:) ) 
     805      jpkfm1 = jpkf - 1 
     806      WRITE(*,*) narea,': ARPDBG: jpkf = ', jpkf 
     807 
    803808      ! 
    804809      IF( wrk_not_released(2, 1) )   CALL ctl_stop('zgr_bot_level: failed to release workspace array') 
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/par_oce.F90

    r3432 r4399  
    177177   INTEGER, PUBLIC  ::   jpj   ! = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj   !: second dimension 
    178178   INTEGER, PUBLIC  ::   jpk   ! = jpkdta                                             !: third dimension 
     179   INTEGER, PUBLIC  ::   jpkf  ! <= jpk                                             !: Max wet level of MPP subdomain 
    179180   INTEGER, PUBLIC  ::   jpim1 ! = jpi-1                                            !: inner domain indices 
    180181   INTEGER, PUBLIC  ::   jpjm1 ! = jpj-1                                            !:   -     -      - 
    181182   INTEGER, PUBLIC  ::   jpkm1 ! = jpk-1                                            !:   -     -      - 
     183   INTEGER, PUBLIC  ::   jpkfm1 ! = jpkf-1                                          !:   -     -      - 
    182184   INTEGER, PUBLIC  ::   jpij  ! = jpi*jpj                                          !:  jpi x jpj 
    183185 
Note: See TracChangeset for help on using the changeset viewer.