Changeset 1112

Timestamp:

2008-06-13T17:23:36+02:00 (16 years ago)

Author:

rblod

Message:

Correct some prints in LIM3

Location:

trunk/NEMO/LIM_SRC_3

Files:

• iceini.F90 (modified) (3 diffs)
• limwri.F90 (modified) (4 diffs)

trunk/NEMO/LIM_SRC_3/iceini.F90

@@ -185 +185 @@
          zx1
 
-      WRITE(numout,*) 'lim_itd_ini : Initialization of ice thickness distribution '
-      WRITE(numout,*) '~~~~~~~~~~~~'
+      IF(lwp) WRITE(numout,*) 'lim_itd_ini : Initialization of ice thickness distribution '
+      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~'
 
       !!-- End of declarations
@@ -213 +213 @@
       END DO
 
-      WRITE(numout,*) ' Number of ice types jpm =      ', jpm
-      WRITE(numout,*) ' Number of ice categories jpl = ', jpl
-      DO jm = 1, jpm
-         WRITE(numout,*) ' Ice type ', jm
-         WRITE(numout,*) ' Number of thickness categories ', ice_ncat_types(jm)
-         WRITE(numout,*) ' Thickness category boundaries  ', ice_cat_bounds(jm,1:2)
-      END DO
-      WRITE(numout,*) 'Ice type vector', ice_types(1:jpl)
-      WRITE(numout,*)
+      IF(lwp) THEN  
+         WRITE(numout,*) ' Number of ice types jpm =      ', jpm
+         WRITE(numout,*) ' Number of ice categories jpl = ', jpl
+         DO jm = 1, jpm
+            WRITE(numout,*) ' Ice type ', jm
+            WRITE(numout,*) ' Number of thickness categories ', ice_ncat_types(jm)
+            WRITE(numout,*) ' Thickness category boundaries  ', ice_cat_bounds(jm,1:2)
+         END DO
+         WRITE(numout,*) 'Ice type vector', ice_types(1:jpl)
+         WRITE(numout,*)
+      ENDIF
 
       !- Thickness categories boundaries 
@@ -247 +249 @@
       END DO
 
-      WRITE(numout,*) ' Thickness category boundaries independently of ice type '
-      WRITE(numout,*) ' hi_max ', hi_max(0:jpl)
-
-      WRITE(numout,*) ' Thickness category boundaries inside ice types '
-      DO jm = 1, jpm
-         WRITE(numout,*) ' Type number ', jm
-         WRITE(numout,*) ' hi_max_typ : ', hi_max_typ(0:ice_ncat_types(jm),jm)
-      END DO
+      IF(lwp) WRITE(numout,*) ' Thickness category boundaries independently of ice type '
+      IF(lwp) WRITE(numout,*) ' hi_max ', hi_max(0:jpl)
+
+      IF(lwp) WRITE(numout,*) ' Thickness category boundaries inside ice types '
+      IF(lwp) THEN 
+         DO jm = 1, jpm
+            WRITE(numout,*) ' Type number ', jm
+            WRITE(numout,*) ' hi_max_typ : ', hi_max_typ(0:ice_ncat_types(jm),jm)
+         END DO
+      ENDIF
 
       DO jl = 1, jpl

trunk/NEMO/LIM_SRC_3/limwri.F90

@@ -125 +125 @@
          CALL lim_wri_init 
 
-         WRITE(numout,*) ' lim_wri, first time step '
-         WRITE(numout,*) ' add_diag_swi ', add_diag_swi
+         IF(lwp) WRITE(numout,*) ' lim_wri, first time step '
+         IF(lwp) WRITE(numout,*) ' add_diag_swi ', add_diag_swi
 
          !--------------------
@@ -150 +150 @@
 
          DO jf = 1 , noumef
-            WRITE(numout,*) 'jf', jf
+            IF(lwp) WRITE(numout,*) 'jf', jf
             IF ( nc(jf) == 1 ) THEN
                CALL histdef( nice, nam(jf), titn(jf), uni(jf), jpi, jpj &
                   , nhorid, 1, 1, 1, -99, 32, clop, zsto, zout )
-               WRITE(numout,*) 'nice, nam(jf), titn(jf), uni(jf), nhorid, clop, zsto, zout'
-               WRITE(numout,*)  nice, nam(jf), titn(jf), uni(jf), nhorid, clop, zsto, zout 
+               IF(lwp) WRITE(numout,*) 'nice, nam(jf), titn(jf), uni(jf), nhorid, clop, zsto, zout'
+               IF(lwp) WRITE(numout,*)  nice, nam(jf), titn(jf), uni(jf), nhorid, clop, zsto, zout 
             ENDIF
          END DO
@@ -316 +316 @@
 
       IF ( ( nn_fsbc * niter + nit000 - 1 ) >= nitend .OR. kindic < 0 ) THEN
-         WRITE(numout,*) ' Closing the icemod file '
+         IF( lwp) WRITE(numout,*) ' Closing the icemod file '
          CALL histclo( nice )
       ENDIF
@@ -375 +375 @@
 
          IF ( ( nn_fsbc * niter + nit000 - 1 ) >= nitend .OR. kindic < 0 ) THEN
-            WRITE(numout,*) ' Closing the icemod file '
+            IF(lwp) WRITE(numout,*) ' Closing the icemod file '
             CALL histclo( nicea ) 
          ENDIF