Changeset 321 for trunk/NEMO/C1D_SRC/dyncor1d.F90

Timestamp:

2005-10-03T11:20:35+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_014:RB: update control print for 1D model

File:

• trunk/NEMO/C1D_SRC/dyncor1d.F90 (modified) (2 diffs)

trunk/NEMO/C1D_SRC/dyncor1d.F90

@@ -15 +15 @@
    USE oce            ! ocean dynamics and tracers
    USE dom_oce        ! ocean space and time domain
-   USE phycst          ! physical constants
+   USE phycst         ! physical constants
    USE in_out_manager ! I/O manager
+   USE prtctl         ! Print control
 
    IMPLICIT NONE
@@ -138 +139 @@
          END DO
       END DO   
-      IF(l_ctl) THEN         ! print sum trends (used for debugging)
-         zua = SUM( ua(2:nictl,2:njctl,1:jpkm1) * umask(2:nictl,2:njctl,1:jpkm1) )
-         zva = SUM( va(2:nictl,2:njctl,1:jpkm1) * vmask(2:nictl,2:njctl,1:jpkm1) )
-         WRITE(numout,*) ' cor  - Ua: ', zua-u_ctl, ' Va: ', zva-v_ctl
-         u_ctl = zua   ;   v_ctl = zva
+
+      IF(ln_ctl)   THEN
+         CALL prt_ctl(tab3d_1=ua, clinfo1=' cor  - Ua: ', mask1=umask, &
+            &         tab3d_2=va, clinfo2=' Va: ', mask2=vmask)
       ENDIF
+
+!     IF(l_ctl) THEN         ! print sum trends (used for debugging)
+!        zua = SUM( ua(2:nictl,2:njctl,1:jpkm1) * umask(2:nictl,2:njctl,1:jpkm1) )
+!        zva = SUM( va(2:nictl,2:njctl,1:jpkm1) * vmask(2:nictl,2:njctl,1:jpkm1) )
+!        WRITE(numout,*) ' cor  - Ua: ', zua-u_ctl, ' Va: ', zva-v_ctl
+!        u_ctl = zua   ;   v_ctl = zva
+!     ENDIF
+
    END SUBROUTINE dyn_cor_1d