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

trunk/NEMO/OPA_SRC/eosbn2.F90

@@ -20 +20 @@
    USE in_out_manager  ! I/O manager
    USE zdfddm          ! vertical physics: double diffusion
+   USE prtctl          ! Print control
 
    IMPLICIT NONE
@@ -224 +225 @@
       END SELECT
 
-      IF(l_ctl)   WRITE(numout,*) ' eos  : ', SUM( prd(1:nictl+1,1:njctl+1,:) )
+      IF(ln_ctl)   THEN
+         CALL prt_ctl(tab3d_1=prd, clinfo1=' eos  : ', ovlap=1, kdim=jpk)
+      ENDIF
 
    END SUBROUTINE eos_insitu
@@ -410 +413 @@
       END SELECT
 
-      IF(l_ctl)   WRITE(numout,*) ' eos-p: ', SUM( prd(1:nictl+1,1:njctl+1,:) ), ' pot : ', SUM( prhop(1:nictl+1,1:njctl+1,:) )
+      IF(ln_ctl)   THEN
+         CALL prt_ctl(tab3d_1=prd, clinfo1=' eos-p: ', tab3d_2=prhop, clinfo2=' pot : ', ovlap=1, kdim=jpk)
+      ENDIF
 
    END SUBROUTINE eos_insitu_pot
@@ -587 +592 @@
       END SELECT
 
-      IF(l_ctl)   WRITE(numout,*) ' eos2d: ', SUM( prd(1:nictl,1:njctl) )
+      IF(ln_ctl)   CALL prt_ctl(tab2d_1=prd, clinfo1=' eos2d: ')
 
    END SUBROUTINE eos_insitu_2d
@@ -762 +767 @@
       END SELECT
 
-      IF(l_ctl)   WRITE(numout,*) ' bn2  : ', SUM( pn2 (1:nictl+1,1:njctl+1,:) )
+      IF(ln_ctl)   THEN
+         CALL prt_ctl(tab3d_1=pn2, clinfo1=' bn2  : ', ovlap=1, kdim=jpk)
 #if defined key_zdfddm
-      IF(l_ctl)   WRITE(numout,*) ' rrau : ', SUM( rrau(1:nictl+1,1:njctl+1,:) )
+         CALL prt_ctl(tab3d_1=rrau, clinfo1=' rrau : ', ovlap=1, kdim=jpk)
 #endif
+      ENDIF
 
    END SUBROUTINE eos_bn2