Changeset 3099 for LMDZ6/trunk/libf
- Timestamp:
- Dec 3, 2017, 4:18:16 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phytrac_mod.F90
r3043 r3099 734 734 d_tr_th(i,k,it)=0. 735 735 tr_seri(i,k,it)=MAX(tr_seri(i,k,it),0.) 736 ! the next safeguard causes some problem for stratospheric aerosol tracers (particle number) 737 #ifndef CPP_StratAer 736 738 tr_seri(i,k,it)=MIN(tr_seri(i,k,it),1.e10) 739 #endif 737 740 END DO 738 741 END DO
Note: See TracChangeset
for help on using the changeset viewer.