Changeset 1506 for LMDZ5/trunk/libf/phylmd

Timestamp:

Apr 10, 2011, 10:13:07 AM (14 years ago)

Author:

Laurent Fairhead

Message:

Encore des prints intempestifs a éliminer

---

Getting rid of some superfluous print statements

Location:

LMDZ5/trunk/libf/phylmd

Files:

• cv3_routines.F (modified) (4 diffs)
• fisrtilp.F90 (modified) (2 diffs)
• physiq.F (modified) (1 diff)

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
+        first = .false.
+      endif
+
 
       return
@@ -939 +946 @@
       parameter(sigs=0.15)
       integer flag_epKEorig
+      LOGICAL, SAVE :: FIRST=.TRUE.
+!$OMP THREADPRIVATE(FIRST)
 
 !=====================================================================
@@ -1060 +1069 @@
       CLOSE(99)
 9999  Continue
-      WRITE(*,*)'flag_epKEorig',flag_epKEorig
-      WRITE(*,*)'elcrit=',elcrit
-      WRITE(*,*)'tlcrit=',tlcrit
+      if (first) then
+        WRITE(*,*)'flag_epKEorig',flag_epKEorig
+        WRITE(*,*)'elcrit=',elcrit
+        WRITE(*,*)'tlcrit=',tlcrit
+        first=.false.
+      endif
 cIM end: ajout fis. reglage ep
 

LMDZ5/trunk/libf/phylmd/fisrtilp.F90

@@ -25 +25 @@
   include "tracstoke.h"
   include "fisrtilp.h"
+  include "iniprint.h"
+
   !
   ! Arguments:
@@ -142 +144 @@
   zdelq=0.0
 
-  print*,'NUAGES4 A. JAM'
+  if (prt_level>9)write(lunout,*)'NUAGES4 A. JAM'
   IF (appel1er) THEN
      !

LMDZ5/trunk/libf/phylmd/physiq.F

@@ -3355 +3355 @@
        IF (MOD(itap,NINT(freq_cosp/dtime)).EQ.0) THEN
 
-       print*,'freq_cosp',freq_cosp
+!       print*,'freq_cosp',freq_cosp
           mr_ozone=wo(:, :, 1) * dobson_u * 1e3 / zmasse
 !       print*,'Dans physiq.F avant appel cosp ref_liq,ref_ice=',