Skip to content

Commit

Permalink
removed added whitespace
Browse files Browse the repository at this point in the history
  • Loading branch information
davidclemenssewall committed Dec 16, 2024
1 parent f35a56d commit 1c4f9bf
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions columnphysics/icepack_therm_mushy.F90
Original file line number Diff line number Diff line change
Expand Up @@ -72,7 +72,7 @@ subroutine temperature_changes_salinity(dt, &
lhcoef , & ! transfer coefficient for latent heat
Tbot , & ! ice bottom surfce temperature (deg C)
sss ! sea surface salinity (PSU)

real (kind=dbl_kind), intent(inout) :: &
fswsfc , & ! SW absorbed at ice/snow surface (W m-2)
fswint ! SW absorbed in ice interior below surface (W m-2)
Expand Down Expand Up @@ -3139,7 +3139,7 @@ subroutine flushing_velocity(zTin, phi, &

! calculate ocean surface height above bottom of ice
hocn = (ice_mass + hpond * apond * rhofresh + hsn * rhos) / rhow

! calculate brine height above bottom of ice
hbrine = hin + hpond

Expand All @@ -3151,7 +3151,7 @@ subroutine flushing_velocity(zTin, phi, &

! maximum down flow to drain pond
w_down_max = (hpond * apond) / dt

! limit flow
w = min(w,w_down_max)

Expand Down

0 comments on commit 1c4f9bf

Please sign in to comment.