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

Timestamp:

2014-02-04T13:14:59+01:00 (10 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/sshwzv.F90 (modified) (4 diffs)

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

@@ -225 +225 @@
       IF( neuler == 0 .AND. kt == nit000 )   z2dt = rdt
 
+#if defined ARPDBGSUM
       WRITE(*,*)'ARPDBG, ssh_wzv: sum WWW of hdivn=',SUM(hdivn),' at step=',kt
       WRITE(*,*)'ARPDBG, ssh_wzv: sum WWW of fse3t=',SUM(fse3t(:,:,:)),' at step=',kt
-
+#endif
       !                                           !------------------------------!
       !                                           !   After Sea Surface Height   !
@@ -245 +246 @@
       END DO
 #endif
+
+#if defined ARPDBGSUM
       WRITE(*,*)'ARPDBG, ssh_wzv: sum XXX of zhdiv=',SUM(zhdiv),' at step=',kt
       WRITE(*,*)'ARPDBG, ssh_wzv: sum XXX of ssha=',SUM(ssha),' at step=',kt
+#endif
       !                                                ! Sea surface elevation time stepping
       ! In forward Euler time stepping case, the same formulation as in the leap-frog case can be used
@@ -256 +260 @@
       ssha(:,:) = (  sshb(:,:) - z2dt * ( z1_rau0 * ( emp_b(:,:) + emp(:,:) ) + zhdiv(:,:) )  ) * tmask(:,:,1)
 #endif
+
+#if defined ARPDBGSUM
       WRITE(*,*)'ARPDBG, ssh_wzv: sum YYY of sshb=',SUM(sshb),' at step=',kt
       WRITE(*,*)'ARPDBG, ssh_wzv: sum YYY of ssha=',SUM(ssha),' at step=',kt
+#endif
+
 #if defined key_agrif
       CALL agrif_ssh( kt )
@@ -424 +432 @@
             !
          ELSE                                         !** Leap-Frog time-stepping: Asselin filter + swap
+
+#if defined ARPDBGSUM
             WRITE(*,*) 'ARPDBG: ssh_nxt: SUM of sshb = ',SUM(sshb),' at step=',kt
             WRITE(*,*) 'ARPDBG: ssh_nxt: SUM of sshn = ',SUM(sshn),' at step=',kt
+#endif
+
             zec = atfp * rdt / rau0
             DO jj = 1, jpj