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

Timestamp:

Sep 27, 2021, 10:23:28 PM (3 years ago)

Author:

oboucher

Message:

Initialisation of swaero_diag and ok_4xCO2atm needed to be revamped now that output variables are defined before the call to radlwsw.

File:

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

LMDZ6/trunk/libf/phylmd/phys_output_var_mod.F90

@@ -90 +90 @@
   ! 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.
+  !--OB: this needs to be set to FALSE by default and changed back to TRUE based on output requests
+  LOGICAL, SAVE                                :: swaerofree_diag=.FALSE.
+  LOGICAL, SAVE                                :: swaero_diag=.FALSE.
+  LOGICAL, SAVE                                :: dryaod_diag=.FALSE.
   !$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
   ! 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=.TRUE.
+  !--IM: as for swaero_diag this needs to be set to FALSE by default and 
+  !      changed back to TRUE based on output requests
+  LOGICAL, SAVE                                :: ok_4xCO2atm=.FALSE.
   !$OMP THREADPRIVATE(ok_4xCO2atm)