Changeset 106 for trunk/NEMO/OPA_SRC/TRA/trabbl_adv.h90

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/trabbl_adv.h90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRA/trabbl_adv.h90

@@ -407 +407 @@
       END DO
 
-      IF( l_ctl .AND. lwp ) THEN
-         zta = SUM( ta(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) )
-         zsa = SUM( sa(2:jpim1,2:jpjm1,1:jpkm1) * tmask(2:jpim1,2:jpjm1,1:jpkm1) )
+      IF(l_ctl) THEN
+         zta = SUM( ta(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) )
+         zsa = SUM( sa(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) )
          WRITE(numout,*) ' bbl  - Ta: ', zta-t_ctl, ' Sa: ', zsa-s_ctl
          t_ctl = zta   ;   s_ctl = zsa