Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
Removed old write statements from the param reader
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed Sep 3, 2021
1 parent dfa9b56 commit c0a21aa
Showing 1 changed file with 0 additions and 2 deletions.
2 changes: 0 additions & 2 deletions src/io/io.f90
Original file line number Diff line number Diff line change
Expand Up @@ -623,12 +623,10 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
case("GMTOT_ORIG")
read(param_value, *, err = 667, iomsg = iomsg) param%GMtot_orig
case("LTOT_ORIG")
write(*,*) param_value
read(param_value, *, err = 667, iomsg = iomsg) param%Ltot_orig(1)
do i = 2, NDIM
ifirst = ilast + 2
param_value = io_get_token(line, ifirst, ilast, iostat)
write(*,*) param_value
read(param_value, *, err = 667, iomsg = iomsg) param%Ltot_orig(i)
end do
case("LORBIT_ORIG")
Expand Down

0 comments on commit c0a21aa

Please sign in to comment.