Changeset 258 for trunk/NEMO/OPA_SRC/LDF

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

Location:

trunk/NEMO/OPA_SRC/LDF

Files:

• ldfeiv.F90 (modified) (5 diffs)
• ldfslp.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90

@@ -22 +22 @@
    USE in_out_manager  ! I/O manager
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
+   USE prtctl          ! Print control
 
    IMPLICIT NONE
@@ -162 +163 @@
       CALL lbc_lnk( aeiv, 'V', 1. )
 
-      IF(l_ctl)   WRITE(numout,*) ' eiv  - u: ', SUM( aeiu(1:nictl+1,1:njctl+1) ), ' v: ', SUM( aeiv(1:nictl+1,1:njctl+1) )
-
-
+      IF(ln_ctl)   THEN
+         CALL prt_ctl(tab2d_1=aeiu, clinfo1=' eiv  - u: ', ovlap=1)
+         CALL prt_ctl(tab2d_1=aeiv, clinfo1=' eiv  - v: ', ovlap=1)
+      ENDIF
+      
       ! ORCA R05: add a space variation on aht (=aeiv except at the equator and river mouth)
       IF( cp_cfg == "orca" .AND. jp_cfg == 05 ) THEN
@@ -178 +181 @@
             END DO
          END DO
-         IF(l_ctl) THEN
-            WRITE(numout,*)' aht  - u: ', SUM( ahtu(1:nictl+1,1:njctl+1) )
-            WRITE(numout,*)'      - v: ', SUM( ahtv(1:nictl+1,1:njctl+1) )
-            WRITE(numout,*)'      - w: ', SUM( ahtw(1:nictl+1,1:njctl+1) )
+         IF(ln_ctl) THEN
+            CALL prt_ctl(tab2d_1=ahtu, clinfo1=' aht  - u: ', ovlap=1)
+            CALL prt_ctl(tab2d_1=ahtv, clinfo1=' aht  - v: ', ovlap=1)
+            CALL prt_ctl(tab2d_1=ahtw, clinfo1=' aht  - w: ', ovlap=1)
          ENDIF
       ENDIF
@@ -327 +330 @@
       CALL lbc_lnk( aeiv, 'V', 1. )
 
-      IF(l_ctl)   WRITE(numout,*) ' eiv  - u: ', SUM( aeiu(1:nictl+1,1:njctl+1) ), ' v: ', SUM( aeiv(1:nictl+1,1:njctl+1) )
+      IF(ln_ctl)   THEN
+         CALL prt_ctl(tab2d_1=aeiu, clinfo1=' eiv  - u: ', ovlap=1)
+         CALL prt_ctl(tab2d_1=aeiv, clinfo1=' eiv  - v: ', ovlap=1)
+      ENDIF
 
       ! ORCA R05: add a space variation on aht (=aeiv except at the equator and river mouth)
@@ -342 +348 @@
             END DO
          END DO
-         IF(l_ctl) THEN
-            WRITE(numout,*) ' aht  - u: ', SUM( ahtu(1:nictl+1,1:njctl+1) )
-            WRITE(numout,*) '      - v: ', SUM( ahtv(1:nictl+1,1:njctl+1) )
-            WRITE(numout,*) '      - w: ', SUM( ahtw(1:nictl+1,1:njctl+1) )
+         IF(ln_ctl) THEN
+            CALL prt_ctl(tab2d_1=ahtu, clinfo1=' aht  - u: ', ovlap=1)
+            CALL prt_ctl(tab2d_1=ahtv, clinfo1=' aht  - v: ', ovlap=1)
+            CALL prt_ctl(tab2d_1=ahtw, clinfo1=' aht  - w: ', ovlap=1)
          ENDIF
       ENDIF

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