Ignore:
Timestamp:
Feb 25, 2016, 5:40:07 PM (9 years ago)
Author:
jleconte
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/util/zrecast.F90

    r1259 r1515  
    27422742          ! z_new(kloop) is above highest GCM level
    27432743          ! NB: zareoid=zsurface+phis/g0
    2744           gz=g0*a0*a0/(a0+z_new(kloop)+phis(iloop,jloop)/g0)**2
     2744          gz=g0/(1.+((z_new(kloop)+phis(iloop,jloop)/g0)/a0))/(1+(z_gcm(iloop,jloop,altlen,tloop)+phis(iloop,jloop)/g0)/a0) !JL
    27452745          newdata(iloop,jloop,kloop,tloop)=gcmdata(iloop,jloop,altlen,tloop)* &
    27462746                   exp(((z_gcm(iloop,jloop,altlen,tloop)-z_new(kloop))*gz)/ &
Note: See TracChangeset for help on using the changeset viewer.