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

Timestamp:

2006-10-20T17:45:39+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_078:RB: finalization of IOM (2)

File:

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

trunk/NEMO/OPA_SRC/restart.F90

@@ -85 +85 @@
          clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart"
          IF(lwp) WRITE(numout,*) '             open ocean restart.output NetCDF file: '//clname
-         CALL iom_open( clname, numrow, ldwrt = .TRUE., kiolib = jprstdimg )
+         CALL iom_open( clname, numrow, ldwrt = .TRUE., kiolib = jprstlib )
          IF( lk_trdmld )   THEN
             clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_restart_mld"
             IF(lwp) WRITE(numout,*) '             open ocean restart_mld NetCDF file: '//clname
-            CALL iom_open( clname, nummldw, ldwrt = .TRUE., kiolib = jprstdimg )
+            CALL iom_open( clname, nummldw, ldwrt = .TRUE., kiolib = jprstlib )
          ENDIF
          lrst_oce = .TRUE.
@@ -232 +232 @@
       ENDIF
 
-      CALL iom_open( 'restart', numror, kiolib = jprstdimg )   ! Open
+      CALL iom_open( 'restart', numror, kiolib = jprstlib )
 
       ! Calendar informations