diff --git a/src/MNH/close_file_mnh.f90 b/src/MNH/close_file_mnh.f90 index d0ff7a49b5f671b94b97fe2f48a807777e76a5db..39c99465dfc857b9f5d79f7c47c0bfa1b503c611 100644 --- a/src/MNH/close_file_mnh.f90 +++ b/src/MNH/close_file_mnh.f90 @@ -90,7 +90,7 @@ SELECT CASE(CPROGRAM) CASE('MESONH','SPAWN ') CALL GET_MODEL_NUMBER_ll (IMI) WRITE(YLUOUT,FMT='(A14,I1,A1)') 'OUTPUT_LISTING',IMI,' ' - CASE DEFAUT + CASE DEFAULT YLUOUT = '' END SELECT ! diff --git a/src/MNH/mnhget_desfmn.f90 b/src/MNH/mnhget_desfmn.f90 index dac0daae772d3904cb96ea26cabf2b7784660571..e282ced5bb5c4317b68ff5e6f10506942d52d779 100644 --- a/src/MNH/mnhget_desfmn.f90 +++ b/src/MNH/mnhget_desfmn.f90 @@ -97,6 +97,8 @@ SELECT CASE(CPROGRAM) CASE('MESONH','SPAWN ') IMI = GET_CURRENT_MODEL_INDEX() WRITE(YLUOUT,FMT='(A14,I1,A1)') 'OUTPUT_LISTING',IMI,' ' + CASE DEFAULT + YLUOUT = '' END SELECT ! CALL FMLOOK_ll(YLUOUT,YLUOUT,ILUOUT,IRESP)