Changeset 5239 for LMDZ6/trunk
- Timestamp:
- Oct 17, 2024, 11:20:55 AM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/StratAer/traccoag_mod.F90
r5150 r5239 406 406 ENDDO 407 407 ! reff_sulfate: effective radius of WET sulfate aerosols (cm) 408 reff_sulfate(i,j) = (samoment3 / samoment2) & 409 & *1.e2 ! conversion from m to cm 408 IF(samoment2 > 1.e-30) THEN 409 reff_sulfate(i,j) = (samoment3 / samoment2) & 410 & *1.e2 ! conversion from m to cm 411 412 ! Sanity check 413 IF(reff_sulfate(i,j) > 5.e-4) reff_sulfate(i,j) = 5.e-4 ! reff_sulfate max = 5 micron 414 IF(reff_sulfate(i,j) < 1.e-6) reff_sulfate(i,j) = 1.e-6 ! reff_sulfate min = 10 nm 415 ELSE 416 reff_sulfate(i,j) = 1.e-5 ! reff_sulfate N part = nul (ref = 100 nm) 417 ENDIF 410 418 ENDDO 411 419 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.