enkf_clm_mod Module


Uses


Variables

Type Visibility Attributes Name Initial
integer(kind=c_int), public, bind(C,name="0") :: clmprint_et
integer(kind=c_int), public, bind(C,name="0") :: clmstatevec_allcol
integer(kind=c_int), public, bind(C,name="0") :: clmstatevec_colmean
integer(kind=c_int), public, bind(C,name="0") :: clmstatevec_only_active
integer(kind=c_int), public, bind(C,name="0") :: clmstatevec_max_layer
integer(kind=c_int), public, bind(C,name="0") :: clmt_printensemble
integer(kind=c_int), public, bind(C,name="0") :: clmwatmin_switch
real(kind=c_double), public, bind(C,name="0") :: clmcrns_bd
integer, public :: nstep
real(kind=r8), public :: dtime
integer, public :: ier
character(kind=c_char, len=1), public, dimension(100), bind(C,name="0"), target :: outdir
logical, public :: log_print
real(kind=r8), public :: eccf
logical, public :: mpi_running
integer, public :: mpicom_glob
character(len=SHR_KIND_CL), public :: nlfilename = " "
integer, public :: ierror
integer, public :: lengths_of_types
integer, public :: i
logical, public :: flag
integer(kind=c_int), public, bind(C,name="0") :: clmprefixlen
integer, public :: COMM_couple_clm
logical, public :: newgridcell

Subroutines

public subroutine domain_def_clm(lon_clmobs, lat_clmobs, dim_obs, longxy, latixy, longxy_obs, latixy_obs)

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: lon_clmobs(:)
real, intent(in) :: lat_clmobs(:)
integer, intent(in) :: dim_obs
integer, intent(inout), allocatable :: longxy(:)
integer, intent(inout), allocatable :: latixy(:)
integer, intent(inout), allocatable :: longxy_obs(:)
integer, intent(inout), allocatable :: latixy_obs(:)

public subroutine get_interp_idx(lon_clmobs, lat_clmobs, dim_obs, longxy_obs_floor, latixy_obs_floor)

@author Mukund Pondkule, Johannes Keller @date 27.03.2023 @brief Set indices of grid cells with lon/lat smaller than observation locations @details This routine sets the indices of grid cells with lon/lat smaller than observation locations.

Arguments

Type IntentOptional Attributes Name
real, intent(in) :: lon_clmobs(:)
real, intent(in) :: lat_clmobs(:)
integer, intent(in) :: dim_obs
integer, intent(inout), allocatable :: longxy_obs_floor(:)
integer, intent(inout), allocatable :: latixy_obs_floor(:)