diff --git a/src/MNH/write_lbn.f90 b/src/MNH/write_lbn.f90 index 0334fe22c9e5714fbe7413cbfe5478dfa4a1685c..4117ac91bcd453ecc38c2f01b097def77c74f98f 100644 --- a/src/MNH/write_lbn.f90 +++ b/src/MNH/write_lbn.f90 @@ -1,4 +1,4 @@ -!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 version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -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_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 DO