Changeset 1479 for LMDZ5/trunk/libf/phylmd/cv3_routines.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/cv3_routines.F (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/cv3_routines.F

@@ -38 +38 @@
       CHARACTER (LEN=20) :: modname='cv3_param'
       CHARACTER (LEN=80) :: abort_message
+      LOGICAL, SAVE :: FIRST=.TRUE.
+!$OMP THREADPRIVATE(FIRST)
+
 
 c noff: integer limit for convection (nd-noff)
@@ -100 +103 @@
       CLOSE(99)
 9999  Continue
-      WRITE(*,*)'dpbase=',dpbase
-      WRITE(*,*)'pbcrit=',pbcrit
-      WRITE(*,*)'ptcrit=',ptcrit
-      WRITE(*,*)'sigdz=',sigdz
-      WRITE(*,*)'spfac=',spfac
+      if (first) then
+        WRITE(*,*)'dpbase=',dpbase
+        WRITE(*,*)'pbcrit=',pbcrit
+        WRITE(*,*)'ptcrit=',ptcrit
+        WRITE(*,*)'sigdz=',sigdz
+        WRITE(*,*)'spfac=',spfac
+      endif
 
       return