Changeset 3987 for LMDZ6/trunk/libf
- Timestamp:
- Sep 27, 2021, 10:23:28 PM (3 years ago)
- Location:
- LMDZ6/trunk/libf/phylmd
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_output_var_mod.F90
r3815 r3987 90 90 ! swaerofree_diag : flag indicates if it is necessary to do calculation for some aerosol diagnostics 91 91 ! 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. 97 96 !$OMP THREADPRIVATE(swaerofree_diag, swaero_diag, dryaod_diag) 97 98 98 ! ok_4xCO2atm : flag indicates if it is necessary to do a second call of 99 99 ! radiation code with a 4xCO2 or another different GES to assess SW/LW 100 100 ! 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. 105 104 !$OMP THREADPRIVATE(ok_4xCO2atm) 106 105 -
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r3981 r3987 4198 4198 4199 4199 #ifndef CPP_XIOS 4200 !--OB 30/05/2016 modified 21/10/2016 4201 !--here we return swaero_diag and dryaod_diag to FALSE 4202 !--and histdef will switch it back to TRUE if necessary 4203 !--this is necessary to get the right swaero at first step 4204 !--but only in the case of no XIOS as XIOS is covered elsewhere 4205 IF (debut) swaerofree_diag = .FALSE. 4206 IF (debut) swaero_diag = .FALSE. 4207 IF (debut) dryaod_diag = .FALSE. 4208 !--IM 15/09/2017 here we return ok_4xCO2atm to FALSE 4209 !--as for swaero_diag, see above 4210 IF (debut) ok_4xCO2atm = .FALSE. 4211 4212 ! 4200 4213 4201 !IM 2eme calcul radiatif pour le cas perturbe ou au moins un 4214 4202 !IM des taux doit etre different du taux actuel … … 4273 4261 ZLWFT0_i, ZFLDN0, ZFLUP0, & 4274 4262 ZSWFT0_i, ZFSDN0, ZFSUP0) 4275 endif!ok_4xCO2atm4263 ENDIF !ok_4xCO2atm 4276 4264 ENDIF ! aerosol_couple 4277 4265 itaprad = 0
Note: See TracChangeset
for help on using the changeset viewer.