Changeset 2088 for LMDZ5/trunk/libf/dyn3d_common

Timestamp:

Jul 11, 2014, 2:52:53 PM (10 years ago)

Author:

lguez

Message:

Control the output from ce0l.

File:

• LMDZ5/trunk/libf/dyn3d_common/grid_atob.F (modified) (12 diffs)

LMDZ5/trunk/libf/dyn3d_common/grid_atob.F

@@ -52 +52 @@
       REAL zzmin
 #endif
+      include "iniprint.h"
 c
       IF (imar.GT.2200 .OR. jmar.GT.1100) THEN
@@ -118 +119 @@
          sortie(i,j) = sortie(i,j) / number(i,j)
          ELSE
-         PRINT*, 'probleme,i,j=', i,j
+         if (prt_level >= 1) PRINT*, 'probleme,i,j=', i,j
 ccc         CALL ABORT_GCM("", "", 1)
          CALL dist_sphe(x(i),y(j),xdata,ydata,imdep,jmdep,distans)
@@ -135 +136 @@
          j_proche = (ij_proche-1)/imdep + 1
          i_proche = ij_proche - (j_proche-1)*imdep
-         PRINT*, "solution:", ij_proche, i_proche, j_proche
+         if (prt_level >= 1) PRINT*, "solution:", ij_proche, i_proche,
+     $        j_proche
          sortie(i,j) = entree(i_proche,j_proche)
          ENDIF
@@ -449 +451 @@
       REAL zzmin
 #endif
+      include "iniprint.h"
 c
       IF (imar.GT.400 .OR. jmar.GT.400) THEN
@@ -512 +515 @@
             sortie(i,j) = EXP(sortie(i,j))
          ELSE
-            PRINT*, 'probleme,i,j=', i,j
+            if (prt_level >= 1) PRINT*, 'probleme,i,j=', i,j
 ccc            CALL ABORT_GCM("", "", 1)
          CALL dist_sphe(x(i),y(j),xdata,ydata,imdep,jmdep,distans)
@@ -529 +532 @@
          j_proche = (ij_proche-1)/imdep + 1
          i_proche = ij_proche - (j_proche-1)*imdep
-         PRINT*, "solution:", ij_proche, i_proche, j_proche
+         if (prt_level >= 1) PRINT*, "solution:", ij_proche, i_proche,
+     $        j_proche
          sortie(i,j) = entree(i_proche,j_proche)
          ENDIF
@@ -574 +578 @@
       REAL zzmin
 #endif
+      include "iniprint.h"
 c
       IF (imar.GT.400 .OR. jmar.GT.400) THEN
@@ -641 +646 @@
            ENDIF
          ELSE
-           PRINT*, 'probleme,i,j=', i,j
+           if (prt_level >= 1) PRINT*, 'probleme,i,j=', i,j
 ccc           CALL ABORT_GCM("", "", 1)
          CALL dist_sphe(x(i),y(j),xdata,ydata,imdep,jmdep,distans)
@@ -658 +663 @@
          j_proche = (ij_proche-1)/imdep + 1
          i_proche = ij_proche - (j_proche-1)*imdep
-         PRINT*, "solution:", ij_proche, i_proche, j_proche
+         if (prt_level >= 1) PRINT*, "solution:", ij_proche, i_proche,
+     $        j_proche
          IF (NINT(glace01(i_proche,j_proche)).EQ.1 ) THEN
             frac_ice(i,j) = 1.0
@@ -710 +716 @@
       INTEGER i_proche, j_proche, ij_proche
 c
+      include "iniprint.h"
+
       IF (immod.GT.2200 .OR. jmmod.GT.1100) THEN
          PRINT*, 'immod ou jmmod trop grand', immod, jmmod
@@ -874 +882 @@
          rugs(i,j) = EXP(rugs(i,j))
          ELSE
-         PRINT*, 'probleme,i,j=', i,j
+         if (prt_level >= 1) PRINT*, 'probleme,i,j=', i,j
 ccc         CALL ABORT_GCM("", "", 1)
          CALL dist_sphe(xmod(i),ymod(j),xtmp,ytmp,imtmp,jmtmp,distans)
@@ -891 +899 @@
          j_proche = (ij_proche-1)/imtmp + 1
          i_proche = ij_proche - (j_proche-1)*imtmp
-         PRINT*, "solution:", ij_proche, i_proche, j_proche
+         if (prt_level >= 1) PRINT*, "solution:", ij_proche, i_proche,
+     $        j_proche
          rugs(i,j) = LOG(MAX(0.001_8,cham2tmp(i_proche,j_proche)))
          ENDIF