Changeset 960 for LMDZ4/trunk/libf/dyn3d/leapfrog.F

Timestamp:

May 27, 2008, 6:46:50 PM (16 years ago)

Author:

lsce

Message:

• Ajoute du parametre config_inca dans conf_gcm.F config_inca='none'(sans INCA, par defaut) config_inca='chem'(avec INCA config chemie) config_inca='aero'(avec INCA config aerosol)
• Menage parmis les cles CPP INCA
• Enleve le calcul d'omega dans calfis.F et active le calcul correspondant dans advtrac.F(avant uniquement pour INCA).

JG

File:

• LMDZ4/trunk/libf/dyn3d/leapfrog.F (modified) (3 diffs)

LMDZ4/trunk/libf/dyn3d/leapfrog.F

@@ -149 +149 @@
 
       REAL alpha(ip1jmp1,llm),beta(ip1jmp1,llm)
-#ifdef INCA
-      REAL :: flxw(ip1jmp1,llm)
-#endif
+      REAL :: flxw(ip1jmp1,llm)  ! flux de masse verticale
 
 c+jld variables test conservation energie
@@ -293 +291 @@
       IF( forward. OR . leapf )  THEN
 
-c
-#ifdef INCA
-             CALL caladvtrac(q,pbaru,pbarv,
-     *                      p, masse, dq,  teta,
-     .             flxw,
-     .             pk)
-#else
-             CALL caladvtrac(q,pbaru,pbarv,
-     *                      p, masse, dq,  teta,
-     .             pk)
-#endif
-
+         CALL caladvtrac(q,pbaru,pbarv,
+     *        p, masse, dq,  teta,
+     .        flxw, pk)
+         
          IF (offline) THEN
 Cmaf stokage du flux de masse pour traceurs OFF-LINE
@@ -383 +373 @@
         CALL calfis( nq, lafin ,rdayvrai,time  ,
      $               ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,
-     $               du,dv,dteta,dq,w,
-#ifdef INCA
+     $               du,dv,dteta,dq,
      $               flxw,
-#endif
      $               clesphy0, dufi,dvfi,dtetafi,dqfi,dpfi  )