Changeset 2529 for LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90

Timestamp:

May 30, 2016, 10:46:40 PM (8 years ago)

Author:

oboucher

Message:

Reviewing the way swaero_diag is computed to correct an old bug that
makes topswad and co diagnostics wrong for the first timestep...
And introducing swaero_diag in rrtm/recmwf_aero so that double and
triple radiation calls when diagnostics are not needed to save time

File:

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

LMDZ5/trunk/libf/phylmd/phys_output_var_mod.F90

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