Changeset 10968 for NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbini.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/OCE/ICB/icbini.F90 (modified) (5 diffs)

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ICB/icbini.F90

@@ -89 +89 @@
       !                          ! note that we choose to do this on all processors since we cannot
       !                          ! predict where icebergs will be ahead of time
-      IF( nn_verbose_level > 0) THEN
+      numicb=-1
+      IF( nn_verbose_level > 0 .AND. nprint>0) THEN
          CALL ctl_opn( numicb, 'icebergs.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )
+      ELSE 
+         IF(lwp) CALL ctl_opn( numicb, 'icebergs.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea ) 
       ENDIF
 
@@ -200 +203 @@
       ENDIF
       !
-      IF( nn_verbose_level > 0) THEN
+      IF( nn_verbose_level > 0  .AND. numicb.NE.-1 ) THEN
          WRITE(numicb,*) 'processor ', narea
          WRITE(numicb,*) 'jpi, jpj   ', jpi, jpj
@@ -262 +265 @@
          CALL iom_close( inum )                                     ! close file
          !
-         IF( nn_verbose_level > 0) THEN
+         IF( nn_verbose_level > 0  .AND. numicb.NE.-1 ) THEN
             WRITE(numicb,*)
             WRITE(numicb,*) '          calving read in a file'
@@ -359 +362 @@
       ibergs = icb_utl_count()
       CALL mpp_sum('icbini', ibergs)
-      IF( nn_verbose_level > 0) THEN
+      IF( nn_verbose_level > 0  .AND. numicb.NE.-1 ) THEN
          WRITE(numicb,'(a,i6,a)') 'diamonds, icb_ini_gen: ',ibergs,' were generated'
       ENDIF
@@ -410 +413 @@
       READ  ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 )
 902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist', lwp )
-      IF(lwm) WRITE ( numond, namberg )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namberg )
       !
       IF(lwp) WRITE(numout,*)