Changeset 258 for trunk/NEMO/OPA_SRC/DYN/wzvmod.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/DYN/wzvmod.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/DYN/wzvmod.F90

@@ -12 +12 @@
    USE dom_oce         ! ocean space and time domain variables 
    USE in_out_manager  ! I/O manager
+   USE prtctl          ! Print control
 
    IMPLICIT NONE
@@ -80 +81 @@
       !                                                ! ===============
 
-      IF(l_ctl) THEN                ! print mean trends (used for debugging)
-         WRITE(numout,*) ' w**2 -   : ', SUM( wn(2:nictl,2:njctl,1:jpkm1) * wn   (2:nictl,2:njctl,1:jpkm1) )
-      ENDIF
+      IF(ln_ctl)   CALL prt_ctl(tab3d_1=wn, clinfo1=' w**2 -   : ', mask1=wn)
 
    END SUBROUTINE wzv
@@ -131 +130 @@
       END DO
 
-      IF(l_ctl) THEN                ! print mean trends (used for debugging)
-         WRITE(numout,*) ' w**2 -   : ', SUM( wn(2:nictl,2:njctl,1:jpkm1) * wn   (2:nictl,2:njctl,1:jpkm1) )
-      ENDIF
+      IF(ln_ctl)   CALL prt_ctl(tab3d_1=wn, clinfo1=' w**2 -   : ', mask1=wn)
 
    END SUBROUTINE wzv