Changeset 1544

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

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/read_dust_scenario.F90 (modified) (1 diff)

trunk/LMDZ.MARS/README

@@ -2277 +2277 @@
   mod_interface_dyn_phys.F90 in dynphy_lonlat.
   Added nrtype.F90 (contains math const. like PI, etc.) in "misc"
+
+== 25/04/2016 == LS
+- Bug fix in read_dust_scenario.F90 to handle the limit case
+  of identical realday and time() values at the end of the year.

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