Changeset 4438 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DYN/dynnxt.F90

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:

• 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. ) 
       !
+#if defined ARPDBGSUM
       WRITE (*,*) 'ARPDBG: dyn_nxt: after lbc update sum(ua)=',SUM(ua),' at step=',kt
+#endif
+
 # if defined key_obc
       !                                !* OBC open boundaries
@@ -225 +228 @@
 #endif
 
+#if defined ARPDBGSUM
       WRITE(*,*) 'ARPDBG: dyn_nxt b4 time filter SUM(ua)=',SUM(ua),'at step=',kt
+#endif
 
       ! Time filter and swap of dynamics arrays
@@ -404 +409 @@
       ENDIF
 
+#if defined ARPDBGSUM
       WRITE(*,*) 'ARPDBG: dyn_nxt end SUM(un)=',SUM(un),'at step=',kt
+#endif
 
       IF(ln_ctl)   CALL prt_ctl( tab3d_1=un, clinfo1=' nxt  - Un: ', mask1=umask,   &