Changeset 1981 for LMDZ5/trunk/libf

Timestamp:

Feb 14, 2014, 12:22:31 PM (11 years ago)

Author:

fhourdin

Message:

Correction
Bug fixing

File:

• LMDZ5/trunk/libf/phylmd/thermcell_old.F (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/thermcell_old.F

@@ -5484 +5484 @@
 c------------------------------------------------------------------
 
-      if(sorties) then
-      do l=1,nlay
-         do ig=1,ngrid
-            zla(ig,l)=(1.-fracd(ig,l))*zmax(ig)
-            zld(ig,l)=fracd(ig,l)*zmax(ig)
-            if(1.-fracd(ig,l).gt.1.e-10)
-     s      zwa(ig,l)=wd(ig,l)*fracd(ig,l)/(1.-fracd(ig,l))
-         enddo
-      enddo
-
       return
       end