Changeset 3276


Ignore:
Timestamp:
2012-01-26T18:07:07+01:00 (9 years ago)
Author:
cbricaud
Message:

bug correction. see ticket 917

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r3231 r3276  
    457457            DO jj = 2, jpjm1 
    458458               DO ji = fs_2, fs_jpim1   ! vector opt. 
    459                   psi(ji,jj,jk)  = en(ji,jj,jk) * mxln(ji,jj,jk) 
     459                  psi(ji,jj,jk)  = eb(ji,jj,jk) * mxlb(ji,jj,jk) 
    460460               END DO 
    461461            END DO 
     
    475475            DO jj = 2, jpjm1 
    476476               DO ji = fs_2, fs_jpim1   ! vector opt. 
    477                   psi(ji,jj,jk)  = SQRT( en(ji,jj,jk) ) / ( rc0 * mxln(ji,jj,jk) ) 
     477                  psi(ji,jj,jk)  = SQRT( eb(ji,jj,jk) ) / ( rc0 * mxlb(ji,jj,jk) ) 
    478478               END DO 
    479479            END DO 
     
    484484            DO jj = 2, jpjm1 
    485485               DO ji = fs_2, fs_jpim1   ! vector opt. 
    486                   psi(ji,jj,jk)  = rc02 * en(ji,jj,jk) * mxln(ji,jj,jk)**rnn  
     486                  psi(ji,jj,jk)  = rc02 * eb(ji,jj,jk) * mxlb(ji,jj,jk)**rnn  
    487487               END DO 
    488488            END DO 
Note: See TracChangeset for help on using the changeset viewer.