Changeset 1249 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/moy_undefSTD.F

Timestamp:

Oct 21, 2009, 6:04:08 PM (15 years ago)

Author:

yann meurdesoif

Message:

Corrections de Bug divers - portage vers Titane (CCRT) -
YM

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/moy_undefSTD.F (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/moy_undefSTD.F

@@ -53 +53 @@
        DO k=1, nlevSTD
         DO i=1, klon
-         IF(tnondef(i,k,1).NE.(ecrit_day/dtime)) THEN
+         IF (NINT(tnondef(i,k,1)).NE.NINT(ecrit_day/dtime)) THEN
           tsumSTD(i,k,1)=tsumSTD(i,k,1)/
      $    (ecrit_day/dtime-tnondef(i,k,1))