Changeset 864 for LMDZ4/trunk/libf/phytherm/phytrac.F

Timestamp:

Nov 13, 2007, 3:37:28 PM (17 years ago)

Author:

lsce

Message:

ACo : ajout clef CPP (COUPLE + AER) pour le modele couple avec les aerosol (IPSL_ESM_V1)

File:

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

LMDZ4/trunk/libf/phytherm/phytrac.F

@@ -59 +59 @@
 #ifdef INCA
      I                    flxmass_w,
+#if defined(INCA_AER) && defined(CPP_COUPLE)
+     I                   tau_inca, 
+     I                   piz_inca, 
+     I                   cg_inca,
+     I                   ccm,
+     I                   rfname,
+#endif
 #endif
      O                    tr_seri)
@@ -140 +147 @@
       REAL flxmass_w(klon,klev)
       CHARACTER(len=8) :: solsym(nqmax)
+#if defined(INCA_AER) && defined(CPP_COUPLE)
+      integer la
+      REAL              ::    tau_inca(klon,klev,9,2)
+      REAL              ::    piz_inca(klon,klev,9,2)
+      REAL              ::    cg_inca(klon,klev,9,2)
+      character*4       ::    rfname(9) 
+      REAL              ::    ccm(klon,klev,2) 
+#endif
 #endif
 c      integer iflag_con
@@ -348 +363 @@
       REAL              :: dummy(klon,klev)
 #endif
-#ifdef INCA_AER
-      integer la
-#endif
 c
 c======================================================================
@@ -509 +521 @@
 
 #ifdef INCA_AER
-
-! Changement Anne 01/04/2005
         CALL aerosolmain (tr_seri,
      $                 pdtphys,
@@ -528 +538 @@
      $                 t_seri,       ! for chimiaq
      $                 rh,
+#ifdef CPP_COUPLE
+     $                 tau_inca,
+     $                 piz_inca,
+     $                 cg_inca,
+     $                 rfname,
+     $                 ccm,
+#endif
      $                 lafin)
-! fin changement anne
-
 #endif