Changeset 662 for LMDZ4/trunk/libf

Timestamp:

Jul 26, 2005, 3:18:59 PM (19 years ago)

Author:

lmdzadmin

Message:

Suppression du logical "thermiques" remplace par iflag_thermals
MAF

File:

• LMDZ4/trunk/libf/phylmd/phytrac.F (modified) (5 diffs)

LMDZ4/trunk/libf/phylmd/phytrac.F

@@ -110 +110 @@
 #include "comgeomphy.h"
 #include "advtrac.h"
+#include "thermcell.h"
 c======================================================================
 
@@ -324 +325 @@
 c-------------
       logical first,couchelimite,convection,lessivage,sorties,
-     s        rnpb,inirnpb,thermiques
-      save first,couchelimite,convection,lessivage,thermiques,
+     s        rnpb,inirnpb
+      save first,couchelimite,convection,lessivage,
      s        sorties,inirnpb
 c      data first,couchelimite,convection,lessivage,sorties
@@ -331 +332 @@
 c Olivia
        data first,couchelimite,convection,lessivage,
-     s      thermiques,sorties
-     s     /.true.,.true.,.true.,.true.,.true.,.true./
+     s      sorties
+     s     /.true.,.true.,.true.,.true.,.true./
 
 
@@ -627 +628 @@
       enddo
 
-      if (thermiques) then
+      if (iflag_thermals.gt.O) then
 c        print*,'calcul de leffet des thermiques'
         nsplit=10
@@ -639 +640 @@
 c  Abderr 25 11 02
 C Thermiques 
-c       print*,'Avant dans phytrac',avant
+c       print*,'Avant dans phytrac'
             call dqthermcell(klon,klev,pdtphys/nsplit
      .       ,fm_therm,entr_therm,zmasse