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

trunk/NEMO/OPA_SRC/TRA/trabbc.F90

@@ -16 +16 @@
    USE phycst          ! physical constants
    USE in_out_manager  ! I/O manager
+   USE prtctl          ! Print control
 
    IMPLICIT NONE
@@ -83 +84 @@
       INTEGER ::   ji, jj              ! dummy loop indices
 #endif
-      REAL(wp) ::   zta                ! temporary scalar
       !!----------------------------------------------------------------------
 
@@ -107 +107 @@
 #endif
 
-      IF(l_ctl) THEN
-         zta = SUM( ta(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) )
-         WRITE(numout,*) ' bbc  - Ta: ', zta-t_ctl
-         t_ctl = zta
+      IF(ln_ctl) THEN
+         CALL prt_ctl(tab3d_1=ta, clinfo1=' bbc  - Ta: ', mask1=tmask, clinfo3='tra-ta')
       ENDIF