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

Timestamp:

Oct 10, 2011, 4:16:09 PM (13 years ago)

Author:

acolaitis

Message:

Tuning of thermals parameters and a bit of cleaning.

File:

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

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

@@ -886 +886 @@
 ! autres corrections.
 
-      do l=1,nlayermx
-         do ig=1,ngridmx
-            if (detr(ig,l).gt.fm(ig,l)) then
-               ncorecfm8=ncorecfm8+1
-            endif
-         enddo
-      enddo
+!      do l=1,nlayermx
+!         do ig=1,ngridmx
+!            if (detr(ig,l).gt.fm(ig,l)) then
+!               ncorecfm8=ncorecfm8+1
+!            endif
+!         enddo
+!      enddo
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -986 +986 @@
 ! Dans le cas ou on est au dessus de la couche d'alimentation et que le
 ! detrainement est plus fort que le flux de masse, on stope le thermique.
-            endif
-
-            if(l.gt.lmax(ig)) then
+!            endif
+
+!            if(l.gt.lmax(ig)) then
+            if(l.gt.lalim(ig)) then
                detr(ig,l)=0.
                fm(ig,l+1)=0.
                entr(ig,l)=0.
             endif
+            
+            endif
+
          enddo