Changeset 4416


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

Added debug SUMs to dyn_nxt

File:
1 edited

Legend:

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

    r3837 r4416  
    168168      CALL lbc_lnk( va, 'V', -1. )  
    169169      ! 
     170      WRITE (*,*) 'ARPDBG: dyn_nxt: after lbc update sum(ua)=',SUM(ua),' at step=',kt 
    170171# if defined key_obc 
    171172      !                                !* OBC open boundaries 
     
    223224# endif 
    224225#endif 
     226 
     227      WRITE(*,*) 'ARPDBG: dyn_nxt b4 time filter SUM(ua)=',SUM(ua),'at step=',kt 
    225228 
    226229      ! Time filter and swap of dynamics arrays 
     
    401404      ENDIF 
    402405 
     406      WRITE(*,*) 'ARPDBG: dyn_nxt end SUM(un)=',SUM(un),'at step=',kt 
     407 
    403408      IF(ln_ctl)   CALL prt_ctl( tab3d_1=un, clinfo1=' nxt  - Un: ', mask1=umask,   & 
    404409         &                       tab3d_2=vn, clinfo2=' Vn: '       , mask2=vmask ) 
Note: See TracChangeset for help on using the changeset viewer.