Changeset 106 for trunk/NEMO/OPA_SRC/TRA/tranxt.F90

Timestamp:

2004-06-28T10:08:06+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE067 : Add control indices nictl, njctl used in SUM function output to compare mono versus multi procs runs

File:

• trunk/NEMO/OPA_SRC/TRA/tranxt.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRA/tranxt.F90

@@ -164 +164 @@
 
       IF(l_ctl) THEN         ! print mean field (used for debugging)
-         WRITE(numout,*) ' nxt  - Tn: ', SUM(tn*tmask), ' Sn: ', SUM(sn*tmask)
+         WRITE(numout,*) ' nxt  - Tn: ', SUM(tn(2:nictl,2:njctl,1:jpkm1)*tmask(2:nictl,2:njctl,1:jpkm1)), &
+         &                      ' Sn: ', SUM(sn(2:nictl,2:njctl,1:jpkm1)*tmask(2:nictl,2:njctl,1:jpkm1)) 
       ENDIF