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

Timestamp:

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

Author:

trackstand2

Message:

Remove jpkf as un-needed now we just reset jpk instead

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 (modified) (3 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
       USE arpdebugging, ONLY: dump_array
       !!
@@ -824 +823 @@
                mbkmax(ji,jj) = MIN(jpk, MAX(mbkt(ji,jj)+1, mbku(ji,jj), mbkv(ji,jj)))
                ! write(*,*) narea, ': SMPDBG: ', ji, jj, mbkt(ji,jj), mbku(ji,jj), mbkv(ji,jj), mbkmax(ji,jj)
-!!$               IF(mbkmax(ji,jj) /= jpkf)THEN
-!!$                  WRITE (*,*) narea,': ARPDBG: mbkmax at ',ji,jj,' in {mpp_init3,zgr_bot_level} = ',mbkmax(ji,jj),jpkf
-!!$               END IF
             END DO
          END DO
@@ -834 +830 @@
          ! mbkmax computed in mpp_init3 because needed before ANY halo 
          ! swaps can be performed
-         jpkf = MAXVAL( mbkmax(:,:) )
-         WRITE(*,*) narea,': ARPDBG: shallowest pt and jpkf = ', &
-                    MINVAL(mbkmax(:,:)), jpkf
          ! Play rather fast and loose and just change the value of jpk
          ! here...
-         jpk = jpkf
+         jpk = MAXVAL( mbkmax(:,:) )
+         WRITE(*,*) narea,': ARPDBG: shallowest pt and new, sub-domain jpk = ', &
+                    MINVAL(mbkmax(:,:)), jpk
          jpkm1 = jpk - 1
       ELSE
          WRITE(*,*) narea,': ARPDBG: NOT trimming domain in z'
          mbkmax(:,:) = jpk
-         jpkf = jpk
       END IF
-      jpkfm1 = jpkf - 1
 
       !