Changeset 258 for trunk/NEMO/OPA_SRC/TRA/tranxt.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/TRA/tranxt.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/tranxt.F90

@@ -15 +15 @@
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE obctra          ! open boundary condition (obc_tra routine)
+   USE prtctl          ! Print control
 
    IMPLICIT NONE
@@ -165 +166 @@
       !                                                ! ===============
 
-      IF(l_ctl) THEN         ! print mean field (used for debugging)
-         WRITE(numout,*) ' nxt  - Tn: ', SUM(tn(2:nictl,2:njctl,1:jpkm1)*tmask(2:nictl,2:njctl,1:jpkm1)), &
-         &                      ' Sn: ', SUM(sn(2:nictl,2:njctl,1:jpkm1)*tmask(2:nictl,2:njctl,1:jpkm1)) 
+      IF(ln_ctl) THEN         ! print mean field (used for debugging)
+         CALL prt_ctl(tab3d_1=tn, clinfo1=' nxt  - Tn: ', mask1=tmask, &
+            &         tab3d_2=sn, clinfo2=' Sn: ', mask2=tmask)
       ENDIF