Changeset 10914 for branches/UKMO

Timestamp:

2019-04-30T10:16:42+02:00 (5 years ago)

Author:

andmirek

Message:

GMED 450 flush iceberg files independent on lflush setting

File:

• branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ICB/icbdyn.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ICB/icbdyn.F90

@@ -374 +374 @@
         IF(numicb.NE.-1) THEN
            WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity'
-           IF(lflush) CALL flush(numicb)
+           CALL flush(numicb)
         ELSE
            WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity' 
-           IF(lflush) CALL flush(6)
+           CALL flush(6)
         ENDIF
       ENDIF
@@ -383 +383 @@
          IF(numicb.NE.-1) THEN
             WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration'
-            IF(lflush) CALL flush(numicb)
+            CALL flush(numicb)
          ELSE
             WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration'
-            IF(lflush) CALL flush(6)
+            CALL flush(6)
         ENDIF
       ENDIF