Changeset 592 for trunk/LMDZ.MARS/libf

Timestamp:

Mar 20, 2012, 11:10:29 AM (13 years ago)

Author:

acolaitis

Message:

Minor thermals tuning for GCM

File:

• trunk/LMDZ.MARS/libf/phymars/calltherm_interface.F90 (modified) (1 diff)

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

@@ -206 +206 @@
             r_aspect_thermals=0.7
 #else
-            IF ((ptimestep .lt. 3699.*24./96.) .and. (iradia .eq. 1)) THEN
+            IF ((ptimestep .le. 3699.*24./96.) .and. (iradia .eq. 1)) THEN
                nsplit_thermals=10
             ELSE
                nsplit_thermals=35
             ENDIF
-            r_aspect_thermals=1.5
+            r_aspect_thermals=1.
 #endif
             call getin("nsplit_thermals",nsplit_thermals)