Index: /trunk/LMDZ.MARS/util/zrecast.F90
===================================================================
--- /trunk/LMDZ.MARS/util/zrecast.F90	(revision 1514)
+++ /trunk/LMDZ.MARS/util/zrecast.F90	(revision 1515)
@@ -2742,5 +2742,5 @@
           ! z_new(kloop) is above highest GCM level
           ! NB: zareoid=zsurface+phis/g0
-          gz=g0*a0*a0/(a0+z_new(kloop)+phis(iloop,jloop)/g0)**2
+          gz=g0/(1.+((z_new(kloop)+phis(iloop,jloop)/g0)/a0))/(1+(z_gcm(iloop,jloop,altlen,tloop)+phis(iloop,jloop)/g0)/a0) !JL
           newdata(iloop,jloop,kloop,tloop)=gcmdata(iloop,jloop,altlen,tloop)* &
                    exp(((z_gcm(iloop,jloop,altlen,tloop)-z_new(kloop))*gz)/ &