Skip to content

Commit

Permalink
right, don't forget the fortran
Browse files Browse the repository at this point in the history
  • Loading branch information
emorway-usgs committed Jun 19, 2024
1 parent 4358e1b commit c2ff221
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/Model/GroundWaterEnergy/gwe-est.f90
Original file line number Diff line number Diff line change
Expand Up @@ -678,12 +678,12 @@ subroutine read_options(this)
case ('ZERO_ORDER_DECAY')
this%idcy = 2
write (this%iout, fmtidcy2)
case ('CPW')
case ('HEAT_CAPACITY_WATER')
this%cpw = this%parser%GetDouble()
write (this%iout, '(4x,a,1pg15.6)') &
'Heat capacity of the water has been set to: ', &
this%cpw
case ('RHOW')
case ('DENSITY_WATER')
this%rhow = this%parser%GetDouble()
write (this%iout, '(4x,a,1pg15.6)') &
'Density of the water has been set to: ', &
Expand Down

0 comments on commit c2ff221

Please sign in to comment.