Changeset 2745 for LMDZ5

Timestamp:

Jan 5, 2017, 4:46:15 PM (8 years ago)

Author:

oboucher

Message:

initialisation of mth_pre for first timestep

File:

• LMDZ5/trunk/libf/phylmd/readaerosolstrato.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/readaerosolstrato.F90

@@ -33 +33 @@
     real, pointer:: lev(:)
     integer i, k, band, wave
-    integer, save :: mth_pre
+    integer, save :: mth_pre=1
 !$OMP THREADPRIVATE(mth_pre)