Skip to content
Merged
Changes from 1 commit
Commits
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
39 changes: 30 additions & 9 deletions sorc/chgres_cube.fd/program_setup.f90
Original file line number Diff line number Diff line change
Expand Up @@ -234,10 +234,9 @@ module program_setup

contains

!> @brief Reads configuration namelist.
!!
!! @author gayno NCEP/EMC
!> Reads configuration namelist.
!!
!! @author George Gayno NCEP/EMC
subroutine read_setup_namelist

implicit none
Expand Down Expand Up @@ -412,6 +411,9 @@ subroutine read_setup_namelist

end subroutine read_setup_namelist

!> Reads var map.
!!
!! @author gayno NCEP/EMC
subroutine read_varmap

implicit none
Expand Down Expand Up @@ -469,10 +471,14 @@ subroutine read_varmap
endif
end subroutine read_varmap

! ----------------------------------------------------------------------------------------
! Find conditions for handling missing variables from varmap arrays
! ----------------------------------------------------------------------------------------

!> Find conditions for handling missing variables from varmap arrays.
!!
!! @param var_name
!! @param this_miss_var_method
!! @param this_miss_var_value
!! @param this_field_var_name
!! @param loc
!! @author George Gayno NCEP/EMC
subroutine get_var_cond(var_name,this_miss_var_method,this_miss_var_value, &
this_field_var_name, loc)
use esmf
Expand Down Expand Up @@ -514,8 +520,8 @@ end subroutine get_var_cond

!> @brief Compute soil parameters.
!!
!! @author gayno NCEP/EMC
!!
!! @param localpet
!! @author George Gayno NCEP/EMC
subroutine calc_soil_params_driver(localpet)

implicit none
Expand Down Expand Up @@ -662,6 +668,21 @@ subroutine calc_soil_params_driver(localpet)

end subroutine calc_soil_params_driver

!> Reads configuration namelist.
!!
!! @param num_soil_cats
!! @param smlow
!! @param smhigh
!! @param satdk
!! @param maxsmc
!! @param bb
!! @param satpsi
!! @param satdw
!! @param f11
!! @param refsmc
!! @param drysmc
!! @param wltsmc
!! @author George Gayno NCEP/EMC
subroutine calc_soil_params(num_soil_cats, smlow, smhigh, satdk, &
maxsmc, bb, satpsi, satdw, f11, refsmc, drysmc, wltsmc)

Expand Down