Changeset 10913


Ignore:
Timestamp:
2019-04-30T10:04:22+02:00 (18 months ago)
Author:
andmirek
Message:

GMED 450 changes in diagnostic messages for iceberg model

File:
1 edited

Legend:

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

    r10753 r10913  
    371371      ENDIF 
    372372      !                                      ! check the speed and acceleration limits 
    373       IF( ABS( zuveln ) > pp_vel_lim   .OR. ABS( zvveln ) > pp_vel_lim   )   & 
    374          WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity' 
    375       IF( ABS( pax    ) > pp_accel_lim .OR. ABS( pay    ) > pp_accel_lim )   & 
    376          WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration' 
     373      IF( ABS( zuveln ) > pp_vel_lim   .OR. ABS( zvveln ) > pp_vel_lim   ) THEN 
     374        IF(numicb.NE.-1) THEN 
     375           WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity' 
     376           IF(lflush) CALL flush(numicb) 
     377        ELSE 
     378           WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive velocity'  
     379           IF(lflush) CALL flush(6) 
     380        ENDIF 
     381      ENDIF 
     382      IF( ABS( pax    ) > pp_accel_lim .OR. ABS( pay    ) > pp_accel_lim ) THEN 
     383         IF(numicb.NE.-1) THEN 
     384            WRITE(numicb,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration' 
     385            IF(lflush) CALL flush(numicb) 
     386         ELSE 
     387            WRITE(*,'("pe=",i3,x,a)') narea,'Dump triggered by excessive acceleration' 
     388            IF(lflush) CALL flush(6) 
     389        ENDIF 
     390      ENDIF 
    377391      ! 
    378392   END SUBROUTINE icb_accel 
Note: See TracChangeset for help on using the changeset viewer.