Skip to content
Snippets Groups Projects
Commit 88b2d19b authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 20/09/2020: bugfix: use correct size in IO_WRITE_FIELD_LB

parent 5cc0c0ad
No related branches found
No related tags found
No related merge requests found
!MNH_LIC Copyright 1998-2018 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC Copyright 1998-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 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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
!MNH_LIC for details. version 1. !MNH_LIC for details. version 1.
...@@ -256,7 +256,7 @@ IF (NRR >=1) THEN ...@@ -256,7 +256,7 @@ IF (NRR >=1) THEN
TZFIELD%CLONGNAME = 'LBYR'//YC(JRR)//'M' TZFIELD%CLONGNAME = 'LBYR'//YC(JRR)//'M'
TZFIELD%CLBTYPE = 'LBY' TZFIELD%CLBTYPE = 'LBY'
TZFIELD%CCOMMENT = '2_Y_Z_LBYR'//YC(JRR)//'M' TZFIELD%CCOMMENT = '2_Y_Z_LBYR'//YC(JRR)//'M'
CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBXR_ll,XLBYRM(:,:,:,IRR)) CALL IO_WRITE_FIELD_LB(TPFILE,TZFIELD,NSIZELBYR_ll,XLBYRM(:,:,:,IRR))
END IF END IF
END IF END IF
END DO END DO
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment