New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4462 for branches/2011 – NEMO

Changeset 4462 for branches/2011


Ignore:
Timestamp:
2014-02-04T13:17:42+01:00 (10 years ago)
Author:
trackstand2
Message:

Remove duplicate calc of mbkmax from domzgr

File:
1 edited

Legend:

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

    r4427 r4462  
    819819      jpkorig = jpk 
    820820      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 DO 
    828          END DO 
     821!!$         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 
    829829         jpkf = MAXVAL( mbkmax(:,:) ) 
    830830         WRITE(*,*) narea,': ARPDBG: shallowest pt and jpkf = ', & 
Note: See TracChangeset for help on using the changeset viewer.