Changeset 1422 for LMDZ4/trunk/libf/phylmd

Timestamp:

Aug 2, 2010, 1:43:47 PM (14 years ago)

Author:

jghattas

Message:

Corrected error in use of flag prt_level.
MPL

File:

• LMDZ4/trunk/libf/phylmd/physiq.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -3081 +3081 @@
       itaprad = itaprad + 1
 
-      if (iflag_radia.eq.0 .and. prt_level.ge.9) then
-      print *,'--------------------------------------------------'
-      print *,'>>>> ATTENTION rayonnement desactive pour ce cas'
-      print *,'>>>>           heat et cool mis a zero '
-      print *,'--------------------------------------------------'
-      heat=0.
-      cool=0.
-      endif
+      IF (iflag_radia.eq.0) THEN
+         IF (prt_level.ge.9) THEN
+            PRINT *,'--------------------------------------------------'
+            PRINT *,'>>>> ATTENTION rayonnement desactive pour ce cas'
+            PRINT *,'>>>>           heat et cool mis a zero '
+            PRINT *,'--------------------------------------------------'
+         END IF
+         heat=0.
+         cool=0.
+      END IF
 
 c