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

trunk/NEMO/LIM_SRC/limdyn.F90

@@ -23 +23 @@
    USE lbclnk
    USE lib_mpp
+   USE prtctl          ! Print control
 
    IMPLICIT NONE
@@ -92 +93 @@
             i_j1 = 1   
             i_jpj = jpj
-            IF(l_ctl)   WRITE(numout,*) 'lim_dyn :    i_j1 = ', i_j1, ' ij_jpj = ', i_jpj
+            IF(ln_ctl)    THEN
+               CALL prt_ctl_info('lim_dyn  :    i_j1 = ', ivar1=i_j1, clinfo2=' ij_jpj = ', ivar2=i_jpj)
+            ENDIF
             CALL lim_rhg( i_j1, i_jpj )
 
@@ -113 +116 @@
                END DO
                i_j1 = MAX( 1, i_j1-1 )
-               IF(l_ctl)   WRITE(numout,*) 'lim_dyn : NH i_j1 = ', i_j1, ' ij_jpj = ', i_jpj
+               IF(ln_ctl)   WRITE(numout,*) 'lim_dyn : NH i_j1 = ', i_j1, ' ij_jpj = ', i_jpj
     
                CALL lim_rhg( i_j1, i_jpj )
@@ -124 +127 @@
                END DO
                i_jpj = MIN( jpj, i_jpj+2 )
-               IF(l_ctl)   WRITE(numout,*) 'lim_dyn : SH i_j1 = ', i_j1, ' ij_jpj = ', i_jpj
+               IF(ln_ctl)   WRITE(numout,*) 'lim_dyn : SH i_j1 = ', i_j1, ' ij_jpj = ', i_jpj
     
                CALL lim_rhg( i_j1, i_jpj )
@@ -143 +146 @@
                i_jpj = MIN( jpj, i_jpj+2)
     
-               IF(l_ctl)   WRITE(numout,*) 'lim_dyn : one hemisphere: i_j1 = ', i_j1, ' ij_jpj = ', i_jpj
+               IF(ln_ctl)   WRITE(numout,*) 'lim_dyn : one hemisphere: i_j1 = ', i_j1, ' ij_jpj = ', i_jpj
     
                CALL lim_rhg( i_j1, i_jpj )
@@ -154 +157 @@
          v_ice(:,1) = 0.e0
 
-         IF(l_ctl) THEN 
-            WRITE(numout,*) ' lim_dyn  : u_oce ', SUM( u_oce(2:nictl,2:njctl) ), ' v_oce ', SUM( v_oce(2:nictl,2:njctl) )
-            WRITE(numout,*) ' lim_dyn  : u_ice ', SUM( u_ice(2:nictl,2:njctl) ), ' v_ice ', SUM( v_ice(2:nictl,2:njctl) )
+         IF(ln_ctl)   THEN 
+            CALL prt_ctl(tab2d_1=u_oce , clinfo1=' lim_dyn  : u_oce :', tab2d_2=v_oce , clinfo2=' v_oce :')
+            CALL prt_ctl(tab2d_1=u_ice , clinfo1=' lim_dyn  : u_ice :', tab2d_2=v_ice , clinfo2=' v_ice :')
          ENDIF
          
@@ -244 +247 @@
       CALL lbc_lnk( tio_v, 'I', -1. )   ! I-point (i.e. ice U-V point)
 
-      IF(l_ctl) THEN 
-         WRITE(numout,*) ' lim_dyn  : tio_u ', SUM( tio_u(2:nictl,2:njctl) ), ' tio_v ', SUM( tio_v(2:nictl,2:njctl) )
-         WRITE(numout,*) ' lim_dyn  : ust2s ', SUM( ust2s(2:nictl,2:njctl) )
+      IF(ln_ctl) THEN 
+            CALL prt_ctl(tab2d_1=tio_u , clinfo1=' lim_dyn  : tio_u :', tab2d_2=tio_v , clinfo2=' tio_v :')
+            CALL prt_ctl(tab2d_1=ust2s , clinfo1=' lim_dyn  : ust2s :')
       ENDIF