Changeset 1444 for LMDZ5/branches/LMDZ5V1.0-dev/libf/phylmd/phyredem.F

Timestamp:

Oct 21, 2010, 4:25:20 PM (14 years ago)

Author:

jghattas

Message:

Modifications for carbon tracers :

• add possibility to read source at different frequency
• add dynamic varaiable to send fluxes in interface between ORCHIDEE and LMDZ : this is still under developpment under cpp key ORCH_NEW. No compatible official ORCHIDEE version does yet exist.
• add variable co2_send in restart file.
• clean up and bug fixes.

File:

• LMDZ5/branches/LMDZ5V1.0-dev/libf/phylmd/phyredem.F (modified) (2 diffs)

LMDZ5/branches/LMDZ5V1.0-dev/libf/phylmd/phyredem.F

@@ -15 +15 @@
       USE infotrac
       USE control_mod
-
+      USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send
 
       IMPLICIT none
@@ -337 +337 @@
             CALL put_field("trs_"//tname(iiq),"",trs(:,it))
          END DO
+         IF (carbon_cycle_cpl) THEN
+            IF (.NOT. ALLOCATED(co2_send)) THEN
+               ! This is the case of create_etat0_limit, ce0l
+               ALLOCATE(co2_send(klon))
+               co2_send(:) = co2_ppm0
+            END IF
+            CALL put_field("co2_send","co2_ppm for coupling",co2_send)
+         END IF
       END IF