Changeset 2989 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Sep 18, 2017, 5:32:12 PM (7 years ago)

Author:

musat

Message:

The 4co2 output fields are now managed by the XIOS server via
file*lmdz*xml files and the ok_4xCO2atm logical flag.
ok_4xCO2atm is initialized to TRUE if

• one of the 4co2 variables (rsut4cO2, rlut4co2, etc) are asked for

by XIOS sefrver or

• if one of the perturbed GES concentration (RCO2_per, RCH4_per, etc)

is different from the actual (RCO2, RCH4, etc) GES concentration.

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -320 +320 @@
          map_emis_ThCi,map_pcld_ThCi,map_tcld_ThCi,&
          map_emis_Anv,map_pcld_Anv,map_tcld_Anv, &
-         alt_tropo
+         alt_tropo, &
+!Ionela
+         ok_4xCO2atm
 
     USE ocean_slab_mod, ONLY: nslay, tslab, slab_bils, slab_bilg, tice, &
@@ -1733 +1735 @@
        CALL histwrite_phy(o_ref_liq, ref_liq)
        CALL histwrite_phy(o_ref_ice, ref_ice)
-       IF (RCO2_per.NE.RCO2_act.OR.RCH4_per.NE.RCH4_act.OR. &
-            RN2O_per.NE.RN2O_act.OR.RCFC11_per.NE.RCFC11_act.OR. &
-            RCFC12_per.NE.RCFC12_act) THEN
+!
+       IF (ok_4xCO2atm) THEN
           IF (vars_defined) zx_tmp_fi2d(:) = swupp(:,klevp1)*swradcorr(:)
           CALL histwrite_phy(o_rsut4co2, zx_tmp_fi2d)
@@ -1764 +1765 @@
           CALL histwrite_phy(o_rld4co2, lwdnp)
           CALL histwrite_phy(o_rldcs4co2, lwdn0p)
-       ENDIF
+       ENDIF !ok_4xCO2atm
 !!!!!!!!!!!! Sorties niveaux de pression NMC !!!!!!!!!!!!!!!!!!!!
 #ifdef CPP_IOIPSL