Changeset 3082 for LMDZ6/trunk/libf/phylmd/phys_output_var_mod.F90

Timestamp:

Nov 21, 2017, 5:18:23 PM (7 years ago)

Author:

oboucher

Message:

Adding new diagnostics for clean (no aerosol) clear sky SW radiative fluxes

File:

• LMDZ6/trunk/libf/phylmd/phys_output_var_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/phys_output_var_mod.F90

@@ -86 +86 @@
 
   ! swaero_diag : flag indicates if it is necessary to do calculation for some aerosol diagnostics
+  ! swaerofree_diag : flag indicates if it is necessary to do calculation for some aerosol diagnostics
   ! dryaod_diag : flag indicates if it is necessary to do calculation for some aerosol diagnostics
   !--OB: 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                                :: swaerofree_diag=.TRUE.
   LOGICAL, SAVE                                :: swaero_diag=.TRUE.
   LOGICAL, SAVE                                :: dryaod_diag=.TRUE.
-  !$OMP THREADPRIVATE(swaero_diag, dryaod_diag)
+  !$OMP THREADPRIVATE(swaerofree_diag, 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