Changeset 808 for trunk/LMDZ.VENUS/libf/phyvenus/gwprofil.F

Timestamp:

Oct 16, 2012, 12:57:35 PM (12 years ago)

Author:

slebonnois

Message:

SL: Many changes for VENUS (related to newstart) and TITAN (related to clouds). Please read DOC/chantiers/commit_importants.log (cf v808).

File:

• trunk/LMDZ.VENUS/libf/phyvenus/gwprofil.F (modified) (1 diff)

trunk/LMDZ.VENUS/libf/phyvenus/gwprofil.F

@@ -151 +151 @@
                zriw=pri(jl,jk)*(1.-zalfa)/(1+zalfa*zsqr)**2
                if(zriw.lt.grcrit) then
-C                 print *,' breaking!!!',ptau(jl,jk)
+c                 print *,' breaking!!!',ptau(jl,jk),zsqr
                   zdel=4./zsqr/grcrit+1./grcrit**2+4./grcrit
                   zb=1./grcrit+2./zsqr