Changeset 2523

Timestamp:

May 25, 2016, 2:15:42 PM (8 years ago)

Author:

fhourdin

Message:

Correction d'un bug dans l'interpollation temporelle des aérosols.
Bug fixing in temporal interpolation of aerosol fields.

File:

• LMDZ5/trunk/libf/phylmd/readaerosol_interp.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/readaerosol_interp.F90

@@ -313 +313 @@
           ! the second half of the month
           im2=im+1
-          day2 = month_mid(im+1)
-          day1 = month_mid(im2+1)
+          day1 = month_mid(im+1)
+          day2 = month_mid(im2+1)
           IF (im2 > 12) THEN
              ! the month is december, the following thus january
@@ -330 +330 @@
           ! the second half of the month
           im2=im+1
-          day2 = month_mid(im)
-          day1 = month_mid(im2)
+          day1 = month_mid(im)
+          day2 = month_mid(im2)
        END IF
      ELSE