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

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

File:
1 edited

Legend:

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

    r4399 r4400  
    800800      ! 
    801801      ! Compute and store the deepest bottom level of any grid-type at each grid point 
    802       ! For use in removing data below ocean floor from halo exchanges. 
     802      ! For use in removing data below ocean floor from compute loops 
    803803      mbkmax(:,:) = MAX(mbkt(:,:)+1, mbku(:,:), mbkv(:,:)) 
    804804      jpkf = MAXVAL( mbkmax(:,:) ) 
    805805      jpkfm1 = jpkf - 1 
    806       WRITE(*,*) narea,': ARPDBG: jpkf = ', jpkf 
     806      WRITE(*,*) narea,': ARPDBG: shallowest pt and jpkf = ', MINVAL(mbkmax(:,:)), jpkf 
    807807 
    808808      ! 
Note: See TracChangeset for help on using the changeset viewer.