Changeset 1112 for trunk/NEMO/LIM_SRC_3/iceini.F90

Timestamp:

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

Author:

rblod

Message:

Correct some prints in LIM3

File:

• trunk/NEMO/LIM_SRC_3/iceini.F90 (modified) (3 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