Changeset 1112 for trunk/NEMO/LIM_SRC_3/limwri.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/limwri.F90 (modified) (4 diffs)

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