Changeset 249 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Aug 1, 2011, 11:22:11 AM (13 years ago)

Author:

emillour

Message:

Mars GCM:

• Fixed bug in readtesassim (timeflag was not always set before being used)

EM

File:

• trunk/LMDZ.MARS/libf/phymars/readtesassim.F90 (modified) (2 diffs)

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

@@ -222 +222 @@
       timeflag=.true.
    else 
+      timeflag=.false.
       do iloop=2,timelen
          if (realday<time(iloop)) then
@@ -268 +269 @@
       endif
    enddo
-   timeflag=.false.
 
    if ((dlat>1).OR.(dlon>1) .OR. (dlat<0) .OR. (dlon<0)) then