Changeset 10570 for NEMO/trunk/src/OCE/ICB/icbdyn.F90

Timestamp:

2019-01-24T16:14:49+01:00 (5 years ago)

Author:

acc

Message:

Trunk update to implement finer control over the choice of text report files generated. See ticket: #2167

File:

• NEMO/trunk/src/OCE/ICB/icbdyn.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/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(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 (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'
+      ENDIF
       !
    END SUBROUTINE icb_accel