Changeset 611 for trunk/NEMO/OPA_SRC/restart.F90

Timestamp:

2007-02-21T10:24:26+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_015 : CT+SM : - correct dimg header record

• overwrite variable in existing file
• make good comments in ocean.output file related to time step write in restart file

File:

• trunk/NEMO/OPA_SRC/restart.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/restart.F90

@@ -82 +82 @@
          ENDIF
          ! create the file
-         IF(lwp) WRITE(numout,*)
          clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart"
-         IF(lwp) WRITE(numout,*) '             open ocean restart.output NetCDF file: '//clname
+         IF(lwp) THEN
+            WRITE(numout,*)
+            WRITE(numout,*) '             open ocean restart.output NetCDF file: '//clname
+            IF( kt == nitrst-1 ) THEN
+               WRITE(numout,*) '             kt = nitrst - 1 = ', kt,' date= ', ndastp
+            ELSE
+               WRITE(numout,*) '             kt = ', kt,' date= ', ndastp
+            ENDIF
+         ENDIF
+
          CALL iom_open( clname, numrow, ldwrt = .TRUE., kiolib = jprstlib )
          lrst_oce = .TRUE.
@@ -103 +111 @@
       INTEGER, INTENT(in) ::   kt   ! ocean time-step
       !!----------------------------------------------------------------------
-
-      IF(lwp) THEN
-         WRITE(numout,*)
-         WRITE(numout,*) 'rst_write : write ocean NetCDF restart file  kt =', kt,' date= ', ndastp
-         WRITE(numout,*) '~~~~~~~~~'
-      ENDIF
 
       ! calendar control