Changeset 106 for trunk/NEMO/OPA_SRC/ZDF/zdfmxl.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/ZDF/zdfmxl.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdfmxl.F90

@@ -132 +132 @@
       !                                                ! ===============
 
-      IF( l_ctl )   WRITE(numout,*) ' nmln : ', SUM( nmln(:,:) ), ' hmld: ', SUM( hmld(:,:) )
+      IF(l_ctl)   WRITE(numout,*) ' nmln : ', SUM( nmln(1:nictl+1,1:njctl+1) ), ' hmld: ', SUM( hmld(1:nictl+1,1:njctl+1) )
 
    END SUBROUTINE zdf_mxl
@@ -175 +175 @@
          IF(lwp) WRITE(numout,*) 'zdf_mxl : mixed layer depth'
          IF(lwp) WRITE(numout,*) '~~~~~~~ '
-         IF(lwp) WRITE(numout,*)
       ENDIF
 
@@ -234 +233 @@
       END DO
 
-      IF( l_ctl )   WRITE(numout,*) ' nmln : ', SUM( nmln(:,:) ), ' hmld: ', SUM( hmld(:,:) )
+      IF(l_ctl)   WRITE(numout,*) ' nmln : ', SUM( nmln(1:nictl+1,1:njctl+1) ), ' hmld: ', SUM( hmld(1:nictl+1,1:njctl+1) )
 
    END SUBROUTINE zdf_mxl