Changeset 3649 for LMDZ6/trunk/libf/phylmd/phytrac_mod.F90

Timestamp:

Mar 17, 2020, 12:41:16 PM (5 years ago)

Author:

jghattas

Message:

Correction necessaire pour experience IPSLESM/CO2 pour eviter plantage aleatoire en mode debug : carbon_cpl_init doit etre appele avant premier appel a phys_output_write pour que tout les variables (fco2_land, etc..) soient allouees.

File:

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

LMDZ6/trunk/libf/phylmd/phytrac_mod.F90

@@ -56 +56 @@
   SUBROUTINE phytrac_init()
     USE dimphy
-    USE infotrac_phy, ONLY: nbtr
+    USE infotrac_phy, ONLY: nbtr, type_trac
+    USE tracco2i_mod, ONLY: tracco2i_init
     IMPLICIT NONE
 
@@ -70 +71 @@
        ALLOCATE(d_tr_th(klon,klev,nbtr))
        ALLOCATE(d_tr_lessi_impa(klon,klev,nbtr),d_tr_lessi_nucl(klon,klev,nbtr))
+
+
+
+    !===============================================================================
+    !    -- Do specific treatment according to chemestry model or local LMDZ tracers
+    !      
+    !===============================================================================
+    SELECT CASE(type_trac)
+    CASE('co2i')
+       !   -- CO2 interactif --
+       CALL tracco2i_init()
+    END SELECT
+
 
   END SUBROUTINE phytrac_init