Ignore:
Timestamp:
2014-02-04T13:14:59+01:00 (7 years ago)
Author:
trackstand2
Message:

Protect debug SUM output in dynnxt and sshwzv with ARPDBGSUM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

    r4416 r4438  
    168168      CALL lbc_lnk( va, 'V', -1. )  
    169169      ! 
     170#if defined ARPDBGSUM 
    170171      WRITE (*,*) 'ARPDBG: dyn_nxt: after lbc update sum(ua)=',SUM(ua),' at step=',kt 
     172#endif 
     173 
    171174# if defined key_obc 
    172175      !                                !* OBC open boundaries 
     
    225228#endif 
    226229 
     230#if defined ARPDBGSUM 
    227231      WRITE(*,*) 'ARPDBG: dyn_nxt b4 time filter SUM(ua)=',SUM(ua),'at step=',kt 
     232#endif 
    228233 
    229234      ! Time filter and swap of dynamics arrays 
     
    404409      ENDIF 
    405410 
     411#if defined ARPDBGSUM 
    406412      WRITE(*,*) 'ARPDBG: dyn_nxt end SUM(un)=',SUM(un),'at step=',kt 
     413#endif 
    407414 
    408415      IF(ln_ctl)   CALL prt_ctl( tab3d_1=un, clinfo1=' nxt  - Un: ', mask1=umask,   & 
Note: See TracChangeset for help on using the changeset viewer.