Changeset 354 for trunk/NEMO/OFF_SRC/DOM/domrea.F90

Timestamp:

2005-12-12T16:56:48+01:00 (19 years ago)

Author:

opalod

Message:

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

File:

• trunk/NEMO/OFF_SRC/DOM/domrea.F90 (modified) (3 diffs)

trunk/NEMO/OFF_SRC/DOM/domrea.F90

@@ -128 +128 @@
             CALL restini( clnam0, jpidta   , jpjdta   , glamt, gphit,  &   ! create 'mesh_mask.nc' file
             &             jpk   , gdept , trim(clnam0)        ,  &   ! in unit inum0
-            &             itime , zdate0, rdt   , inum0          )
+            &             itime , zdate0, rdt   , inum0, domain_id=nidom )
             inum2 = inum0                                            ! put all the informations
             inum3 = inum0                                            ! in unit inum0
@@ -141 +141 @@
             CALL restini( clnam1, jpidta   , jpjdta   , glamt, gphit,  &   ! create 'mesh.nc' file 
             &             jpk   , gdept , trim(clnam1)        ,  &   ! in unit inum1 
-            &             itime , zdate0, rdt   , inum1          )
+            &             itime , zdate0, rdt   , inum1, domain_id=nidom )
             CALL restini( clnam2, jpidta   , jpjdta   , glamt, gphit,  &   ! create 'mask.nc' file 
             &             jpk   , gdept , trim(clnam2)        ,  &   ! in unit inum2 
-            &             itime , zdate0, rdt   , inum2          )
+            &             itime , zdate0, rdt   , inum2, domain_id=nidom )
             inum3 = inum1                                            ! put mesh informations 
             inum4 = inum1                                            ! in unit inum1 
@@ -157 +157 @@
             CALL restini( clnam3, jpidta   , jpjdta   , glamt, gphit,  &   ! create 'mesh_hgr.nc' file
             &             jpk   , gdept , trim(clnam3)        ,  &   ! in unit inum3
-            &             itime , zdate0, rdt   , inum3          )
+            &             itime , zdate0, rdt   , inum3, domain_id=nidom )
             CALL restini( clnam4, jpidta   , jpjdta   , glamt, gphit,  &   ! create 'mesh_zgr.nc' file
             &             jpk   , gdept , trim(clnam4)        ,  &   ! in unit inum4
-            &             itime , zdate0, rdt   , inum4          )
+            &             itime , zdate0, rdt   , inum4, domain_id=nidom )
             CALL restini( clnam2, jpidta   , jpjdta   , glamt, gphit,  &   ! create 'mask.nc' file
             &             jpk   , gdept , trim(clnam2)        ,  &   ! in unit inum2
-            &             itime , zdate0, rdt   , inum2          ) 
+            &             itime , zdate0, rdt   , inum2, domain_id=nidom )
 
          END SELECT