Changeset 10948 for NEMO/branches/UKMO/NEMO_4.0_GO8_package_text_diagnostics/src/OCE/ICB/icbutl.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/icbutl.F90 (modified) (3 diffs)

NEMO/branches/UKMO/NEMO_4.0_GO8_package_text_diagnostics/src/OCE/ICB/icbutl.F90

@@ -648 +648 @@
       IF (nn_verbose_level == 0) RETURN
       pt => berg%current_point
-      WRITE(numicb, 9200) kt, berg%number(1), &
+      IF(numicb.NE.-1) THEN
+          WRITE(numicb, 9200) kt, berg%number(1), &
                    pt%xi, pt%yj, pt%lon, pt%lat, pt%uvel, pt%vvel,  &
                    pt%uo, pt%vo, pt%ua, pt%va, pt%ui, pt%vi
-      CALL flush( numicb )
+          CALL flush( numicb )
+      ENDIF
  9200 FORMAT(5x,i5,2x,i10,6(2x,2f10.4))
       !
@@ -673 +675 @@
       IF (nn_verbose_level == 0) RETURN
       this => first_berg
-      IF( ASSOCIATED(this) ) THEN
+      IF( ASSOCIATED(this) .AND. numicb.NE.-1 ) THEN
          WRITE(numicb,'(a," pe=(",i3,")")' ) cd_label, narea
          WRITE(numicb,'(a8,4x,a6,12x,a5,15x,a7,19x,a3,17x,a5,17x,a5,17x,a5)' )   &
@@ -685 +687 @@
       inbergs = ibergs
       CALL mpp_sum('icbutl', inbergs)
-      IF( ibergs > 0 )   WRITE(numicb,'(a," there are",i5," bergs out of",i6," on PE ",i4)')   &
+      IF( ibergs > 0 .AND. numicb.NE.-1 )   WRITE(numicb,'(a," there are",i5," bergs out of",i6," on PE ",i4)')   &
          &                                  cd_label, ibergs, inbergs, narea
       !