Changeset 352 for trunk/NEMO/OPA_SRC/SOL

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/SOL/solisl.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SOL/solisl.F90

@@ -793 +793 @@
       IF( llbon ) THEN 
          ! island FILE is present 
-         CALL restini(clname,jpi,jpj,zlamt,zphit,1,zdept   &
-                     ,clname,itime,zdate0,zdt,numisl)          
+         CALL restini(clname,jpi,jpj,zlamt,zphit,1,zdept,  &
+            &         'NONE',itime,zdate0,zdt,numisl,domain_id=nidom)
          CALL restget(numisl,'PRECISION',1,1,4,0,llog,zprec)
          iimlu = NINT( zprec(1) )
@@ -1096 +1096 @@
       zprec(3) = FLOAT(jpisl)
       IF(lwp) WRITE(numout,*) clname
-      CALL restini( 'NONE', jpi, jpj, glamt, gphit, 1, zdept   &
-         , clname, itime, zdate0, rdt, numisl )
+      CALL restini( 'NONE', jpi, jpj, glamt, gphit, 1, zdept,  &
+         &          clname, itime, zdate0, rdt, numisl, domain_id=nidom )
       IF( icile == 0 .AND. icut /= 0 ) THEN
          IF(lwp) THEN