add model build internal

Author: henilp105

src/fpm/cmd/publish.f90

@@ -67,6 +67,8 @@ subroutine cmd_publish(settings)
     tmp_file = get_temp_filename()
     call git_archive('.', tmp_file, 'HEAD', settings%verbose, error)
     if (allocated(error)) call fpm_stop(1, '*cmd_publish* Archive error: '//error%message)
+    call model%dump('fpm_model.json', error, json=.true.)
+    if (allocated(error)) call fpm_stop(1, '*cmd_publish* Model dump error: '//error%message)
 
     upload_data = [ &
     & string_t('package_name="'//package%name//'"'), &