Changeset 352 for trunk/NEMO/OPA_SRC/TRD

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/OPA_SRC/TRD

Files:

• trdmld.F90 (modified) (1 diff)
• trdvor.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRD/trdmld.F90

@@ -763 +763 @@
       IF(lwp) WRITE(numout,*) ' Name of NETCDF file ', clhstnam
       CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,1, jpi,   &  ! Horizontal grid : glamt and gphit
-           1, jpj, 0, zjulian, rdt, nh_t, nidtrd)
+         &          1, jpj, 0, zjulian, rdt, nh_t, nidtrd, domain_id=nidom )
 
       ! Declare output fields as netCDF variables

trunk/NEMO/OPA_SRC/TRD/trdvor.F90

@@ -615 +615 @@
       IF(lwp) WRITE(numout,*) ' Name of NETCDF file ', clhstnam
       CALL histbeg( clhstnam, jpi, glamf, jpj, gphif,1, jpi,   &  ! Horizontal grid : glamt and gphit
-         &          1, jpj, 0, zjulian, rdt, nh_t, nidvor)
+         &          1, jpj, 0, zjulian, rdt, nh_t, nidvor, domain_id=nidom )
       CALL wheneq( jpi*jpj, fmask, 1, 1., ndexvor1, ndimvor1 )    ! surface