Changeset 258 for trunk/NEMO/OPA_SRC/ZDF/zdfmxl.F90

Timestamp:

2005-09-02T17:48:36+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_004 : CT : Integration of the control print option for debugging work

File:

• trunk/NEMO/OPA_SRC/ZDF/zdfmxl.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdfmxl.F90

@@ -13 +13 @@
    USE zdf_oce         ! ocean vertical physics
    USE in_out_manager  ! I/O manager
+   USE prtctl          ! Print control
 
    IMPLICIT NONE
@@ -134 +135 @@
       !                                                ! ===============
 
-      IF(l_ctl)   WRITE(numout,*) ' nmln : ', SUM( nmln(1:nictl+1,1:njctl+1) ), ' hmld: ', SUM( hmld(1:nictl+1,1:njctl+1) )
+      IF(ln_ctl)   THEN
+         CALL prt_ctl(tab2d_1=FLOAT(nmln), clinfo1=' nmln : ', tab2d_2=hmld, clinfo2=' hmld : ', ovlap=1)
+      ENDIF
+      
 
    END SUBROUTINE zdf_mxl
@@ -235 +239 @@
       END DO
 
-      IF(l_ctl)   WRITE(numout,*) ' nmln : ', SUM( nmln(1:nictl+1,1:njctl+1) ), ' hmld: ', SUM( hmld(1:nictl+1,1:njctl+1) )
+      IF(ln_ctl)   THEN
+         CALL prt_ctl(tab2d_1=FLOAT(nmln), clinfo1=' nmln : ', tab2d_2=hmld, clinfo2=' hmld : ', ovlap=1)
+      ENDIF
 
    END SUBROUTINE zdf_mxl