Changeset 1444 for LMDZ5/branches/LMDZ5V1.0-dev/libf/phylmd/phyetat0.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/phyetat0.F (modified) (2 diffs)

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

@@ -21 +21 @@
       USE infotrac
       USE traclmdz_mod,    ONLY : traclmdz_from_restart
-      USE carbon_cycle_mod,ONLY : carbon_cycle_tr, carbon_cycle_cpl
+      USE carbon_cycle_mod,ONLY :
+     &     carbon_cycle_tr, carbon_cycle_cpl, co2_send
 
       IMPLICIT none
@@ -1078 +1079 @@
 
          END DO
-         
          CALL traclmdz_from_restart(trs)
+
+         IF (carbon_cycle_cpl) THEN
+            ALLOCATE(co2_send(klon), stat=ierr)
+            IF (ierr /= 0) CALL abort_gcm
+     &           ('phyetat0','pb allocation co2_send',1)
+            CALL get_field("co2_send",co2_send,found)
+            IF (.NOT. found) THEN
+               PRINT*,"phyetat0: Le champ <co2_send> est absent"
+               PRINT*,"Initialisation uniforme a co2_ppm=",co2_ppm
+               co2_send(:) = co2_ppm
+            END IF
+         END IF
       END IF