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

Timestamp:

Jul 6, 2018, 9:01:31 AM (6 years ago)

Author:

oboucher

Message:

Embryon of changes for interactive CO2
type_trac=co2i

File:

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

LMDZ6/trunk/libf/phylmd/phytrac_mod.F90

@@ -100 +100 @@
     USE print_control_mod, ONLY: lunout
     USE aero_mod, ONLY : naero_grp
+
+    USE tracco2i_mod
 
 #ifdef CPP_StratAer
@@ -474 +476 @@
        CASE('repr')
           source(:,:)=0.
+       CASE('co2i')
+          source(:,:)=0.
 #ifdef CPP_StratAer
        CASE('coag')
@@ -537 +541 @@
                 flag_cvltr(it)=.false.
 
+             CASE('co2i')
+                !--co2 tracers are not scavenged
+                flag_cvltr(it)=.false.
+
 #ifdef CPP_StratAer
              CASE('coag')
@@ -624 +632 @@
             t_seri, pplay, paprs, sh , &
             tr_seri)
+
+    CASE('co2i')
+       !   -- CO2 interactif --
+       !   -- source is updated with FF and BB emissions 
+       !   -- OB => PC need to add net flux from ocean and orchidee 
+       !   -- sign convention : positive into the atmosphere
+       CALL tracco2i(pdtphys, debutphy, &
+            xlat, xlon, pphis, pphi, &
+            t_seri, pplay, paprs, tr_seri, source)
 
 #ifdef CPP_StratAer