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

trunk/NEMO/LIM_SRC/limhdf.F90

@@ -167 +167 @@
       ptab(:,:) = ptab(:,:)
 
-      IF(l_ctl)   WRITE(numout,*) ' lim_hdf  : ', SUM( ptab-ptab0 ), ' zconv= ', zconv, ' iter= ', iter
+      IF(l_ctl)   WRITE(numout,*) ' lim_hdf  : ', SUM( ptab(2:nictl,2:njctl)-ptab0(2:nictl,2:njctl) ), &
+      &                                        ' zconv= ', zconv, ' iter= ', iter
 
    END SUBROUTINE lim_hdf