Changeset 1295 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/calltherm.F90

Timestamp:

Jan 14, 2010, 4:40:29 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Erreur sur une bidouille

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/calltherm.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/calltherm.F90

@@ -213 +213 @@
          endif
 
-       flag_bidouille_stratocu=iflag_thermals.lt.14.or.iflag_thermals.lt.16
+       flag_bidouille_stratocu=iflag_thermals.eq.14.or.iflag_thermals.eq.16
 
       fact(:)=0.