Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

hr2 accumulate #70

Merged
merged 17 commits into from
May 1, 2023
Merged

hr2 accumulate #70

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
17 commits
Select commit Hold shift + click to select a range
054413a
document thermalz0 scheme
barlage Apr 28, 2023
52752a9
Merge branch 'hr2_land1' into z0h_document
barlage Apr 28, 2023
c39a6a5
add z0m option to account for phenology
barlage May 1, 2023
3ca1cb4
revert z0m option to original for testing
barlage May 1, 2023
c92f164
add gfs stability inside noahmp; remove dependence on sfc_diff
barlage May 1, 2023
5c438fd
add z0m to hvt ratio to mptable
barlage May 1, 2023
54b406e
use blumel99 approach for bare soil for chen09 trs option
barlage May 1, 2023
591791c
use log averaging for z0m
barlage May 1, 2023
e046059
modify compositing for trs = chen09 and tessel
barlage May 1, 2023
8ccdf65
add limits to rb
barlage May 1, 2023
60fb0e8
lower glacier snow limit to 100mm
barlage May 1, 2023
63aed7c
bug fix for mixing ratio calculation in canres
barlage May 1, 2023
12d8ab5
fix bug in infil for infiltration limit
barlage May 1, 2023
9525a16
add canopy heat to mptable for tuning
barlage May 1, 2023
6ab1b96
add two changes missed in previous update
barlage May 1, 2023
36e3892
fix inout on ustar in sfcdif 1 and 2
barlage May 1, 2023
2fc95fe
remove zvfun and gdx effect from sfcdif3
barlage May 1, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions physics/module_sf_noahmp_glacier.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1583,7 +1583,7 @@ subroutine sfcdif1_glacier(iter ,zlvl ,zpd ,z0h ,z0m , & !in
#endif

! outputs
real (kind=kind_phys), intent(out) :: fv !< friction velocity (m/s)
real (kind=kind_phys), intent(inout) :: fv !< friction velocity (m/s)
real (kind=kind_phys), intent(out) :: cm !< drag coefficient for momentum
real (kind=kind_phys), intent(out) :: ch !< drag coefficient for heat
real (kind=kind_phys), intent(out) :: ch2 !< drag coefficient for heat
Expand Down Expand Up @@ -2646,9 +2646,9 @@ subroutine snowwater_glacier (nsnow ,nsoil ,imelt ,dt ,sfctmp , & !in

!to obtain equilibrium state of snow in glacier region

if(sneqv > 2000.) then ! 2000 mm -> maximum water depth
if(sneqv > 100.) then ! 100 mm -> maximum water depth
bdsnow = snice(0) / dzsnso(0)
snoflow = (sneqv - 2000.)
snoflow = (sneqv - 100.)
snice(0) = snice(0) - snoflow
dzsnso(0) = dzsnso(0) - snoflow/bdsnow
snoflow = snoflow / dt
Expand Down
Loading