Changeset 4454


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

Use of mbkmax in computing trends in tra_zdf. Might not be exercised

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf.F90

    r3211 r4454  
    100100         DO jj = 1, jpj 
    101101            DO ji = 1, jpi 
    102                DO jk = 1, jpkm1 
     102               DO jk = 1, mbkmax(ji,jj)-1 ! jpkm1 
    103103                  ztrdt(ji,jj,jk) = ( ( tsa(ji,jj,jk,jp_tem) - tsb(ji,jj,jk,jp_tem) ) / r2dtra(jk) ) - ztrdt(ji,jj,jk) 
    104104                  ztrds(ji,jj,jk) = ( ( tsa(ji,jj,jk,jp_sal) - tsb(ji,jj,jk,jp_sal) ) / r2dtra(jk) ) - ztrds(ji,jj,jk) 
Note: See TracChangeset for help on using the changeset viewer.