Changeset 1950

Timestamp:

Jan 27, 2014, 5:16:37 PM (11 years ago)

Author:

Ehouarn Millour

Message:

Correction from last commit for iflag_thermals=0
FH

File:

• LMDZ5/trunk/libf/phylmd/physiq.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -2296 +2296 @@
        'AVANT LA CONVECTION SECHE , iflag_thermals=' &
        ,iflag_thermals,'   nsplit_thermals=',nsplit_thermals
-  if(iflag_thermals<=0) then
+  if(iflag_thermals<0) then
      !  Rien
      !  ====
-     IF(prt_level>9)WRITE(lunout,*)'pas de modele de panache thermique'
-     IF(prt_level>9.and.iflag_thermals<0)WRITE(lunout,*)'pas d ajustement convectif'
+     IF(prt_level>9)WRITE(lunout,*)'pas de convection seche'
 
 
@@ -2463 +2462 @@
 
         if (iflag_thermals==0) then
+        ! Calling adjustment alone (but not the thermal plume model)
            CALL ajsec_convV2(paprs, pplay, t_seri,q_seri &
                 , d_t_ajsb, d_q_ajsb)
         else if (iflag_thermals>0) then
+        ! Calling adjustment above the top of thermal plumes
            CALL ajsec(paprs, pplay, t_seri,q_seri,limbas &
                 , d_t_ajsb, d_q_ajsb)