Changeset 10913

Timestamp:

2019-04-30T10:04:22+02:00 (4 years ago)

Author:

andmirek

Message:

GMED 450 changes in diagnostic messages for iceberg model

File:

• branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ICB/icbdyn.F90 (modified) (1 diff)

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

@@ -371 +371 @@
       ENDIF
       !                                      ! check the speed and acceleration limits
-      IF( ABS( zuveln ) > pp_vel_lim   .OR. ABS( zvveln ) > pp_vel_lim   )   &
-         WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity'
-      IF( ABS( pax    ) > pp_accel_lim .OR. ABS( pay    ) > pp_accel_lim )   &
-         WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration'
+      IF( ABS( zuveln ) > pp_vel_lim   .OR. ABS( zvveln ) > pp_vel_lim   ) THEN
+        IF(numicb.NE.-1) THEN
+           WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity'
+           IF(lflush) CALL flush(numicb)
+        ELSE
+           WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity' 
+           IF(lflush) CALL flush(6)
+        ENDIF
+      ENDIF
+      IF( ABS( pax    ) > pp_accel_lim .OR. ABS( pay    ) > pp_accel_lim ) THEN
+         IF(numicb.NE.-1) THEN
+            WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration'
+            IF(lflush) CALL flush(numicb)
+         ELSE
+            WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration'
+            IF(lflush) CALL flush(6)
+        ENDIF
+      ENDIF
       !
    END SUBROUTINE icb_accel