Changeset 1522 for trunk/NEMO/OPA_SRC/DIA
- Timestamp:
- 2009-07-22T12:51:29+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90
r1146 r1522 405 405 END SUBROUTINE dia_wri 406 406 407 SUBROUTINE dia_wri_state ( cdfile_name )407 SUBROUTINE dia_wri_state ( cdfile_name, kt ) 408 408 !!------------------------------------------------------------------- 409 409 !! *** ROUTINE dia_wri_state *** … … 414 414 !! 9.O ! 03-06 (J.M. Molines ) dimgout 415 415 !!-------------------------------------------------------------------- 416 !! * Arguments417 CHARACTER 416 INTEGER , INTENT(in) :: kt ! ocean time-step index 417 CHARACTER(len=*), INTENT(in) :: cdfile_name ! name of the file created 418 418 !!-------------------------------------------------------------------- 419 419 420 IF( lwp) WRITE(numout,*) 'dia_wri_state: Dummy call', cdfile_name 420 IF( lwp) WRITE(numout,*) 'dia_wri_state: Dummy call', cdfile_name, kt 421 421 IF( lwp) WRITE(numout,*) '-------------' 422 422 IF( lwp) WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.