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

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

(cherry picked from commit 88b2d19b)
(cherry picked from commit d88b6203)
parent a24d41ff
No related branches found
No related tags found
No related merge requests found
......@@ -256,7 +256,7 @@ IF (NRR >=1) THEN
TZFIELD%CLONGNAME = 'LBYR'//YC(JRR)//'M'
TZFIELD%CLBTYPE = 'LBY'
TZFIELD%CCOMMENT = '2_Y_Z_LBYR'//YC(JRR)//'M'
CALL IO_Field_write_lb(TPFILE,TZFIELD,NSIZELBXR_ll,XLBYRM(:,:,:,IRR))
CALL IO_Field_write_lb(TPFILE,TZFIELD,NSIZELBYR_ll,XLBYRM(:,:,:,IRR))
END IF
END IF
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