Changeset 4386 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
- Timestamp:
- Jan 17, 2023, 10:11:45 AM (17 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90
r4380 r4386 5632 5632 5633 5633 #ifndef CPP_XIOS 5634 !--OB 30/05/2016 modified 21/10/20165635 !--here we return swaero_diag and dryaod_diag to FALSE5636 !--and histdef will switch it back to TRUE if necessary5637 !--this is necessary to get the right swaero at first step5638 !--but only in the case of no XIOS as XIOS is covered elsewhere5639 IF (debut) swaerofree_diag = .FALSE.5640 IF (debut) swaero_diag = .FALSE.5641 IF (debut) dryaod_diag = .FALSE.5642 !--IM 15/09/2017 here we return ok_4xCO2atm to FALSE5643 !--as for swaero_diag, see above5644 IF (debut) ok_4xCO2atm = .FALSE.5645 5646 5634 ! 5647 5635 !IM 2eme calcul radiatif pour le cas perturbe ou au moins un
Note: See TracChangeset
for help on using the changeset viewer.