Changeset 352 for trunk/NEMO/OPA_SRC/TRA/trabbc.F90

Timestamp:

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

Author:

opalod

Message:

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

File:

• trunk/NEMO/OPA_SRC/TRA/trabbc.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRA/trabbc.F90

@@ -193 +193 @@
          zphit(:,:) = 0.
          IF(lwp) WRITE(numout,*) '             *** variable geothermal heat flux read in ', clname, ' file'
-         CALL restini( clname, jpidta, jpjdta, zlamt, zphit, 1, zdept , clname,   &
-                       itime, zdate0, zdt, inum )
+         CALL restini( clname, jpidta, jpjdta, zlamt, zphit, 1, zdept , 'NONE',   &
+            &          itime, zdate0, zdt, inum, domain_id=nidom )
          CALL restget( inum, 'heatflow', jpidta, jpjdta, 1, 0, .FALSE., zdta )
          DO jj = 1, nlcj