Changeset 10948 for NEMO/branches/UKMO/NEMO_4.0_GO8_package_text_diagnostics/src/OCE/ICB/icbini.F90

Timestamp:

2019-05-08T15:01:52+02:00 (5 years ago)

Author:

andmirek

Message:

GMED 462 iceberg model

File:

• NEMO/branches/UKMO/NEMO_4.0_GO8_package_text_diagnostics/src/OCE/ICB/icbini.F90 (modified) (4 diffs)

NEMO/branches/UKMO/NEMO_4.0_GO8_package_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