Changeset 4413


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

Remove debug output from stpctl

File:
1 edited

Legend:

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

    r3432 r4413  
    5454      !!                 
    5555      !!---------------------------------------------------------------------- 
     56      !USE arpdebugging, ONLY: dump_array 
     57      IMPLICIT none 
    5658      INTEGER, INTENT( in ) ::   kt         ! ocean time-step index 
    5759      INTEGER, INTENT( inout ) ::   kindic  ! indicator of solver convergence 
     
    6567 
    6668      !WRITE(*,*) narea,': ARPDBG: stp_ctl start, step=',kt 
     69      !IF(kt == 1)THEN 
     70      !   CALL dump_array(kt,'tmask_i',tmask_i,withHalos=.TRUE.) 
     71      !END IF 
    6772 
    6873      IF( kt == nit000 .AND. lwp ) THEN 
     
    194199         !zssh2 = SUM( sshn(:,:) ) 
    195200         !WRITE(*,*) narea,': ARPDBG: sum of sshn = ',zssh2,' at step=',kt 
     201         !zssh2 = SUM( tmask_i(:,:) ) 
     202         !WRITE(*,*) narea,': ARPDBG: sum of tmask_i = ',zssh2,' at step=',kt 
    196203         zssh2 = SUM( sshn(:,:) * sshn(:,:) * tmask_i(:,:) ) 
    197204         !WRITE(*,*) narea,': ARPDBG: mpp_sum for zssh2 (',zssh2,'), step=',kt 
Note: See TracChangeset for help on using the changeset viewer.