Changeset 4413
- Timestamp:
- 2014-02-04T13:12:40+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/stpctl.F90
r3432 r4413 54 54 !! 55 55 !!---------------------------------------------------------------------- 56 !USE arpdebugging, ONLY: dump_array 57 IMPLICIT none 56 58 INTEGER, INTENT( in ) :: kt ! ocean time-step index 57 59 INTEGER, INTENT( inout ) :: kindic ! indicator of solver convergence … … 65 67 66 68 !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 67 72 68 73 IF( kt == nit000 .AND. lwp ) THEN … … 194 199 !zssh2 = SUM( sshn(:,:) ) 195 200 !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 196 203 zssh2 = SUM( sshn(:,:) * sshn(:,:) * tmask_i(:,:) ) 197 204 !WRITE(*,*) narea,': ARPDBG: mpp_sum for zssh2 (',zssh2,'), step=',kt
Note: See TracChangeset
for help on using the changeset viewer.