Changeset 1948 for LMDZ5/trunk/libf/phylmd

Timestamp:

Jan 27, 2014, 11:29:29 AM (12 years ago)

Author:

idelkadi

Message:

• Option pour tourner sans thermiques ni ajustement sec si ifalg_thermals<0 (phylmd/physiq.F90)

• Modifications permettant d'imposer des profils initiaux de traceurs

lus dans un tracer.inp.001 (phylmd/1DUTILS.h, 1D_read_forc_cases.h et lmdz1d.F)

File:

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

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -2296 +2296 @@
        'AVANT LA CONVECTION SECHE , iflag_thermals=' &
        ,iflag_thermals,'   nsplit_thermals=',nsplit_thermals
-  if(iflag_thermals.lt.0) then
+  if(iflag_thermals<=0) then
      !  Rien
      !  ====
-     IF(prt_level>9)WRITE(lunout,*)'pas de convection'
+     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'
 
 
@@ -2446 +2447 @@
      ! Dans le cas contraire, on demarre au niveau 1.
 
-     if (iflag_thermals.ge.13.or.iflag_thermals.eq.0) then
+     if (iflag_thermals>=13.or.iflag_thermals<=0) then
 
         if(iflag_thermals.eq.0) then
@@ -2461 +2462 @@
         ! non nulles numeriquement pour des mailles non concernees.
 
-        if (iflag_thermals.eq.0) then
+        if (iflag_thermals==0) then
            CALL ajsec_convV2(paprs, pplay, t_seri,q_seri &
                 , d_t_ajsb, d_q_ajsb)
-        else
+        else if (iflag_thermals>0) then
            CALL ajsec(paprs, pplay, t_seri,q_seri,limbas &
                 , d_t_ajsb, d_q_ajsb)