Changeset 4462
- Timestamp:
- 2014-02-04T13:17:42+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r4427 r4462 819 819 jpkorig = jpk 820 820 IF( domtrim_z ) THEN 821 ! mbkmax(:,:) = MAX(mbkt(:,:)+1, mbku(:,:), mbkv(:,:))822 ! write(*,*) narea, ': SMPDBG: ji, jj, mbkt(ji,jj), mbku(ji,jj), mbkv(ji,jj), mbkmax(ji,jj)'823 DO jj = 1, jpj 824 DO ji = 1, jpi 825 mbkmax(ji,jj) = MIN(jpk, MAX(mbkt(ji,jj)+1, mbku(ji,jj), mbkv(ji,jj))) 826 ! write(*,*) narea, ': SMPDBG: ', ji, jj, mbkt(ji,jj), mbku(ji,jj), mbkv(ji,jj), mbkmax(ji,jj) 827 END DO828 END DO821 !!$ DO jj = 1, jpj 822 !!$ DO ji = 1, jpi 823 !!$ mbkmax(ji,jj) = MIN(jpk, MAX(mbkt(ji,jj)+1, mbku(ji,jj), mbkv(ji,jj))) 824 !!$ ! write(*,*) narea, ': SMPDBG: ', ji, jj, mbkt(ji,jj), mbku(ji,jj), mbkv(ji,jj), mbkmax(ji,jj) 825 !!$ END DO 826 !!$ END DO 827 ! mbkmax computed in mpp_init3 because needed before ANY halo 828 ! swaps can be performed 829 829 jpkf = MAXVAL( mbkmax(:,:) ) 830 830 WRITE(*,*) narea,': ARPDBG: shallowest pt and jpkf = ', &
Note: See TracChangeset
for help on using the changeset viewer.