Changeset 10968 for NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icerst.F90

Timestamp:

2019-05-13T11:43:03+02:00 (5 years ago)

Author:

andmirek

Message:

GMED 462 print levels implementation

File:

• NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icerst.F90 (modified) (4 diffs)

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/ICE/icerst.F90

@@ -67 +67 @@
             clpath = TRIM(cn_icerst_outdir) 
             IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath)//'/'
-            IF(lwp) THEN
+            IF(lwp .AND. nprint > 0) THEN
                WRITE(numout,*)
                WRITE(numout,*) '             open ice restart NetCDF file: ',TRIM(clpath)//clname
@@ -104 +104 @@
       iter = kt + nn_fsbc - 1   ! ice restarts are written at kt == nitrst - nn_fsbc + 1
 
-      IF( iter == nitrst ) THEN
+      IF( iter == nitrst .AND. nprint > 0 ) THEN
          IF(lwp) WRITE(numout,*)
          IF(lwp) WRITE(numout,*) 'ice_rst_write : write ice restart file  kt =', kt
@@ -176 +176 @@
       !!----------------------------------------------------------------------
 
-      IF(lwp) THEN
+      IF(lwp .AND. nprint > 0) THEN
          WRITE(numout,*)
          WRITE(numout,*) 'ice_rst_read: read ice NetCDF restart file'
@@ -186 +186 @@
       CALL iom_get( numrir, 'nn_fsbc', zfice )
       CALL iom_get( numrir, 'kt_ice' , ziter )    
-      IF(lwp) WRITE(numout,*) '   read ice restart file at time step    : ', ziter
-      IF(lwp) WRITE(numout,*) '   in any case we force it to nit000 - 1 : ', nit000 - 1
+      IF(lwp .AND. nprint > 0) WRITE(numout,*) '   read ice restart file at time step    : ', ziter
+      IF(lwp .AND. nprint > 0) WRITE(numout,*) '   in any case we force it to nit000 - 1 : ', nit000 - 1
 
       ! Control of date