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

trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90

@@ -24 +24 @@
    USE dynspg_fsc      ! 
    USE dynspg_fsc_atsk ! 
+   USE prtctl          ! Print control
 
    IMPLICIT NONE
@@ -299 +300 @@
       ENDIF
 
-      IF(l_ctl) THEN
-         zta = SUM( ta(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) )
-         zsa = SUM( sa(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) )
-         WRITE(numout,*) ' had  - Ta: ', zta-t_ctl, ' Sa: ', zsa-s_ctl
-         t_ctl = zta   ;   s_ctl = zsa
+      IF(ln_ctl)   THEN
+          CALL prt_ctl(tab3d_1=ta, clinfo1=' centered2 had  - Ta: ', mask1=tmask, &
+             &         tab3d_2=sa, clinfo2=' Sa: ', mask2=tmask, clinfo3='tra')
       ENDIF
 
@@ -400 +399 @@
       ENDIF
 
-      IF(l_ctl) THEN
-         zta = SUM( ta(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) )
-         zsa = SUM( sa(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) )
-         WRITE(numout,*) ' zad  - Ta: ', zta-t_ctl, ' Sa: ', zsa-s_ctl, ' centered2'
-         t_ctl = zta   ;   s_ctl = zsa
+      IF(ln_ctl)   THEN
+          CALL prt_ctl(tab3d_1=ta, clinfo1=' centered2 zad  - Ta: ', mask1=tmask, &
+             &         tab3d_2=sa, clinfo2=' Sa: ', mask2=tmask, clinfo3='tra')
       ENDIF