Changeset 4416 for branches/2011

Timestamp:

2014-02-04T13:12:55+01:00 (10 years ago)

Author:

trackstand2

Message:

Added debug SUMs to dyn_nxt

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90 (modified) (3 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

@@ -168 +168 @@
       CALL lbc_lnk( va, 'V', -1. ) 
       !
+      WRITE (*,*) 'ARPDBG: dyn_nxt: after lbc update sum(ua)=',SUM(ua),' at step=',kt
 # if defined key_obc
       !                                !* OBC open boundaries
@@ -223 +224 @@
 # endif
 #endif
+
+      WRITE(*,*) 'ARPDBG: dyn_nxt b4 time filter SUM(ua)=',SUM(ua),'at step=',kt
 
       ! Time filter and swap of dynamics arrays
@@ -401 +404 @@
       ENDIF
 
+      WRITE(*,*) 'ARPDBG: dyn_nxt end SUM(un)=',SUM(un),'at step=',kt
+
       IF(ln_ctl)   CALL prt_ctl( tab3d_1=un, clinfo1=' nxt  - Un: ', mask1=umask,   &
          &                       tab3d_2=vn, clinfo2=' Vn: '       , mask2=vmask )