Changeset 4399
- Timestamp:
- 2014-02-04T13:11:24+01:00 (10 years ago)
- 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 772 772 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 773 773 USE wrk_nemo, ONLY: zmbk => wrk_2d_1 774 USE par_oce, ONLY: jpkf, jpkfm1 774 775 !! 775 776 INTEGER :: ji, jj ! dummy loop indices … … 801 802 ! For use in removing data below ocean floor from halo exchanges. 802 803 mbkmax(:,:) = MAX(mbkt(:,:)+1, mbku(:,:), mbkv(:,:)) 804 jpkf = MAXVAL( mbkmax(:,:) ) 805 jpkfm1 = jpkf - 1 806 WRITE(*,*) narea,': ARPDBG: jpkf = ', jpkf 807 803 808 ! 804 809 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 177 177 INTEGER, PUBLIC :: jpj ! = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj !: second dimension 178 178 INTEGER, PUBLIC :: jpk ! = jpkdta !: third dimension 179 INTEGER, PUBLIC :: jpkf ! <= jpk !: Max wet level of MPP subdomain 179 180 INTEGER, PUBLIC :: jpim1 ! = jpi-1 !: inner domain indices 180 181 INTEGER, PUBLIC :: jpjm1 ! = jpj-1 !: - - - 181 182 INTEGER, PUBLIC :: jpkm1 ! = jpk-1 !: - - - 183 INTEGER, PUBLIC :: jpkfm1 ! = jpkf-1 !: - - - 182 184 INTEGER, PUBLIC :: jpij ! = jpi*jpj !: jpi x jpj 183 185
Note: See TracChangeset
for help on using the changeset viewer.