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

trunk/NEMO/OPA_SRC/DYN/dynspg_fsc_atsk.F90

@@ -37 +37 @@
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE cla_dynspg      ! cross land advection
+   USE prtctl          ! Print control
 
    IMPLICIT NONE
@@ -354 +355 @@
          END DO
 
-         IF(l_ctl) THEN         ! print sum trends (used for debugging)
-            WRITE(numout,*) ' spg  - Ua: ', SUM( ua(2:nictl,2:njctl,1:jpkm1)*umask(2:nictl,2:njctl,1:jpkm1) ),   &
-               &                   ' Va: ', SUM( va(2:nictl,2:njctl,1:jpkm1)*vmask(2:nictl,2:njctl,1:jpkm1) )
+         IF(ln_ctl) THEN         ! print sum trends (used for debugging)
+            CALL prt_ctl(tab3d_1=ua, clinfo1=' spg  - Ua: ', mask1=umask, &
+               &         tab3d_2=va, clinfo2=' Va: ', mask2=vmask)
          ENDIF
 
@@ -398 +399 @@
       CALL lbc_lnk( sshn, 'T', 1. )
 
-      IF(l_ctl) THEN         ! print sum trends (used for debugging)
-         WRITE(numout,*) ' spg - ssh:', SUM( sshn(2:nictl,2:njctl)*tmask(2:nictl,2:njctl,1) )
+      IF(ln_ctl) THEN         ! print sum trends (used for debugging)
+         CALL prt_ctl(tab2d_1=sshn, clinfo1=' spg  - ssh: ', mask1=tmask)
       ENDIF