From 780f4861971440dce7cf9e56f4b21a7a121dee72 Mon Sep 17 00:00:00 2001 From: tanyasmirnova Date: Wed, 31 Jan 2024 17:54:16 +0000 Subject: [PATCH 1/2] In RUC driver changed the instantaneous runoff output to the accumulated surface runoff. --- physics/SFC_Models/Land/RUC/lsm_ruc.F90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/physics/SFC_Models/Land/RUC/lsm_ruc.F90 b/physics/SFC_Models/Land/RUC/lsm_ruc.F90 index ba1b1b4e9..fb60d4b53 100644 --- a/physics/SFC_Models/Land/RUC/lsm_ruc.F90 +++ b/physics/SFC_Models/Land/RUC/lsm_ruc.F90 @@ -1304,8 +1304,7 @@ subroutine lsm_ruc_run & ! inputs ! --- ... accumulated total runoff and surface runoff runoff(i) = runoff(i) + (drain(i)+runof(i)) * delt ! accum total kg m-2 - !srunoff(i) = srunoff(i) + runof(i) * delt ! accum surface kg m-2 - srunoff(i) = acrunoff(i,j) ! accum surface kg m-2 + srunoff(i) = srunoff(i) + runof(i) * delt ! accum surface kg m-2 ! --- ... accumulated frozen precipitation (accumulation in lsmruc) snowfallac_lnd(i) = snfallac_lnd(i,j) ! accum kg m-2 From 5a478d449513d901ca89b99b7cd4caf8ff64e7cc Mon Sep 17 00:00:00 2001 From: tanyasmirnova Date: Wed, 14 Feb 2024 18:41:55 +0000 Subject: [PATCH 2/2] For fresh snow increase max snow albedo to 0.7 if it is below 0.4. --- physics/SFC_Models/Land/RUC/module_sf_ruclsm.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/physics/SFC_Models/Land/RUC/module_sf_ruclsm.F90 b/physics/SFC_Models/Land/RUC/module_sf_ruclsm.F90 index 2d01f96c9..f1647ef81 100644 --- a/physics/SFC_Models/Land/RUC/module_sf_ruclsm.F90 +++ b/physics/SFC_Models/Land/RUC/module_sf_ruclsm.F90 @@ -1740,7 +1740,7 @@ SUBROUTINE SFCTMP (debug_print, delt,ktau,conflx,i,j, & !--- input varia !-- will reduce warm bias in western Canada !-- and US West coast, where max snow albedo is low (0.3-0.5). !print *,'ALB increase to 0.7',alb_snow,snhei,snhei_crit,albsn,i,j - !ALBsn = 0.7_kind_phys + ALBsn = 0.7_kind_phys endif Emiss= emissn @@ -1753,7 +1753,7 @@ SUBROUTINE SFCTMP (debug_print, delt,ktau,conflx,i,j, & !--- input varia !-- will reduce warm bias in western Canada !-- and US West coast, where max snow albedo is low (0.3-0.5). !print *,'ALB increase to 0.7',alb_snow,snhei,snhei_crit,albsn,i,j - !ALBsn = 0.7_kind_phys + ALBsn = 0.7_kind_phys !print *,'NO mosaic ALB increase to 0.7',alb_snow,snhei,snhei_crit,alb,i,j endif