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

trunk/NEMO/OPA_SRC/daymod.F90

@@ -12 +12 @@
    USE phycst          ! physical constants
    USE in_out_manager  ! I/O manager
+   USE prtctl          ! Print control
 
    IMPLICIT NONE
@@ -69 +70 @@
       INTEGER  ::   iend, iday0, iday1   ! temporary integers
       REAL(wp) :: zadatrjn, zadatrjb     ! adatrj at timestep kt-1 and kt-2 
+      CHARACTER (len=25) :: charout
       !!----------------------------------------------------------------------
 
@@ -153 +155 @@
       ENDIF
 
-      IF(l_ctl) WRITE(numout,*)' kt =', kt, 'd/m/y =', nday, nmonth, nyear
+      IF(ln_ctl) THEN
+         WRITE(charout,FMT="('kt =', I4,'  d/m/y =',I2,I2,I4)") kt, nday, nmonth, nyear
+         CALL prt_ctl_info(charout)
+      ENDIF
 
    END SUBROUTINE day