[mesa-users] exit error

[杨涛只]

Dear Hector,

Thanks for your help. It works greatly!

Best Wishes!

Taozhi



-----原始邮件-----
发件人: "Héctor MR" <hector.mr at pitt.edu>
发送时间: 2016年6月9日 星期四
收件人: "杨涛只" <yangtaozhi at xao.ac.cn>
抄送: mesa-users <mesa-users at lists.sourceforge.net>
主题: Re: [mesa-users] exit error


  Hello,


  Have you looked at the new capabilities of MESA? https://sourceforge.net/p/mesa/mailman/message/34821561/


  If you go to item #3, you will see that you have to change the subroutine extras_controls(id, ierr) in your file src/run_star_extras.f, which is what that warning message says.


        subroutine extras_controls(id, ierr)
         integer, intent(in) :: id
         integer, intent(out) :: ierr
         type (star_info), pointer :: s
         ierr = 0
         call star_ptr(id, s, ierr)
         if (ierr /= 0) return
        
         ! this is the place to set any procedure pointers you want to change
         ! e.g., other_wind, other_mixing, other_energy  (see star_data.inc)
        
         ! Uncomment these lines if you wish to use the functions in this file,
         ! otherwise we use a null_ version which does nothing.
         s% extras_startup => extras_startup
         s% extras_check_model => extras_check_model
         s% extras_finish_step => extras_finish_step
         s% extras_after_evolve => extras_after_evolve
         s% how_many_extra_history_columns => how_many_extra_history_columns
         s% data_for_extra_history_columns => data_for_extra_history_columns
         s% how_many_extra_profile_columns => how_many_extra_profile_columns
         s% data_for_extra_profile_columns => data_for_extra_profile_columns 

         ! Once you have set the function pointers you want,
         ! then uncomment this (or set it in your star_job inlist)
         ! to disable the printed warning message,
          s% job% warn_run_star_extras =.false.      
           
      end subroutine extras_controls


  --

  Héctor





-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.mesastar.org/pipermail/mesa-users/attachments/20160609/3ff61c2f/attachment.html>