Changeset 106 for trunk/NEMO/OPA_SRC/DYN/dynnxt.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/DYN/dynnxt.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DYN/dynnxt.F90

@@ -133 +133 @@
       !                                                ! ===============
 
-      IF(l_ctl)   WRITE(numout,*) ' nxt  - Un: ', SUM(un*umask), ' Vn: ', SUM(vn*vmask)
+      IF(l_ctl)   WRITE(numout,*) ' nxt  - Un: ', SUM(un(2:nictl,2:njctl,1:jpkm1)*umask(2:nictl,2:njctl,1:jpkm1)), &
+      &                                  ' Vn: ', SUM(vn(2:nictl,2:njctl,1:jpkm1)*vmask(2:nictl,2:njctl,1:jpkm1))
 
    END SUBROUTINE dyn_nxt