- Timestamp:
- Jul 24, 2024, 1:17:08 PM (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/Dust/inscav_spl.f90
r5105 r5113 123 123 beta = MIN(MAX(0.0, -beta), 1.0) 124 124 ELSE !--reevaporation non totale pour aerosols 125 ! !print *,'FRAC USED IN INSCAV_SPL'125 !print *,'FRAC USED IN INSCAV_SPL' 126 126 beta = MIN(MAX(0.0, -beta) * frac, 1.0) 127 127 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.