Changeset 4430


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

Remove use of mbkmax in dynspg_ts

File:
1 edited

Legend:

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

    r4428 r4430  
    209209      DO jj = 1, jpj 
    210210         DO ji = 1, jpi 
    211             DO jk = 1, mbkmax(ji,jj)-1 ! jpkm1 
     211            DO jk = 1, jpkm1 
    212212#else 
    213213      DO jk = 1, jpkm1 
     
    242242      DO jj = 2, jpjm1 
    243243         DO ji = 2, jpim1 
    244             DO jk = 1, mbkmax(ji,jj)-1 ! jpkm1 
     244            DO jk = 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,mbkmax(ji,jj)-1 ! jpkm1 
     693            DO jk=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.