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

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

@@ -372 +372 @@
       !                                      ! check the speed and acceleration limits
       IF (nn_verbose_level > 0) THEN
-         IF( ABS( zuveln ) > pp_vel_lim   .OR. ABS( zvveln ) > pp_vel_lim   )   &
-            WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity'
-         IF( ABS( pax    ) > pp_accel_lim .OR. ABS( pay    ) > pp_accel_lim )   &
-            WRITE(numicb,'("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' 
+              ELSE 
+                  WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity'  
+              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' 
+              ELSE 
+                  WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration' 
+              ENDIF 
+          ENDIF
       ENDIF
       !