Changeset 3432 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

Timestamp:

2012-07-11T13:22:58+02:00 (12 years ago)

Author:

trackstand2

Message:

Merge branch 'ksection_partition'

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

@@ -64 +64 @@
       !!----------------------------------------------------------------------
 
+      !WRITE(*,*) narea,': ARPDBG: stp_ctl start, step=',kt
+
       IF( kt == nit000 .AND. lwp ) THEN
          WRITE(numout,*)
@@ -189 +191 @@
          ENDIF
          !
+         !WRITE(*,*) narea,': ARPDBG: calc zssh2, step=',kt
+         !zssh2 = SUM( sshn(:,:) )
+         !WRITE(*,*) narea,': ARPDBG: sum of sshn = ',zssh2,' at step=',kt
          zssh2 = SUM( sshn(:,:) * sshn(:,:) * tmask_i(:,:) )
+         !WRITE(*,*) narea,': ARPDBG: mpp_sum for zssh2 (',zssh2,'), step=',kt
          IF( lk_mpp )   CALL mpp_sum( zssh2 )      ! sum over the global domain
          !
@@ -195 +201 @@
          !
       ENDIF
+
+      !WRITE(*,*) narea,': ARPDBG: stp_ctl end, step=',kt
 
 9200  FORMAT('it:', i8, ' iter:', i4, ' r: ',e16.10, ' b: ',e16.10 )