First pass using typos tool

Author: warrickball

atm/private/atm_t_tau_uniform.f90

@@ -329,7 +329,7 @@ subroutine build_T_tau_uniform( &
 
     g = cgrav*M/(R*R)
 
-    ! Allocte atm_structure at its initial size
+    ! Allocate atm_structure at its initial size
 
     allocate(atm_structure(num_results_for_build_atm,INIT_NUM_PTS))
 

atm/private/atm_t_tau_varying.f90

@@ -588,7 +588,7 @@ subroutine build_T_tau_varying( &
 
     g = cgrav*M/(R*R)
 
-    ! Allocte atm_structure at its initial size
+    ! Allocate atm_structure at its initial size
 
     allocate(atm_structure(num_results_for_build_atm,INIT_NUM_PTS))
 

atm/private/table_atm.f90

@@ -543,7 +543,7 @@ subroutine load_atm_table(iZ,ierr)
                write(*,'(A)')
                write(*,'(A)')
                write(*,'(A)')
-               write(*,*) 'FATAL ERROR: out-of-date verion of atm data.'
+               write(*,*) 'FATAL ERROR: out-of-date version of atm data.'
                write(*,*) 'Please update by removing the directory mesa/data/atm_data,'
                write(*,*) 'and rerunning the mesa ./install script.'
                write(*,'(A)')

binary/private/binary_ctrls_io.f90

@@ -758,12 +758,12 @@ subroutine get_binary_control(b, name, val, ierr)
          call set_binary_controls_for_writing(b, ierr)
          if(ierr/=0) return
 
-         ! Write namelist to temporay file
+         ! Write namelist to temporary file
          open(newunit=iounit,status='scratch')
          write(iounit,nml=binary_controls)
          rewind(iounit)
 
-         ! Namelists get written in captials
+         ! Namelists get written in capitals
          upper_name = StrUpCase(name)
          val = ''
          ! Search for name inside namelist

binary/private/binary_evolve.f90

@@ -123,7 +123,7 @@ subroutine binarydata_init(b, doing_restart)
                   end if
             end if
 
-         ! Set all parameters nessessary for integration over the binary orbit
+         ! Set all parameters necessary for integration over the binary orbit
          ! 1) true anomaly = polar angle from periastron 0 -> 2pi
             do i = 1,b% anomaly_steps
                b% theta_co(i) = (i-1) * (2 * pi) / b% anomaly_steps
@@ -445,7 +445,7 @@ integer function binary_check_model(b)
                if (new_mdot > 0) then
                   new_mdot = 0.0d0
                   write(*,*) "WARNING: explicit computation of mass transfer results in accreting donor"
-                  write(*,*) "Not transfering mass"
+                  write(*,*) "Not transferring mass"
                end if
                ! smooth out the changes in mdot
                new_mdot = b% cur_mdot_frac*b% mtransfer_rate + (1-b% cur_mdot_frac)*new_mdot

binary/private/binary_jdot.f90

@@ -290,7 +290,7 @@ subroutine default_jdot_mb(binary_id, ierr)
             end if
          else if (.not. (apply_jdot_mb .or. b% keep_mb_on) .and. b% using_jdot_mb_old(b% d_i)) then
             ! required mdot for the implicit scheme may drop drastically,
-            ! so its neccesary to increase change factor to avoid implicit
+            ! so its necessary to increase change factor to avoid implicit
             ! scheme from getting stuck
             b% change_factor = b% max_change_factor
             b% using_jdot_mb(b% d_i) = .false.
@@ -320,7 +320,7 @@ subroutine default_jdot_mb(binary_id, ierr)
                end if
             else if (.not. (apply_jdot_mb .or. b% keep_mb_on) .and. b% using_jdot_mb_old(b% a_i)) then
                ! required mdot for the implicit scheme may drop drastically,
-               ! so its neccesary to increase change factor to avoid implicit
+               ! so its necessary to increase change factor to avoid implicit
                ! scheme from getting stuck
                b% change_factor = b% max_change_factor
                b% using_jdot_mb(b% a_i) = .false.

binary/private/binary_job_ctrls_io.f90

@@ -282,12 +282,12 @@ subroutine get_binary_job(b, name, val, ierr)
          call set_binary_job_controls_for_writing(b, ierr)
          if(ierr/=0) return
 
-         ! Write namelist to temporay file
+         ! Write namelist to temporary file
          open(newunit=iounit,status='scratch')
          write(iounit,nml=binary_job)
          rewind(iounit)
 
-         ! Namelists get written in captials
+         ! Namelists get written in capitals
          upper_name = StrUpCase(name)
          val = ''
          ! Search for name inside namelist

binary/private/binary_mdot.f90

@@ -120,7 +120,7 @@ integer function check_implicit_rlo(binary_id, new_mdot)
             if (b% point_mass_i /= 0) then
                new_mdot = 0d0
                write(*,*) "WARNING: contact scheme requires evolve_both_stars=.true."
-               write(*,*) "Not transfering mass"
+               write(*,*) "Not transferring mass"
                return
             end if
             q = b% m(b% a_i) / b% m(b% d_i)
@@ -646,12 +646,12 @@ subroutine rlo_mdot(binary_id, mdot, ierr) ! Adapted from a routine kindly provi
 
          if (b% mdot_scheme == "roche_lobe") then
             write(*,*) "mdot_scheme = roche_lobe not applicable for explicit scheme"
-            write(*,*) "Not transfering mass"
+            write(*,*) "Not transferring mass"
             mdot = 0
             return
          else if (b% mdot_scheme /= "Ritter" .and. b% mdot_scheme /= "Kolb" .and. b% mdot_scheme /= "Arras") then
             write(*,*) "mdot_scheme = " , b% mdot_scheme , " not recognized"
-            write(*,*) "Not transfering mass"
+            write(*,*) "Not transferring mass"
             mdot = 0
             return
          end if

binary/private/run_binary_support.f90

@@ -431,7 +431,7 @@ end subroutine extras_binary_controls
 
                id = b% star_ids(j)
 
-               ! Avoid repeting the accretor when using the implicit scheme plus
+               ! Avoid repeating the accretor when using the implicit scheme plus
                ! rotation and implicit winds. When this happens the accretor won't
                ! usually care about the result of the evolution of the donor.
                if (j == b% a_i .and. b% num_tries >0 .and. s% was_in_implicit_wind_limit) &
@@ -498,7 +498,7 @@ end subroutine extras_binary_controls
                end do
             end if
 
-            ! do not evolve binary step on failure, its unnecesary and some variables are not properly
+            ! do not evolve binary step on failure, its unnecessary and some variables are not properly
             ! set when the newton solver fails.
             if (result == keep_going) then
                if (.not. b% CE_flag) then
@@ -584,7 +584,7 @@ end subroutine extras_binary_controls
                   end if
                   id = b% star_ids(i)
 
-                  ! Avoid repeting the accretor when using the implicit scheme plus
+                  ! Avoid repeating the accretor when using the implicit scheme plus
                   ! rotation and implicit winds. When this happens the accretor won't
                   ! usually care about the result of the evolution of the donor.
 

binary/public/binary_def.f90

@@ -49,7 +49,7 @@ module binary_def
       integer, parameter :: b_Tlim_dm = b_Tlim_ecc + 1
       integer, parameter :: b_numTlim = b_Tlim_dm
 
-      character (len=24) :: binary_dt_why_str(b_numTlim) ! indicates the reson for the timestep choice
+      character (len=24) :: binary_dt_why_str(b_numTlim) ! indicates the reason for the timestep choice
 
       !interfaces for procedure pointers
       abstract interface