SUBROUTINE info_run_PEM(year_iter, criterion_stop)

      IMPLICIT NONE

  INTEGER, intent(in) :: year_iter, criterion_stop                  ! # of year and reason to stop

 open(1,file='info_run_PEM.txt', status='new')

 write(1,*)  year_iter, criterion_stop

 close(1)


END SUBROUTINE info_run_PEM