Changeset 336 for trunk/LMDZ.MARS/libf/phymars/thermcell_main_mars.F90

Timestamp:

Nov 2, 2011, 2:20:54 PM (13 years ago)

Author:

acolaitis

Message:

1. Corrected error introduced in a previous commit that broke mass conservation in thermals. 2. Modified nsplit parameters.

File:

• trunk/LMDZ.MARS/libf/phymars/thermcell_main_mars.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/thermcell_main_mars.F90

@@ -182 +182 @@
 !   ---------------
 
+      entr(:,:)=0.
+      detr(:,:)=0.
+      fm(:,:)=0.
       zu(:,:)=pu(:,:)
       zv(:,:)=pv(:,:)
@@ -927 +930 @@
                detr(ig,l)=detr(ig,l)+fm(ig,l+1)
                fm(ig,l+1)=0.
+               entr(ig,l+1)=0.
                ncorecfm2=ncorecfm2+1
                else
@@ -988 +992 @@
 !            endif
 
-!            if(l.gt.lmax(ig)) then
-            if(l.gt.lalim(ig)) then
+            if(l.gt.lmax(ig)) then
+!            if(l.gt.lalim(ig)) then
                detr(ig,l)=0.
                fm(ig,l+1)=0.