Ignore:
Timestamp:
Nov 19, 2021, 4:58:59 PM (3 years ago)
Author:
lguez
Message:

Sync latest trunk changes to Ocean_skin

Location:
LMDZ6/branches/Ocean_skin
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Ocean_skin

  • LMDZ6/branches/Ocean_skin/libf/phylmd/phys_output_var_mod.F90

    r3740 r4013  
    9090  ! swaerofree_diag : flag indicates if it is necessary to do calculation for some aerosol diagnostics
    9191  ! dryaod_diag : flag indicates if it is necessary to do calculation for some aerosol diagnostics
    92   !--OB: this needs to be set to TRUE by default and changed back to FALSE after first radiation call
    93   !--    and corrected back to TRUE based on output requests
    94   LOGICAL, SAVE                                :: swaerofree_diag=.TRUE.
    95   LOGICAL, SAVE                                :: swaero_diag=.TRUE.
    96   LOGICAL, SAVE                                :: dryaod_diag=.TRUE.
     92  !--OB: this needs to be set to FALSE by default and changed back to TRUE based on output requests
     93  LOGICAL, SAVE                                :: swaerofree_diag=.FALSE.
     94  LOGICAL, SAVE                                :: swaero_diag=.FALSE.
     95  LOGICAL, SAVE                                :: dryaod_diag=.FALSE.
    9796  !$OMP THREADPRIVATE(swaerofree_diag, swaero_diag, dryaod_diag)
     97 
    9898  ! ok_4xCO2atm : flag indicates if it is necessary to do a second call of
    9999  ! radiation code with a 4xCO2 or another different GES to assess SW/LW
    100100  ! in this case
    101   !--IM: as for swaero_diag or dryaod_diag this needs to be set to TRUE by default and
    102   !--    changed back to FALSE after first radiation call and corrected back to TRUE
    103   !--    based on output requests
    104   LOGICAL, SAVE                                :: ok_4xCO2atm=.TRUE.
     101  !--IM: as for swaero_diag this needs to be set to FALSE by default and
     102  !      changed back to TRUE based on output requests
     103  LOGICAL, SAVE                                :: ok_4xCO2atm=.FALSE.
    105104  !$OMP THREADPRIVATE(ok_4xCO2atm)
    106105
Note: See TracChangeset for help on using the changeset viewer.