Skip to content

Commit

Permalink
Make dsnow non-optional
Browse files Browse the repository at this point in the history
  • Loading branch information
dabail10 committed Jul 5, 2024
1 parent 083d6e3 commit 3b2bdfa
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion columnphysics/icepack_therm_vertical.F90
Original file line number Diff line number Diff line change
Expand Up @@ -2248,6 +2248,7 @@ subroutine icepack_step_therm1(dt, ncat, nilyr, nslyr, &
meltt , & ! top ice melt (m/step-->cm/day)
melts , & ! snow melt (m/step-->cm/day)
meltb , & ! basal ice melt (m/step-->cm/day)
dsnow , & ! change in snow depth (m/step-->cm/day)
mlt_onset , & ! day of year that sfc melting begins
frz_onset ! day of year that freezing begins (congel or frazil)

Expand All @@ -2259,7 +2260,6 @@ subroutine icepack_step_therm1(dt, ncat, nilyr, nslyr, &
fswthru_vdf , & ! vis dif shortwave penetrating to ocean (W/m^2)
fswthru_idr , & ! nir dir shortwave penetrating to ocean (W/m^2)
fswthru_idf , & ! nir dif shortwave penetrating to ocean (W/m^2)
dsnow , & ! change in snow depth (m/step-->cm/day)
fsloss ! rate of snow loss to leads (kg/m^2/s)

real (kind=dbl_kind), intent(out), optional :: &
Expand Down

0 comments on commit 3b2bdfa

Please sign in to comment.