diff --git a/src/MNH/mode_les_diachro.f90 b/src/MNH/mode_les_diachro.f90
index 2cfcdbfb111abe82d7b3c1851032f10c5b663adf..fb99217ebb14190baefde53a10bce5976588c27e 100644
--- a/src/MNH/mode_les_diachro.f90
+++ b/src/MNH/mode_les_diachro.f90
@@ -658,7 +658,7 @@ end if
! Write the profile
if ( iresp==0 .and. ( gsurf .or. any( zwork6 /= xundef ) ) ) &
- call write_diachro( tpdiafile, tluout0, ygroup, "ssol", igrid, tzdates, &
+ call write_diachro( tpdiafile, ygroup, "ssol", igrid, tzdates, &
zwork6, ytitle, yunit, ycomment, &
oicp = .false., ojcp = .false., okcp = .false., &
kil = iil, kih = iih, kjl = ijl, kjh = ijh, kkl = ikl, kkh = ikh, &
@@ -903,7 +903,7 @@ END IF
! ----------------------
!
IF (IRESP==0) &
-CALL WRITE_DIACHRO( TPDIAFILE, TLUOUT0, YGROUP, "SPXY", IGRID, tzdates, &
+CALL WRITE_DIACHRO( TPDIAFILE, YGROUP, "SPXY", IGRID, tzdates, &
ZWORK6, YTITLE, YUNIT, YCOMMENT, &
OICP = .FALSE., OJCP = .FALSE., OKCP = .FALSE., &
KIL = IIL, KIH = IIH, KJL = IJL, KJH = IJH, KKL = IKL, KKH = IKH )
@@ -944,7 +944,7 @@ IF (GAVG) THEN
YGROUP = 'T_'//YGROUP
END IF
!
-CALL WRITE_DIACHRO( TPDIAFILE, TLUOUT0, YGROUP, "SPXY", IGRID, tzdates, &
+CALL WRITE_DIACHRO( TPDIAFILE, YGROUP, "SPXY", IGRID, tzdates, &
ZWORK6, YTITLE, YUNIT, YCOMMENT, &
OICP = .FALSE., OJCP = .FALSE., OKCP = .FALSE., &
KIL = IIL, KIH = IIH, KJL = IJL, KJH = IJH, KKL = IKL, KKH = IKH )
@@ -1042,7 +1042,7 @@ WRITE(YSTRING,FMT="(I6.6)") NINT( XLES_CURRENT_DOMEGAX )
YCOMMENT(:) = " DOMEGAX="//YSTRING//' '//HCOMMENT
!
!
-CALL WRITE_DIACHRO( TPDIAFILE, TLUOUT0, YGROUP, "SPXY", IGRID, tzdates, &
+CALL WRITE_DIACHRO( TPDIAFILE, YGROUP, "SPXY", IGRID, tzdates, &
ZWORK6, YTITLE, YUNIT, YCOMMENT, &
OICP = .FALSE., OJCP = .FALSE., OKCP = .FALSE., &
KIL = IIL, KIH = IIH, KJL = IJL, KJH = IJH, KKL = IKL, KKH = IKH )
@@ -1055,7 +1055,7 @@ CALL LES_TIME_AVG( ZWORK6, tzdates, IRESP )
YGROUP = 'T_'//YGROUP
!
IF (IRESP==0) &
-CALL WRITE_DIACHRO( TPDIAFILE, TLUOUT0, YGROUP, "SPXY", IGRID, tzdates, &
+CALL WRITE_DIACHRO( TPDIAFILE, YGROUP, "SPXY", IGRID, tzdates, &
ZWORK6, YTITLE, YUNIT, YCOMMENT, &
OICP = .FALSE., OJCP = .FALSE., OKCP = .FALSE., &
KIL = IIL, KIH = IIH, KJL = IJL, KJH = IJH, KKL = IKL, KKH = IKH )
@@ -1089,7 +1089,7 @@ YTITLE(:) = YGROUP
WRITE(YSTRING,FMT="(I6.6)") NINT( XLES_CURRENT_DOMEGAY )
YCOMMENT(:) = " DOMEGAY="//YSTRING//' '//HCOMMENT
!
-CALL WRITE_DIACHRO( TPDIAFILE, TLUOUT0, YGROUP, "SPXY", IGRID, tzdates, &
+CALL WRITE_DIACHRO( TPDIAFILE, YGROUP, "SPXY", IGRID, tzdates, &
ZWORK6, YTITLE, YUNIT, YCOMMENT, &
OICP = .FALSE., OJCP = .FALSE., OKCP = .FALSE., &
KIL = IIL, KIH = IIH, KJL = IJL, KJH = IJH, KKL = IKL, KKH = IKH )
@@ -1101,7 +1101,7 @@ CALL LES_TIME_AVG( ZWORK6, tzdates, IRESP )
YGROUP = 'T_'//YGROUP
!
IF (IRESP==0) &
-CALL WRITE_DIACHRO( TPDIAFILE, TLUOUT0, YGROUP, "SPXY", IGRID, tzdates, &
+CALL WRITE_DIACHRO( TPDIAFILE, YGROUP, "SPXY", IGRID, tzdates, &
ZWORK6, YTITLE, YUNIT, YCOMMENT, &
OICP = .FALSE., OJCP = .FALSE., OKCP = .FALSE., &
KIL = IIL, KIH = IIH, KJL = IJL, KJH = IJH, KKL = IKL, KKH = IKH )
diff --git a/src/MNH/write_aircraft_balloon.f90 b/src/MNH/write_aircraft_balloon.f90
index 39f17c64e9220882468ff50c22dab88f199be883..90e246ab7f20783b8c8f670dd1f8b3b1011f596f 100644
--- a/src/MNH/write_aircraft_balloon.f90
+++ b/src/MNH/write_aircraft_balloon.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2000-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2000-2020 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -838,14 +838,14 @@ ALLOCATE (ZWZ6(1,1,IKU,size(tpflyer%tpdates),1,JPROCZ))
ZWZ6 = ZWORKZ6(:,:,:,:,:,:JPROCZ)
DEALLOCATE(ZWORKZ6)
!
-CALL WRITE_DIACHRO( TPDIAFILE, TLUOUT0, YGROUP, "RSPL", IGRID, tpflyer%tpdates, &
- ZW6, YTITLE(:), YUNIT(:), YCOMMENT(:), &
- PTRAJX = ZTRAJX, PTRAJY = ZTRAJY, PTRAJZ = ZTRAJZ )
+CALL WRITE_DIACHRO( TPDIAFILE, YGROUP, "RSPL", IGRID, tpflyer%tpdates, &
+ ZW6, YTITLE(:), YUNIT(:), YCOMMENT(:), &
+ PTRAJX = ZTRAJX, PTRAJY = ZTRAJY, PTRAJZ = ZTRAJZ )
!
-CALL WRITE_DIACHRO( TPDIAFILE, TLUOUT0, YGROUPZ, "CART", IGRIDZ, tpflyer%tpdates, &
- ZWZ6, YTITLEZ(:), YUNITZ(:), YCOMMENTZ(:), &
- OICP = .TRUE., OJCP = .TRUE., OKCP = .FALSE., &
- KIL = 1, KIH = 1, KJL = 1, KJH = 1, KKL = 1, KKH = IKU )
+CALL WRITE_DIACHRO( TPDIAFILE, YGROUPZ, "CART", IGRIDZ, tpflyer%tpdates, &
+ ZWZ6, YTITLEZ(:), YUNITZ(:), YCOMMENTZ(:), &
+ OICP = .TRUE., OJCP = .TRUE., OKCP = .FALSE., &
+ KIL = 1, KIH = 1, KJL = 1, KJH = 1, KKL = 1, KKH = IKU )
DEALLOCATE (ZTRAJX)
DEALLOCATE (ZTRAJY)
diff --git a/src/MNH/write_budget.f90 b/src/MNH/write_budget.f90
index e1827696fe3b51d9f53a6ed370e61793a2c687bd..e453dbc5e165595ef0c50f7f703369618d070f97 100644
--- a/src/MNH/write_budget.f90
+++ b/src/MNH/write_budget.f90
@@ -434,7 +434,7 @@ subroutine Store_one_budget_rho( tpdiafile, tpdates, tprhodj, kp, knocompress, p
call Print_msg( NVERB_ERROR, 'BUD', 'Store_one_budget_rho', 'unknown budget type' )
end select
- call Write_diachro( tpdiafile, tluout, ygroup_name, ybutype, iworkgrid, &
+ call Write_diachro( tpdiafile, ygroup_name, ybutype, iworkgrid, &
tpdates, prhodjn, ybucomment, &
yworkunit, yworkcomment, &
oicp = lbu_icp, ojcp = lbu_jcp, okcp = lbu_kcp, &
@@ -601,11 +601,11 @@ subroutine Store_one_budget( tpdiafile, tpdates, tpbudget, prhodjn, kp, knocompr
ytitles(jproc) = trim( tpbudget%tgroups(jproc)%cmnhname )
end do
- call Write_diachro( tpdiafile, tluout, ygroup_name, ybutype, iworkgrid, &
- tpdates, zworkt, ytitles, &
- yworkunit, yworkcomment, &
- oicp = lbu_icp, ojcp = lbu_jcp, okcp = lbu_kcp, &
- kil = nbuil, kih = nbuih, kjl = nbujl, kjh = nbujh, kkl = nbukl, kkh = nbukh )
+ call Write_diachro( tpdiafile, ygroup_name, ybutype, iworkgrid, &
+ tpdates, zworkt, ytitles, &
+ yworkunit, yworkcomment, &
+ oicp = lbu_icp, ojcp = lbu_jcp, okcp = lbu_kcp, &
+ kil = nbuil, kih = nbuih, kjl = nbujl, kjh = nbujh, kkl = nbukl, kkh = nbukh )
deallocate( zworkt, yworkunit, yworkcomment, iworkgrid )
diff --git a/src/MNH/write_diachro.f90 b/src/MNH/write_diachro.f90
index 6cb6ff405fde134a8e56a79718515b6da76f667c..7c7bc53f7478198810296bbfa01f2a414f842704 100644
--- a/src/MNH/write_diachro.f90
+++ b/src/MNH/write_diachro.f90
@@ -13,7 +13,7 @@ public :: Write_diachro
contains
! #################################################################
- SUBROUTINE WRITE_DIACHRO(TPDIAFILE,TPLUOUTDIA,HGROUP,HTYPE, &
+ SUBROUTINE WRITE_DIACHRO(TPDIAFILE,HGROUP,HTYPE, &
KGRID, tpdates, PVAR, &
HTITRE,HUNITE,HCOMMENT,OICP,OJCP,OKCP,KIL,KIH,KJL,KJH,KKL,KKH, &
PTRAJX,PTRAJY,PTRAJZ )
@@ -79,13 +79,14 @@ contains
!! Philippe Wautelet: 05/2016-04/2018: new data structures and calls for I/O
! P. Wautelet 13/09/2019: budget: simplify and modernize date/time management
! P. Wautelet 13/09/2019: remove never used PMASK optional dummy-argument
+! P. Wautelet 28/08/2020: remove TPLUOUTDIA dummy argument
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
USE MODD_BUDGET
-USE MODD_CONF
+use modd_conf, only: lpack
use modd_field, only: tfielddata, TYPECHAR, TYPEDATE, TYPEINT, TYPEREAL
USE MODD_IO, ONLY: TFILEDATA
USE MODD_PARAMETERS, ONLY: JPHEXT
@@ -104,7 +105,6 @@ IMPLICIT NONE
!* 0.1 Dummy arguments
! ---------------
TYPE(TFILEDATA), INTENT(IN) :: TPDIAFILE ! file to write
-TYPE(TFILEDATA), INTENT(IN) :: TPLUOUTDIA
CHARACTER(LEN=*), INTENT(IN) :: HGROUP, HTYPE
INTEGER,DIMENSION(:), INTENT(IN) :: KGRID
type(date_time), dimension(:), intent(in) :: tpdates
@@ -123,7 +123,6 @@ REAL,DIMENSION(:,:,:), INTENT(IN),OPTIONAL :: PTRAJZ
CHARACTER(LEN=20) :: YCOMMENT
CHARACTER(LEN=3) :: YJ
INTEGER :: ILENG, ILENTITRE, ILENUNITE, ILENCOMMENT
-INTEGER :: ILUOUTDIA
INTEGER :: II, IJ, IK, IT, IN, IP, J, JJ
INTEGER :: INTRAJT, IKTRAJX, IKTRAJY, IKTRAJZ
INTEGER :: ITTRAJX, ITTRAJY, ITTRAJZ
@@ -164,8 +163,6 @@ GPACK=LPACK
LPACK=.FALSE.
YCOMMENT='NOTHING'
!
-ILUOUTDIA = TPLUOUTDIA%NLU
-!
II = SIZE(PVAR,1)
IJ = SIZE(PVAR,2)
IF(HTYPE == 'CART' .AND. .NOT. GICP .AND. .NOT. GJCP) THEN
@@ -233,9 +230,6 @@ ELSE
ICOMPZ = 0
ENDIF
!
-IF (NVERB>=5) THEN
- WRITE(ILUOUTDIA,*)' WRITE_DIACHRO: ',TRIM(TPDIAFILE%CNAME)//'.lfi'
-ENDIF
!
! 1er enregistrement TYPE
!
@@ -250,10 +244,6 @@ TZFIELD%NTYPE = TYPECHAR
TZFIELD%NDIMS = 0
TZFIELD%LTIMEDEP = .FALSE.
CALL IO_Field_write(TPDIAFILE,TZFIELD,HTYPE)
-
-IF (NVERB>=5) THEN
- WRITE(ILUOUTDIA,*)' 1st record (',TRIM(TZFIELD%CMNHNAME),'): OK'
-ENDIF
!
! 2eme enregistrement DIMENSIONS des MATRICES et LONGUEUR des TABLEAUX de CARACTERES et FLAGS de COMPRESSION sur les DIFFERENTS AXES
!
@@ -295,9 +285,6 @@ SELECT CASE(HTYPE)
ITABCHAR(33)=INMASK; ITABCHAR(34)=IPMASK
CALL IO_Field_write(TPDIAFILE,TZFIELD,ITABCHAR)
DEALLOCATE(ITABCHAR)
- IF (NVERB>=5) THEN
- WRITE(ILUOUTDIA,*)' ILENTITRE,ILENUNITE,ILENCOMMENT ',ILENTITRE,ILENUNITE,ILENCOMMENT
- ENDIF
CASE DEFAULT
ILENG = 25
ALLOCATE(ITABCHAR(ILENG))
@@ -317,9 +304,6 @@ SELECT CASE(HTYPE)
CALL IO_Field_write(TPDIAFILE,TZFIELD,ITABCHAR)
DEALLOCATE(ITABCHAR)
END SELECT
-IF (NVERB>=5) THEN
- WRITE(ILUOUTDIA,*)' 2nd record (',TRIM(TZFIELD%CMNHNAME),'): OK'
-ENDIF
!
! 3eme enregistrement TITRE
!
@@ -334,10 +318,6 @@ TZFIELD%NTYPE = TYPECHAR
TZFIELD%NDIMS = 1
TZFIELD%LTIMEDEP = .FALSE.
CALL IO_Field_write(TPDIAFILE,TZFIELD,HTITRE(1:IP))
-
-IF (NVERB>=5) THEN
- WRITE(ILUOUTDIA,*)' 3rd record (',TRIM(TZFIELD%CMNHNAME),'): OK'
-ENDIF
!
! 4eme enregistrement UNITE
!
@@ -352,10 +332,6 @@ TZFIELD%NTYPE = TYPECHAR
TZFIELD%NDIMS = 1
TZFIELD%LTIMEDEP = .FALSE.
CALL IO_Field_write(TPDIAFILE,TZFIELD,HUNITE(1:IP))
-
-IF (NVERB>=5) THEN
- WRITE(ILUOUTDIA,*)' 4th record (',TRIM(TZFIELD%CMNHNAME),'): OK'
-ENDIF
!
! 5eme enregistrement COMMENT
!
@@ -370,10 +346,6 @@ TZFIELD%NTYPE = TYPECHAR
TZFIELD%NDIMS = 1
TZFIELD%LTIMEDEP = .FALSE.
CALL IO_Field_write(TPDIAFILE,TZFIELD,HCOMMENT(1:IP))
-
-IF (NVERB>=5) THEN
- WRITE(ILUOUTDIA,*)' 5th record (',TRIM(TZFIELD%CMNHNAME),'): OK'
-ENDIF
!
! 6eme enregistrement PVAR
!
@@ -416,13 +388,7 @@ DO J = 1,IP
TZFIELD%LTIMEDEP = .FALSE.
CALL IO_Field_write(TPDIAFILE,TZFIELD,PVAR(:,:,:,:,:,J))
ENDIF
- IF (NVERB>=5) THEN
- WRITE(ILUOUTDIA,*)J,TRIM(TZFIELD%CMNHNAME)
- ENDIF
ENDDO
-IF (NVERB>=5) THEN
- WRITE(ILUOUTDIA,*)' 6th record: OK'
-ENDIF
!
! 7eme enregistrement TRAJT
!
@@ -447,10 +413,6 @@ end do
call IO_Field_write( tpdiafile, tzfield, ztimes )
deallocate( ztimes )
-
-IF (NVERB>=5) THEN
- WRITE(ILUOUTDIA,*)' 7th record (',TRIM(TZFIELD%CMNHNAME),'): OK'
-ENDIF
!
! Dans certains cas
!
diff --git a/src/MNH/write_profilern.f90 b/src/MNH/write_profilern.f90
index 7b3ed0d552d36004c3120719f63873269c4dbc57..95c97354b7dd5411c5eb4b17a39a513ea2f2ee6e 100644
--- a/src/MNH/write_profilern.f90
+++ b/src/MNH/write_profilern.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2002-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2002-2020 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -628,10 +628,10 @@ ALLOCATE (ZW6(1,1,IKU,size(tprofiler%tpdates),1,JPROC))
ZW6 = ZWORK6(:,:,:,:,:,:JPROC)
DEALLOCATE(ZWORK6)
-CALL WRITE_DIACHRO( TPDIAFILE, TLUOUT0, YGROUP, "CART", IGRID(:JPROC), tprofiler%tpdates, &
- ZW6, YTITLE(:JPROC), YUNIT(:JPROC), YCOMMENT(:JPROC), &
- OICP = .TRUE., OJCP = .TRUE., OKCP = .FALSE., &
- KIL = 1, KIH = 1, KJL = 1, KJH = 1, KKL = 1, KKH = IKU )
+CALL WRITE_DIACHRO( TPDIAFILE, YGROUP, "CART", IGRID(:JPROC), tprofiler%tpdates, &
+ ZW6, YTITLE(:JPROC), YUNIT(:JPROC), YCOMMENT(:JPROC), &
+ OICP = .TRUE., OJCP = .TRUE., OKCP = .FALSE., &
+ KIL = 1, KIH = 1, KJL = 1, KJH = 1, KKL = 1, KKH = IKU )
DEALLOCATE (ZW6 )
DEALLOCATE (YCOMMENT)
diff --git a/src/MNH/write_seriesn.f90 b/src/MNH/write_seriesn.f90
index 18618882425b6694fe86cf3816ff93ad8fe76036..7aecd501eddecb0f6778f0669f30d78643f5847d 100644
--- a/src/MNH/write_seriesn.f90
+++ b/src/MNH/write_seriesn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2002-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2002-2020 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -236,11 +236,11 @@ ENDIF
!* 2.3 Write in diachro file
!
GICP=.TRUE. ; GJCP=.TRUE. ; GKCP=.TRUE.
-CALL WRITE_DIACHRO( TPDIAFILE, TLUOUT, 'TSERIES', 'CART', NSGRIDD1, tpsdates(1:nsnbstept), &
- XSSERIES1(1:1,1:1,1:1,1:NSNBSTEPT,:,:), &
- CSTITLE1(:), CSUNIT1(:), CSCOMMENT1(:), &
- OICP = GICP, OJCP = GJCP, OKCP = GKCP, &
- KIL = 1, KIH = 1, KJL = 1, KJH = 1, KKL = 1, KKH = 1 )
+CALL WRITE_DIACHRO( TPDIAFILE, 'TSERIES', 'CART', NSGRIDD1, tpsdates(1:nsnbstept), &
+ XSSERIES1(1:1,1:1,1:1,1:NSNBSTEPT,:,:), &
+ CSTITLE1(:), CSUNIT1(:), CSCOMMENT1(:), &
+ OICP = GICP, OJCP = GJCP, OKCP = GKCP, &
+ KIL = 1, KIH = 1, KJL = 1, KJH = 1, KKL = 1, KKH = 1 )
!
!----------------------------------------------------------------------------
!
@@ -290,11 +290,11 @@ DEALLOCATE(ZVAR3D)
!* 3.2 Write in diachro file
!
GICP=.TRUE. ; GJCP=.TRUE. ; GKCP=.FALSE.
-CALL WRITE_DIACHRO( TPDIAFILE, TLUOUT, 'ZTSERIES', 'CART', NSGRIDD2, tpsdates(1:nsnbstept), &
- XSSERIES2(1:1,1:1,1:1,1:NSNBSTEPT,:,:), &
- CSTITLE2(:), CSUNIT2(:), CSCOMMENT2(:), &
- OICP = GICP, OJCP = GJCP, OKCP = GKCP, &
- KIL = 1, KIH = 1, KJL = 1, KJH = 1, KKL = IKB, KKH = IKE )
+CALL WRITE_DIACHRO( TPDIAFILE, 'ZTSERIES', 'CART', NSGRIDD2, tpsdates(1:nsnbstept), &
+ XSSERIES2(1:1,1:1,1:1,1:NSNBSTEPT,:,:), &
+ CSTITLE2(:), CSUNIT2(:), CSCOMMENT2(:), &
+ OICP = GICP, OJCP = GJCP, OKCP = GKCP, &
+ KIL = 1, KIH = 1, KJL = 1, KJH = 1, KKL = IKB, KKH = IKE )
!
!----------------------------------------------------------------------------
!
@@ -348,11 +348,11 @@ DO JS=1,NBJSLICE
YSTITLE3S(JT)=ADJUSTL(ADJUSTR(CSTITLE3(JT))//'Y'//YSL//'-'//YSH)
END DO
GICP=.FALSE. ; GJCP=.TRUE. ; GKCP=.TRUE.
- CALL WRITE_DIACHRO( TPDIAFILE, TLUOUT, YGROUP, 'CART', NSGRIDD3, tpsdates(1:nsnbstept), &
- ZSERIES3_ll(1:IIU_ll,1:1,1:1,1:NSNBSTEPT,1:1,ISB1:ISB2), &
- YSTITLE3S(:), CSUNIT3(:), CSCOMMENT3(:), &
- OICP = GICP, OJCP = GJCP, OKCP = GKCP, &
- KIL = 1, KIH = IIU_ll, KJL = 1, KJH = 1, KKL = 1, KKH = 1 )
+ CALL WRITE_DIACHRO( TPDIAFILE, YGROUP, 'CART', NSGRIDD3, tpsdates(1:nsnbstept), &
+ ZSERIES3_ll(1:IIU_ll,1:1,1:1,1:NSNBSTEPT,1:1,ISB1:ISB2), &
+ YSTITLE3S(:), CSUNIT3(:), CSCOMMENT3(:), &
+ OICP = GICP, OJCP = GJCP, OKCP = GKCP, &
+ KIL = 1, KIH = IIU_ll, KJL = 1, KJH = 1, KKL = 1, KKH = 1 )
END DO
DEALLOCATE(ZVAR3D,ZWORK2D,ZSERIES3_ll)
!
diff --git a/src/MNH/write_stationn.f90 b/src/MNH/write_stationn.f90
index ad714bd569127529dc61feaf0b50dd6a0d7a32ae..b419ef542e07585325c2821da1744f9a61426a92 100644
--- a/src/MNH/write_stationn.f90
+++ b/src/MNH/write_stationn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2002-2019 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2002-2020 CNRS, Meteo-France and Universite Paul Sabatier
!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1.
@@ -711,10 +711,10 @@ ALLOCATE (ZW6(1,1,1,SIZE(tstation%tpdates),1,JPROC))
ZW6 = ZWORK6(:,:,:,:,:,:JPROC)
DEALLOCATE(ZWORK6)
!
-CALL WRITE_DIACHRO( TPDIAFILE, TLUOUT0, YGROUP, "CART", IGRID, tstation%tpdates, &
- ZW6(:,:,:,:,:,:), YTITLE(:), YUNIT(:), YCOMMENT(:), &
- OICP = .TRUE., OJCP = .TRUE., OKCP = .FALSE., &
- KIL = 1, KIH = 1, KJL = 1, KJH = 1, KKL = 1, KKH = 1 )
+CALL WRITE_DIACHRO( TPDIAFILE, YGROUP, "CART", IGRID, tstation%tpdates, &
+ ZW6(:,:,:,:,:,:), YTITLE(:), YUNIT(:), YCOMMENT(:), &
+ OICP = .TRUE., OJCP = .TRUE., OKCP = .FALSE., &
+ KIL = 1, KIH = 1, KJL = 1, KJH = 1, KKL = 1, KKH = 1 )
!
DEALLOCATE (ZW6)
DEALLOCATE (YCOMMENT)