Skip to content
15 changes: 15 additions & 0 deletions phys/module_sf_noahmpdrv.F
Original file line number Diff line number Diff line change
Expand Up @@ -375,6 +375,8 @@ SUBROUTINE noahmplsm(ITIMESTEP, YR, JULIAN, COSZIN,XLAT,XLONG, & ! IN
REAL :: SAG ! solar rad absorbed by ground (w/m2)
REAL :: RSSUN ! sunlit leaf stomatal resistance (s/m)
REAL :: RSSHA ! shaded leaf stomatal resistance (s/m)
REAL, DIMENSION(1:2) :: ALBSND ! snow albedo (direct)
REAL, DIMENSION(1:2) :: ALBSNI ! snow albedo (diffuse)
REAL :: RB ! leaf boundary layer resistance (s/m)
REAL :: LAISUN ! sunlit leaf area index (m2/m2)
REAL :: LAISHA ! shaded leaf area index (m2/m2)
Expand Down Expand Up @@ -870,6 +872,7 @@ SUBROUTINE noahmplsm(ITIMESTEP, YR, JULIAN, COSZIN,XLAT,XLONG, & ! IN
RUNSF , RUNSB , APAR , PSN , SAV , SAG , & ! OUT :
FSNO , NEE , GPP , NPP , FVEGMP , SALB , & ! OUT :
QSNBOT , PONDING , PONDING1, PONDING2, RSSUN , RSSHA , & ! OUT :
ALBSND , ALBSNI , & ! OUT :
BGAP , WGAP , CHV , CHB , EMISSI , & ! OUT :
SHG , SHC , SHB , EVG , EVB , GHV , & ! OUT :
GHB , IRG , IRC , IRB , TR , EVC , & ! OUT :
Expand Down Expand Up @@ -1198,7 +1201,19 @@ SUBROUTINE TRANSFER_MP_PARAMETERS(VEGTYPE,SOILTYPE,SLOPETYPE,SOILCOLOR,CROPTYPE,
parameters%Z0SNO = Z0SNO_TABLE
parameters%SSI = SSI_TABLE
parameters%SWEMX = SWEMX_TABLE
parameters%TAU0 = TAU0_TABLE
parameters%GRAIN_GROWTH = GRAIN_GROWTH_TABLE
parameters%EXTRA_GROWTH = EXTRA_GROWTH_TABLE
parameters%DIRT_SOOT = DIRT_SOOT_TABLE
parameters%BATS_COSZ = BATS_COSZ_TABLE
parameters%BATS_VIS_NEW = BATS_VIS_NEW_TABLE
parameters%BATS_NIR_NEW = BATS_NIR_NEW_TABLE
parameters%BATS_VIS_AGE = BATS_VIS_AGE_TABLE
parameters%BATS_NIR_AGE = BATS_NIR_AGE_TABLE
parameters%BATS_VIS_DIR = BATS_VIS_DIR_TABLE
parameters%BATS_NIR_DIR = BATS_NIR_DIR_TABLE
parameters%RSURF_SNOW = RSURF_SNOW_TABLE
parameters%RSURF_EXP = RSURF_EXP_TABLE

! ----------------------------------------------------------------------
! Transfer soil parameters
Expand Down
Loading