Changeset 4399 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

Timestamp:

2014-02-04T13:11:24+01:00 (10 years ago)

Author:

trackstand2

Message:

Add jpkf for deepest wet level of mpp sub-domain

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 (modified) (2 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

@@ -772 +772 @@
       USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
       USE wrk_nemo, ONLY:   zmbk => wrk_2d_1
+      USE par_oce,  ONLY: jpkf, jpkfm1
       !!
       INTEGER ::   ji, jj   ! dummy loop indices
@@ -801 +802 @@
       ! For use in removing data below ocean floor from halo exchanges.
       mbkmax(:,:) = MAX(mbkt(:,:)+1, mbku(:,:), mbkv(:,:))
+      jpkf = MAXVAL( mbkmax(:,:) )
+      jpkfm1 = jpkf - 1
+      WRITE(*,*) narea,': ARPDBG: jpkf = ', jpkf
+
       !
       IF( wrk_not_released(2, 1) )   CALL ctl_stop('zgr_bot_level: failed to release workspace array')