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

Timestamp:

2005-12-12T15:18:10+01:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_033 : CT : Switch to IOIPSL-3-0 new library

File:

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

trunk/NEMO/OPA_SRC/restart.F90

@@ -143 +143 @@
          CALL ymds2ju( nyear, nmonth, nday, 0.e0, zdate0 )
          CALL restini( 'NONE', jpi, jpj, glamt, gphit, jpk, gdept, clname,   &
-                        itime, zdate0, rdt*nstock ,numwrs )
+                        itime, zdate0, rdt*nstock ,numwrs, domain_id=nidom )
 
          CALL restput( numwrs, 'info'   , 1  , 1  , 10 , 0, zinfo   )   ! restart informations
@@ -298 +298 @@
       zphit(:,:) = 0.e0
       zdept(:)   = 0.e0
-      CALL restini( clname, jpi, jpj, zlamt, zphit, jpk, zdept, clname,   &
-         &          itime, zdate0, zdt, inum )
+      CALL restini( clname, jpi, jpj, zlamt, zphit, jpk, zdept, 'NONE',   &
+         &          itime, zdate0, zdt, inum, domain_id=nidom )
 
       CALL ioget_vname( inum, ibvar, clvnames)