Changeset 3099

Timestamp:

Dec 3, 2017, 4:18:16 PM (6 years ago)

Author:

oboucher

Message:

Removing a line that causes some trouble for conservation of stratospheric aerosols

File:

• LMDZ6/trunk/libf/phylmd/phytrac_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/phytrac_mod.F90

@@ -734 +734 @@
              d_tr_th(i,k,it)=0.
              tr_seri(i,k,it)=MAX(tr_seri(i,k,it),0.)
+! the next safeguard causes some problem for stratospheric aerosol tracers (particle number)
+#ifndef CPP_StratAer
              tr_seri(i,k,it)=MIN(tr_seri(i,k,it),1.e10)
+#endif
           END DO
        END DO