Changeset 615 for trunk/LMDZ.MARS/libf

Timestamp:

Apr 5, 2012, 10:44:33 AM (13 years ago)

Author:

acolaitis

Message:

Supressed outputs to screen of internal corrections to updraft mass-flux in thermals (still available with lwrite=.true.) plus correction to omega which had a wrong value.

File:

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

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

@@ -401 +401 @@
 ! Best config for norad 222 levels:
 
-!       omega=0.06
-       omega=0.04
+       omega=0.06
+!       omega=0.
        a1=1.
 !       b1=0.
@@ -1191 +1191 @@
 
 !IM 090508 beg
+      IF (lwrite) THEN
       if (ncorecfm1+ncorecfm2+ncorecfm3+ncorecfm4+ncorecfm5+ncorecalpha > ngridmx/4. ) then
          print*,'thermcell warning : large number of corrections'
@@ -1201 +1202 @@
      &     ncorecalpha,'x alpha'
       endif
+      ENDIF
 
 ! ===========================================================================