Changeset 352 for trunk/NEMO/TOP_SRC/trcrst.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/TOP_SRC/trcrst.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/trcrst.F90

@@ -150 +150 @@
       zdept(:)   = 0.e0
       CALL restini(clname,jpi,jpj,zlamt,zphit,jpk,zdept,clname         & 
-         &           ,itime,zdate0,zdt,nutrst)
+         &           ,itime,zdate0,zdt,nutrst,domain_id=nidom)
 
       CALL ioget_vname(nutrst, ibvar, clvnames)
@@ -462 +462 @@
          CALL ymds2ju(nyear,nmonth,nday,0.0,zdate0)
          CALL restini('NONE',jpi,jpj,glamt,gphit,jpk,gdept,clname           &
-            &        ,itime,zdate0,rdt*nstock,nutwrs)
+            &        ,itime,zdate0,rdt*nstock,nutwrs,domain_id=nidom)
 
          CALL restput(nutwrs,'info',1,1,3,0,zinfo)