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

Timestamp:

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

Author:

trackstand2

Message:

Replace jpk with jpkf in bound_exch_generic. Turn on test timing of exchanges

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 (modified) (1 diff)

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

@@ -800 +800 @@
       !
       ! Compute and store the deepest bottom level of any grid-type at each grid point
-      ! For use in removing data below ocean floor from halo exchanges.
+      ! For use in removing data below ocean floor from compute loops
       mbkmax(:,:) = MAX(mbkt(:,:)+1, mbku(:,:), mbkv(:,:))
       jpkf = MAXVAL( mbkmax(:,:) )
       jpkfm1 = jpkf - 1
-      WRITE(*,*) narea,': ARPDBG: jpkf = ', jpkf
+      WRITE(*,*) narea,': ARPDBG: shallowest pt and jpkf = ', MINVAL(mbkmax(:,:)), jpkf
 
       !