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 4433 for branches/2011 – NEMO

Changeset 4433 for branches/2011


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

mbkmax changes in dynspg_ts

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r4430 r4433  
    209209      DO jj = 1, jpj 
    210210         DO ji = 1, jpi 
    211             DO jk = 1, jpkm1 
     211            DO jk = 1, mbkmax(ji,jj)-1 ! jpkm1 
    212212#else 
    213213      DO jk = 1, jpkm1 
     
    242242      DO jj = 2, jpjm1 
    243243         DO ji = 2, jpim1 
    244             DO jk = 1, jpkm1 
     244            DO jk = 1, mbkmax(ji,jj)-1 ! jpkm1 
    245245#else 
    246246      DO jk = 1, jpkm1                    ! -------------------------- 
     
    691691            zu_asp = ( zu_sum(ji,jj) - ub_b(ji,jj) ) / z2dt_b 
    692692            zv_asp = ( zv_sum(ji,jj) - vb_b(ji,jj) ) / z2dt_b 
    693             DO jk=1,jpkm1 
     693            DO jk=1,mbkmax(ji,jj)-1 ! jpkm1 
    694694               ua(ji,jj,jk) = ua(ji,jj,jk) + zu_asp 
    695695               va(ji,jj,jk) = va(ji,jj,jk) + zv_asp 
Note: See TracChangeset for help on using the changeset viewer.