Changeset 10570 for NEMO/trunk/src/OCE/ICB/icbini.F90

Timestamp:

2019-01-24T16:14:49+01:00 (5 years ago)

Author:

acc

Message:

Trunk update to implement finer control over the choice of text report files generated. See ticket: #2167

File:

• NEMO/trunk/src/OCE/ICB/icbini.F90 (modified) (3 diffs)

NEMO/trunk/src/OCE/ICB/icbini.F90

@@ -78 +78 @@
       !                          ! note that we choose to do this on all processors since we cannot
       !                          ! predict where icebergs will be ahead of time
-      CALL ctl_opn( numicb, 'icebergs.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )
+      IF( nn_verbose_level > 0) THEN
+         CALL ctl_opn( numicb, 'icebergs.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )
+      ENDIF
 
       ! set parameters (mostly from namelist)
@@ -241 +243 @@
          CALL iom_close( inum )                                     ! close file
          !
-         WRITE(numicb,*)
-         WRITE(numicb,*) '          calving read in a file'
+         IF( nn_verbose_level > 0) THEN
+            WRITE(numicb,*)
+            WRITE(numicb,*) '          calving read in a file'
+         ENDIF
          ALLOCATE( sf_icb(1), STAT=istat1 )         ! Create sf_icb structure (calving)
          ALLOCATE( sf_icb(1)%fnow(jpi,jpj,1), STAT=istat2 )
@@ -336 +340 @@
       ibergs = icb_utl_count()
       CALL mpp_sum('icbini', ibergs)
-      WRITE(numicb,'(a,i6,a)') 'diamonds, icb_ini_gen: ',ibergs,' were generated'
+      IF( nn_verbose_level > 0) THEN
+         WRITE(numicb,'(a,i6,a)') 'diamonds, icb_ini_gen: ',ibergs,' were generated'
+      ENDIF
       !
    END SUBROUTINE icb_ini_gen