Changeset 2989 for LMDZ5/trunk/libf/phylmd/conf_phys_m.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/conf_phys_m.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -157 +157 @@
     REAL,SAVE :: CFC11_ppt_omp,RCFC11_omp,CFC11_ppt_per_omp,RCFC11_per_omp
     REAL,SAVE :: CFC12_ppt_omp,RCFC12_omp,CFC12_ppt_per_omp,RCFC12_per_omp
-    LOGICAL,SAVE :: ok_4xCO2atm_omp
     REAL,SAVE :: epmax_omp
     REAL,SAVE :: coef_epmax_cape_omp
@@ -664 +663 @@
     !Config Help = 
 
-    ok_4xCO2atm_omp = .FALSE.
-    CALL getin('ok_4xCO2atm',ok_4xCO2atm_omp)
-
     !Config Key  = RCH4_per
     !Config Desc = Concentration du CH4_per
@@ -2152 +2148 @@
     RCFC11_act = RCFC11
     RCFC12_act = RCFC12
-    ok_4xCO2atm = ok_4xCO2atm_omp
     RCO2_per = RCO2_per_omp
     RCH4_per = RCH4_per_omp
@@ -2501 +2496 @@
     write(lunout,*)' CFC11_ppt=',CFC11_ppt,' RCFC11_act=  ',RCFC11_act
     write(lunout,*)' CFC12_ppt=',CFC12_ppt,' RCFC12_act=  ',RCFC12_act
-    write(lunout,*)' ok_4xCO2atm=',ok_4xCO2atm
     write(lunout,*)' RCO2_per = ',RCO2_per,' RCH4_per = ', RCH4_per
     write(lunout,*)' RN2O_per = ',RN2O_per,' RCFC11_per = ', RCFC11_per