Changeset 106 for trunk/NEMO/OPA_SRC/LDF/ldfeiv.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/LDF/ldfeiv.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90

@@ -158 +158 @@
       CALL lbc_lnk( aeiv, 'V', 1. )
 
-      IF(l_ctl)   WRITE(numout,*) ' eiv  - u: ', SUM( aeiu(:,:) ), ' v: ', SUM( aeiv(:,:) )
+      IF(l_ctl)   WRITE(numout,*) ' eiv  - u: ', SUM( aeiu(1:nictl+1,1:njctl+1) ), ' v: ', SUM( aeiv(1:nictl+1,1:njctl+1) )
 
 
@@ -174 +174 @@
             END DO
          END DO
-         IF(l_ctl)   WRITE(numout,*) ' aht  - u: ', SUM( ahtu(:,:) ), ' v: ', SUM( ahtv(:,:) ), ' w: ', SUM( ahtw(:,:) )
+         IF(l_ctl) THEN
+            WRITE(numout,*)' aht  - u: ', SUM( ahtu(1:nictl+1,1:njctl+1) )
+            WRITE(numout,*)'      - v: ', SUM( ahtv(1:nictl+1,1:njctl+1) )
+            WRITE(numout,*)'      - w: ', SUM( ahtw(1:nictl+1,1:njctl+1) )
+         ENDIF
       ENDIF
 
@@ -319 +323 @@
       CALL lbc_lnk( aeiv, 'V', 1. )
 
-      IF(l_ctl)   WRITE(numout,*) ' eiv  - u: ', SUM( aeiu(:,:) ), ' v: ', SUM( aeiv(:,:) )
+      IF(l_ctl)   WRITE(numout,*) ' eiv  - u: ', SUM( aeiu(1:nictl+1,1:njctl+1) ), ' v: ', SUM( aeiv(1:nictl+1,1:njctl+1) )
 
       ! ORCA R05: add a space variation on aht (=aeiv except at the equator and river mouth)
@@ -334 +338 @@
             END DO
          END DO
-         IF(l_ctl)   WRITE(numout,*) ' aht  - u: ', SUM( ahtu(:,:) ), ' v: ', SUM( ahtv(:,:) ), ' w: ', SUM( ahtw(:,:) )
+         IF(l_ctl) THEN
+            WRITE(numout,*) ' aht  - u: ', SUM( ahtu(1:nictl+1,1:njctl+1) )
+            WRITE(numout,*) '      - v: ', SUM( ahtv(1:nictl+1,1:njctl+1) )
+            WRITE(numout,*) '      - w: ', SUM( ahtw(1:nictl+1,1:njctl+1) )
+         ENDIF
       ENDIF