Changeset 1544 for trunk/LMDZ.MARS/libf

Timestamp:

Apr 25, 2016, 8:58:05 AM (9 years ago)

Author:

emillour

Message:

Mars GCM:

• Bug fix in read_dust_scenario.F90 to handle the limit case of identical realday and time() values at the end of the year.

LS

File:

• trunk/LMDZ.MARS/libf/phymars/read_dust_scenario.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/read_dust_scenario.F90

@@ -274 +274 @@
       timeflag=.false.
       do iloop=2,timelen
-         if (realday<time(iloop)) then
+         if (realday<=time(iloop)) then
             tinf=iloop-1
             tsup=iloop