diff --git a/src/MNH/write_lbn.f90 b/src/MNH/write_lbn.f90 index 2777fa8b61257ec0de87f9575920c2eed038bf66..eb49412fa260f370e9d6e7c60ce5e5acb01d3251 100644 --- a/src/MNH/write_lbn.f90 +++ b/src/MNH/write_lbn.f90 @@ -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