Changeset 321 for trunk/NEMO/C1D_SRC/dynnxt1d.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/dynnxt1d.F90 (modified) (2 diffs)

trunk/NEMO/C1D_SRC/dynnxt1d.F90

@@ -16 +16 @@
    USE in_out_manager  ! I/O manager
    USE lbclnk          ! lateral boundary condition (or mpp link)
+   USE prtctl          ! Print control
 
    IMPLICIT NONE
@@ -128 +129 @@
       !                                                ! ===============
 
-      IF(l_ctl)   WRITE(numout,*) ' nxt  - Un: ', SUM(un(2:nictl,2:njctl,1:jpkm1)*umask(2:nictl,2:njctl,1:jpkm1)), &
-      &                                  ' Vn: ', SUM(vn(2:nictl,2:njctl,1:jpkm1)*vmask(2:nictl,2:njctl,1:jpkm1))
+      IF(ln_ctl)   THEN
+         CALL prt_ctl(tab3d_1=un, clinfo1=' nxt_1d  - Un: ', mask1=umask, &
+            &         tab3d_2=vn, clinfo2=' Vn: ', mask2=vmask)
+      ENDIF
+
+!     IF(l_ctl)   WRITE(numout,*) ' nxt  - Un: ', SUM(un(2:nictl,2:njctl,1:jpkm1)*umask(2:nictl,2:njctl,1:jpkm1)), &
+!     &                                  ' Vn: ', SUM(vn(2:nictl,2:njctl,1:jpkm1)*vmask(2:nictl,2:njctl,1:jpkm1))
 
    END SUBROUTINE dyn_nxt_1d