From fc7d561e31c92b42dc867df0670b3f5b99f6150c Mon Sep 17 00:00:00 2001 From: "Linlin.Pan" Date: Thu, 30 Jul 2020 13:39:20 +0000 Subject: [PATCH 1/2] Bug fix for rrfs_v1beta debug regression test modified file physics/drag_suite.F90 physics/module_sf_noahmp_glacier.f90 The codes have been tested on Hera. --- physics/drag_suite.F90 | 1 + physics/module_sf_noahmp_glacier.f90 | 2 ++ 2 files changed, 3 insertions(+) diff --git a/physics/drag_suite.F90 b/physics/drag_suite.F90 index 725011ee4..1a0c0a3d8 100644 --- a/physics/drag_suite.F90 +++ b/physics/drag_suite.F90 @@ -473,6 +473,7 @@ subroutine drag_suite_run( & ! Initialize CCPP error handling variables errmsg = '' errflg = 0 + var_temp2=0. !-------------------------------------------------------------------- diff --git a/physics/module_sf_noahmp_glacier.f90 b/physics/module_sf_noahmp_glacier.f90 index 1b9b3cf3f..61d7b4e3a 100644 --- a/physics/module_sf_noahmp_glacier.f90 +++ b/physics/module_sf_noahmp_glacier.f90 @@ -1111,6 +1111,8 @@ subroutine glacier_flux (nsoil ,nsnow ,emg ,isnow ,df ,dzsnso ,z dtg = 0. mozsgn = 0 mozold = 0. + moz=0. + h = 0. fv = 0.1 From eba02e9d518921c786e617f883c5d143cbf6e8ae Mon Sep 17 00:00:00 2001 From: "Linlin.Pan" Date: Thu, 30 Jul 2020 14:07:23 +0000 Subject: [PATCH 2/2] Update the codes according to the comments. Modified codes: physics/drag_suite.F90 physics/module_sf_noahmp_glacier.f90 --- physics/drag_suite.F90 | 2 +- physics/module_sf_noahmp_glacier.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/physics/drag_suite.F90 b/physics/drag_suite.F90 index 1a0c0a3d8..55ef9c268 100644 --- a/physics/drag_suite.F90 +++ b/physics/drag_suite.F90 @@ -473,7 +473,7 @@ subroutine drag_suite_run( & ! Initialize CCPP error handling variables errmsg = '' errflg = 0 - var_temp2=0. + var_temp2 = 0. !-------------------------------------------------------------------- diff --git a/physics/module_sf_noahmp_glacier.f90 b/physics/module_sf_noahmp_glacier.f90 index 61d7b4e3a..f3e0531f5 100644 --- a/physics/module_sf_noahmp_glacier.f90 +++ b/physics/module_sf_noahmp_glacier.f90 @@ -1111,7 +1111,7 @@ subroutine glacier_flux (nsoil ,nsnow ,emg ,isnow ,df ,dzsnso ,z dtg = 0. mozsgn = 0 mozold = 0. - moz=0. + moz = 0. h = 0. fv = 0.1