Changeset 352 for trunk/NEMO/OPA_SRC/DIA/diawri.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/DIA/diawri.F90 (modified) (5 diffs)

trunk/NEMO/OPA_SRC/DIA/diawri.F90

@@ -181 +181 @@
          CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,           &  ! Horizontal grid: glamt and gphit
             &          iimi, iima-iimi+1, ijmi, ijma-ijmi+1,       &
-            &          0, zjulian, zdt, nh_T, nid_T )
+            &          0, zjulian, zdt, nh_T, nid_T, domain_id=nidom )
          CALL histvert( nid_T, "deptht", "Vertical T levels",      &  ! Vertical grid: gdept
             &           "m", ipk, gdept, nz_T )
@@ -194 +194 @@
          CALL histbeg( clhstnam, jpi, glamu, jpj, gphiu,           &  ! Horizontal grid: glamu and gphiu
             &          iimi, iima-iimi+1, ijmi, ijma-ijmi+1,       &
-            &          0, zjulian, zdt, nh_U, nid_U )
+            &          0, zjulian, zdt, nh_U, nid_U, domain_id=nidom )
          CALL histvert( nid_U, "depthu", "Vertical U levels",      &  ! Vertical grid: gdept
             &           "m", ipk, gdept, nz_U )
@@ -207 +207 @@
          CALL histbeg( clhstnam, jpi, glamv, jpj, gphiv,           &  ! Horizontal grid: glamv and gphiv
             &          iimi, iima-iimi+1, ijmi, ijma-ijmi+1,       &
-            &          0, zjulian, zdt, nh_V, nid_V )
+            &          0, zjulian, zdt, nh_V, nid_V, domain_id=nidom )
          CALL histvert( nid_V, "depthv", "Vertical V levels",      &  ! Vertical grid : gdept
             &          "m", ipk, gdept, nz_V )
@@ -220 +220 @@
          CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,           &  ! Horizontal grid: glamt and gphit
             &          iimi, iima-iimi+1, ijmi, ijma-ijmi+1,       &
-            &          0, zjulian, zdt, nh_W, nid_W )
+            &          0, zjulian, zdt, nh_W, nid_W, domain_id=nidom )
          CALL histvert( nid_W, "depthw", "Vertical W levels",      &  ! Vertical grid: gdepw
             &          "m", ipk, gdepw, nz_W )
@@ -574 +574 @@
       CALL ymds2ju( nyear, nmonth, nday, 0.e0, zjulian )         ! time axis 
       CALL histbeg( cdfile_name, jpi, glamt, jpj, gphit,   &
-          1, jpi, 1, jpj, 0, zjulian, zdt, nh_i, id_i )       ! Horizontal grid : glamt and gphit
+          1, jpi, 1, jpj, 0, zjulian, zdt, nh_i, id_i, domain_id=nidom )          ! Horizontal grid : glamt and gphit
       CALL histvert( id_i, "deptht", "Vertical T levels",   &    ! Vertical grid : gdept
           "m", jpk, gdept, nz_i)