Allocate and set output_message when returning with error

src-f90/chease_imas_vDD3_5.3PUAL3_3.8.f90

@@ -697,6 +697,8 @@ subroutine chease(equil_in_ids,equil_out_ids,param_input_ids,flag_status,output_
       allocate(eqchease_out(index_out)%codeparam%output_diag(1))
       eqchease_out(index_out)%codeparam%output_diag(1) = 'ERROR in chease_new.f90: Could not assign some code parameters.'
       eqchease_out(index_out)%codeparam%output_flag = -10
+      allocate(character(len=40)::output_message)
+      output_message = "chease_new error: assigning params"
       equil_out => eqchease_out
       return
     end if
@@ -828,6 +830,8 @@ subroutine chease(equil_in_ids,equil_out_ids,param_input_ids,flag_status,output_
       if (nverbose .ge. 0) write(0,*) 'for time: eqchease_out(index_out)%time= ',eqchease_out(index_out)%time
       if (nverbose .ge. 0) write(0,*) 'there were problems in stepon, quit chease'
       call flush(0)
+      allocate(character(len=20)::output_message)
+      output_message = "stepon error"
       equil_out => eqchease_out
       call copy_itm_to_ids_equilibrium(equil_out,equil_out_ids,flag_status,extra_data_itm_to_ids,iextra_option)
       print *,'equil_out_ids%time= ',equil_out_ids%time