Changeset 4413

Timestamp:

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

Author:

trackstand2

Message:

Remove debug output from stpctl

File:

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

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

@@ -54 +54 @@
       !!                
       !!----------------------------------------------------------------------
+      !USE arpdebugging, ONLY: dump_array
+      IMPLICIT none
       INTEGER, INTENT( in ) ::   kt         ! ocean time-step index
       INTEGER, INTENT( inout ) ::   kindic  ! indicator of solver convergence
@@ -65 +67 @@
 
       !WRITE(*,*) narea,': ARPDBG: stp_ctl start, step=',kt
+      !IF(kt == 1)THEN
+      !   CALL dump_array(kt,'tmask_i',tmask_i,withHalos=.TRUE.)
+      !END IF
 
       IF( kt == nit000 .AND. lwp ) THEN
@@ -194 +199 @@
          !zssh2 = SUM( sshn(:,:) )
          !WRITE(*,*) narea,': ARPDBG: sum of sshn = ',zssh2,' at step=',kt
+         !zssh2 = SUM( tmask_i(:,:) )
+         !WRITE(*,*) narea,': ARPDBG: sum of tmask_i = ',zssh2,' at step=',kt
          zssh2 = SUM( sshn(:,:) * sshn(:,:) * tmask_i(:,:) )
          !WRITE(*,*) narea,': ARPDBG: mpp_sum for zssh2 (',zssh2,'), step=',kt