Changeset 1522

Timestamp:

2009-07-22T12:51:29+02:00 (15 years ago)

Author:

ctlod

Message:

add argument kt in subroutine dia_wri_state, see ticket: #405

File:

• trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90

@@ -405 +405 @@
   END SUBROUTINE dia_wri
 
-  SUBROUTINE dia_wri_state ( cdfile_name)
+  SUBROUTINE dia_wri_state ( cdfile_name, kt )
     !!-------------------------------------------------------------------
     !!        ***     ROUTINE dia_wri_state  ***
@@ -414 +414 @@
     !!      9.O  ! 03-06  (J.M. Molines ) dimgout
     !!--------------------------------------------------------------------
-    !! * Arguments
-    CHARACTER (len=*), INTENT(in) ::   cdfile_name   ! name of the file created 
+    INTEGER         , INTENT(in) ::   kt            ! ocean time-step index
+    CHARACTER(len=*), INTENT(in) ::   cdfile_name   ! name of the file created 
     !!--------------------------------------------------------------------
 
-    IF( lwp) WRITE(numout,*) 'dia_wri_state: Dummy call', cdfile_name
+    IF( lwp) WRITE(numout,*) 'dia_wri_state: Dummy call', cdfile_name, kt
     IF( lwp) WRITE(numout,*) '-------------'
     IF( lwp) WRITE(numout,*)