Changeset 2989 for LMDZ5/trunk/libf/phylmd/phys_output_var_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_var_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90

@@ -92 +92 @@
   LOGICAL, SAVE                                :: dryaod_diag=.TRUE.
   !$OMP THREADPRIVATE(swaero_diag, dryaod_diag)
+  ! ok_4xCO2atm : flag indicates if it is necessary to do a second call of
+  ! radiation code with a 4xCO2 or another different GES to assess SW/LW
+  ! in this case
+  !--IM: as for swaero_diag or dryaod_diag this needs to be set to TRUE by default and
+  !--    changed back to FALSE after first radiation call and corrected back to TRUE 
+  !--    based on output requests
+  LOGICAL, SAVE                                :: ok_4xCO2atm=.FALSE.
+  !$OMP THREADPRIVATE(ok_4xCO2atm)
 
   INTEGER, SAVE:: levmin(nfiles) = 1