Changeset 2637

Timestamp:

Sep 28, 2016, 4:18:58 PM (8 years ago)

Author:

acozic

Message:

In Inca case we change the call for the chemistry in phytrac
Now we call cvltr and cltrac before the chemistry

File:

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

LMDZ5/trunk/libf/phylmd/phytrac_mod.F90

@@ -570 +570 @@
     CASE('inca')
        !    -- CHIMIE INCA  config_inca = aero or chem --
-
-       CALL tracinca(&
-            nstep,    julien,   gmtime,         lafin,     &
-            pdtphys,  t_seri,   paprs,          pplay,     &
-            pmfu,     upwd,     ftsol,  pctsrf, pphis,     &
-            pphi,     albsol,   sh,             rh,        &
-            cldfra,   rneb,     diafra,         cldliq,    &
-            itop_con, ibas_con, pmflxr,         pmflxs,    &
-            prfl,     psfl,     aerosol_couple, flxmass_w, &
-            tau_aero, piz_aero, cg_aero,        ccm,       &
-            rfname,                                        &
-            tr_seri,  source)      
-
+       ! Appel fait en fin de phytrac pour avoir les emissions modifiees par 
+       ! la couche limite et la convection avant le calcul de la chimie 
     CASE('repr')
        !   -- CHIMIE REPROBUS --
@@ -895 +884 @@
     END IF !  lessivage
 
+
+    !    -- CHIMIE INCA  config_inca = aero or chem --
+    IF (type_trac == 'inca') THEN
+
+       CALL tracinca(&
+            nstep,    julien,   gmtime,         lafin,     &
+            pdtphys,  t_seri,   paprs,          pplay,     &
+            pmfu,     upwd,     ftsol,  pctsrf, pphis,     &
+            pphi,     albsol,   sh,             rh,        &
+            cldfra,   rneb,     diafra,         cldliq,    &
+            itop_con, ibas_con, pmflxr,         pmflxs,    &
+            prfl,     psfl,     aerosol_couple, flxmass_w, &
+            tau_aero, piz_aero, cg_aero,        ccm,       &
+            rfname,                                        &
+            tr_seri,  source)      
+       
+       
+    ENDIF
     !=============================================================
     !   Ecriture des sorties