Changeset 1479 for LMDZ5/trunk/libf/phylmd/newmicro.F

Timestamp:

Jan 28, 2011, 3:32:46 PM (13 years ago)

Author:

Laurent Fairhead

Message:

Un peu de ménage sur les prints

---

A little cleanup on the prints

File:

• LMDZ5/trunk/libf/phylmd/newmicro.F (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/newmicro.F

@@ -51 +51 @@
 #include "radopt.h"
 c choix de l'hypothese de recouvrememnt nuageuse
-      LOGICAL RANDOM,MAXIMUM_RANDOM,MAXIMUM,FIRST
+      LOGICAL RANDOM,MAXIMUM_RANDOM,MAXIMUM
       parameter (RANDOM=.FALSE., MAXIMUM_RANDOM=.TRUE., MAXIMUM=.FALSE.)
+      LOGICAL, SAVE :: FIRST=.TRUE.
+!$OMP THREADPRIVATE(FIRST)
+
 c Hypoyhese de recouvrement : MAXIMUM_RANDOM
       INTEGER flag_max
@@ -526 +529 @@
             ENDDO
      
-            FIRST=.TRUE.
-
             DO i=1,klon
                DO k=klev-1,1,-1 !From TOA down