Skip to content

Commit

Permalink
Remove flg_snoage_scl in SNICAR such that xdrdt can have an effect
Browse files Browse the repository at this point in the history
  • Loading branch information
olyson committed Feb 1, 2024
1 parent ebb9f3e commit 923d05d
Showing 1 changed file with 2 additions and 8 deletions.
10 changes: 2 additions & 8 deletions src/biogeophys/SnowSnicarMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -81,9 +81,6 @@ module SnowSnicarMod
real(r8), parameter :: tim_cns_dst_rmv = 2.2E-8_r8 ! time constant for removal of dust in snow on sea-ice
! [s-1] (50% mass removal/year)

! scaling of the snow aging rate (tuning option):
logical :: flg_snoage_scl = .false. ! flag for scaling the snow aging rate by some arbitrary factor

! snow and aerosol Mie parameters:
! (arrays declared here, but are set in iniTimeConst)
! (idx_Mie_snw_mx is number of snow radii with defined parameters (i.e. from 30um to 1500um))
Expand Down Expand Up @@ -1656,13 +1653,10 @@ subroutine SnowAge_grain(bounds, &
dr = dr + dr_wet

!
!********** 3. SNOWAGE SCALING (TURNED OFF BY DEFAULT) *************
!********** 3. SNOWAGE SCALING *************
!
! Multiply rate of change of effective radius by some constant, xdrdt
if (flg_snoage_scl) then
dr = dr*params_inst%xdrdt
endif

dr = dr*params_inst%xdrdt

!
!********** 4. INCREMENT EFFECTIVE RADIUS, ACCOUNTING FOR: ***********
Expand Down

0 comments on commit 923d05d

Please sign in to comment.