Changeset 352 for trunk/NEMO/OPA_SRC/DIA/diaptr.F90

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/DIA/diaptr.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DIA/diaptr.F90

@@ -449 +449 @@
          ! Horizontal grid : zphi()
          CALL histbeg(clhstnam, 1, zfoo, jpj, zphi,   &
-            1, 1, 1, jpj, 0, zjulian, zdt, nhoridz, numptr )
+            1, 1, 1, jpj, 0, zjulian, zdt, nhoridz, numptr, domain_id=nidom )
          ! Vertical grids : gdept, gdepw
          CALL histvert( numptr, "deptht", "Vertical T levels",   &