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

trunk/NEMO/LIM_SRC/limhdf.F90

@@ -18 +18 @@
    USE lbclnk
    USE lib_mpp
+   USE prtctl          ! Print control
 
    IMPLICIT NONE
@@ -67 +68 @@
       INTEGER ::  &
          its, iter            ! temporary integers
+      CHARACTER (len=55) :: charout
       REAL(wp) ::  &
          zalfa, zrlxint, zconv, zeps   ! temporary scalars
@@ -168 +170 @@
 
       ptab(:,:) = ptab(:,:)
-
-      IF(l_ctl)   WRITE(numout,*) ' lim_hdf  : ', SUM( ptab(2:nictl,2:njctl)-ptab0(2:nictl,2:njctl) ), &
-      &                                        ' zconv= ', zconv, ' iter= ', iter
+      IF(ln_ctl)   THEN
+         zrlx(:,:) = ptab(:,:) - ptab0(:,:)
+         WRITE(charout,FMT="(' lim_hdf  : zconv =',D23.16, ' iter =',I4,2X)") zconv, iter
+         CALL prt_ctl(tab2d_1=zrlx, clinfo1=charout)
+      ENDIF
 
    END SUBROUTINE lim_hdf