Changeset 352 for trunk/NEMO/LIM_SRC

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

Location:

trunk/NEMO/LIM_SRC

Files:

• limrst.F90 (modified) (2 diffs)
• limwri.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC/limrst.F90

@@ -137 +137 @@
 
       CALL ymds2ju( nyear, nmonth, nday, zsec, zdate0 )
-      CALL restini( 'NONE', jpi, jpj, glamt, gphit, 1 , zdept, ccfile, itime, zdate0, zdt, inumwrs )
+      CALL restini( 'NONE', jpi, jpj, glamt, gphit, 1 , zdept, ccfile, itime, zdate0, zdt, &
+         &         inumwrs, domain_id=nidom )
       
       CALL restput( inumwrs, 'info'   ,   1,   1, 2 , 0, zinfo   )  ! restart informations
@@ -202 +203 @@
       zdept(1)   = 0.
 
-      CALL restini(ccfile , jpi, jpj, zlamt, zphit, 1 , zdept, ccfile, itime, zdate0, zdt, inumrst )      
+      CALL restini(ccfile , jpi, jpj, zlamt, zphit, 1 , zdept, 'NONE', itime, zdate0, zdt, inumrst, &
+         &         domain_id=nidom )      
       CALL ioget_vname( inumrst, ibvar, clvnames )
 

trunk/NEMO/LIM_SRC/limwri.F90

@@ -118 +118 @@
          CALL ymds2ju ( nyear, nmonth, nday, zsec, zjulian )
          CALL dia_nam ( clhstnam, nwrite, 'icemod' )
-         CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit, 1, jpi, 1, jpj, 0, zjulian, rdt_ice, nhorid, nice )
+         CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit, 1, jpi, 1, jpj, 0, zjulian, rdt_ice, nhorid, nice , domain_id=nidom)
          CALL histvert( nice, "deptht", "Vertical T levels", "m", 1, zdept, ndepid)
          CALL wheneq  ( jpij , tmask(:,:,1), 1, 1., ndex51, ndim)