New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10753 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ICB/icbdyn.F90 – NEMO

Ignore:
Timestamp:
2019-03-14T16:34:25+01:00 (5 years ago)
Author:
andmirek
Message:

GMED 450: ICB model

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r6486 r10753  
    372372      !                                      ! check the speed and acceleration limits 
    373373      IF( ABS( zuveln ) > pp_vel_lim   .OR. ABS( zvveln ) > pp_vel_lim   )   & 
    374          WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity' 
     374         WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity' 
    375375      IF( ABS( pax    ) > pp_accel_lim .OR. ABS( pay    ) > pp_accel_lim )   & 
    376          WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration' 
     376         WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration' 
    377377      ! 
    378378   END SUBROUTINE icb_accel 
Note: See TracChangeset for help on using the changeset viewer.