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

trunk/NEMO/OPA_SRC/LDF/ldfslp.F90

@@ -21 +21 @@
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE in_out_manager  ! I/O manager
+   USE prtctl          ! Print control
 
    IMPLICIT NONE
@@ -480 +481 @@
       CALL lbc_lnk( wslpj, 'W', -1. )
 
-      IF(l_ctl) THEN
-         WRITE(numout,*) ' slp  - u : ', SUM( uslp (1:nictl,1:njctl,:) ), ' v : ', SUM( vslp (1:nictl,1:njctl,:) )
-         WRITE(numout,*) '      - wi: ', SUM( wslpi(1:nictl,1:njctl,:) ), ' wj: ', SUM( wslpj(1:nictl,1:njctl,:) )
+      IF(ln_ctl) THEN
+         CALL prt_ctl(tab3d_1=uslp , clinfo1=' slp  - u : ', tab3d_2=vslp,  clinfo2=' v : ', kdim=jpk)
+         CALL prt_ctl(tab3d_1=wslpi, clinfo1=' slp  - wi: ', tab3d_2=wslpj, clinfo2=' wj: ', kdim=jpk)
       ENDIF