Changeset 2098 for LMDZ5/trunk/libf/phylmd/minmaxqfi.F90

Timestamp:

Jul 22, 2014, 12:51:23 PM (10 years ago)

Author:

lguez

Message:

Replaced 360 in calbeta_clim by length of current year according to
chosen calendar. Length of current year is given by
ioget_year_len. Since we already need this for ozone, moved the call
to ioget_year_len from physiq to phys_cal_mod and created variable
year_len of module phys_cal_mod.

Control the output from minmaxqfi.

Non-ASCII characters in comments are not always rendered properly and
they risk being lost. See revision 1740.

File:

• LMDZ5/trunk/libf/phylmd/minmaxqfi.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/minmaxqfi.F90

@@ -14 +14 @@
   INTEGER,DIMENSION(klon)     :: jadrs 
   INTEGER                     :: i, jbad, k
+
+  include "iniprint.h"
   
   DO k = 1, klev
@@ -24 +26 @@
      ENDDO
      IF (jbad.GT.0) THEN
-        WRITE(*,*)comment
-        DO i = 1, jbad
-           WRITE(*,*) "i,k,q=", jadrs(i),k,zq(jadrs(i),k)
-        ENDDO
+        WRITE(*,*)comment, "k = ", k, "jbad > 0"
+        if (prt_level >= 1) then
+           DO i = 1, jbad
+              WRITE(*,*) "i,q=", jadrs(i), zq(jadrs(i),k)
+           ENDDO
+        end if
      ENDIF
   ENDDO