enkf_cosmo_mod Module


Uses

    • mpe_io2
    • data_io
    • data_modelconfig
    • data_fields
    • utilities
    • data_parallel
    • src_allocation
    • src_traj
    • src_artifdata
    • time_utilities
    • data_tracer
    • data_parameters
    • src_block_fields_org
    • src_setup
    • meteo_utilities
    • environment
    • data_soil
    • data_runcontrol
    • data_flake
    • src_tracer
    • data_constants
    • info_lm_f90

Variables

Type Visibility Attributes Name Initial
integer(kind=iintegers), public :: ierrstat
integer(kind=iintegers), public :: izerror
integer(kind=iintegers), public :: izlbcqi
integer(kind=iintegers), public :: izanaqi
integer(kind=iintegers), public :: nzhours
integer(kind=iintegers), public :: nzdays
integer(kind=iintegers), public :: i
integer(kind=iintegers), public :: j
integer(kind=iintegers), public :: k
integer(kind=iintegers), public :: kzdims(24)
integer(kind=iintegers), public :: izdebug
integer(kind=iintegers), public :: nzdiv
integer(kind=iintegers), public :: iztrcr
integer(kind=iintegers), public :: nsp
real(kind=wp), public :: zforecasttime
logical, public :: lzconv
logical, public :: lzspptd
character(len=46), public :: ynote
character(len=255), public :: yzerrmsg
character(len=25), public :: yroutine
real(kind=wp), public, POINTER :: ztrcr(:,:,:) => NULL()
real(kind=wp), public, POINTER :: ztrcr_now(:,:,:) => NULL()
real(kind=wp), public, POINTER :: ztrcr_bd(:,:,:,:) => NULL()
real(kind=wp), public, POINTER :: qv_new(:,:,:) => NULL()
real(kind=wp), public, POINTER :: qv_now(:,:,:) => NULL()
real(kind=wp), public, POINTER :: qc_new(:,:,:) => NULL()
real(kind=wp), public, POINTER :: qc_now(:,:,:) => NULL()
real(kind=wp), public, POINTER :: qc_nx0(:,:,:) => NULL()
real(kind=wp), public, POINTER :: qi_new(:,:,:) => NULL()
real(kind=wp), public, POINTER :: qi_now(:,:,:) => NULL()
real(kind=wp), public, POINTER :: qi_nx0(:,:,:) => NULL()
real(kind=wp), public, POINTER :: qr_now(:,:,:) => NULL()
real(kind=wp), public, POINTER :: qs_now(:,:,:) => NULL()
real(kind=wp), public, POINTER :: qg_now(:,:,:) => NULL()
integer(kind=iintegers), public, ALLOCATABLE :: izclp(:)
integer(kind=iintegers), public, ALLOCATABLE :: izlbc(:)
integer(kind=iintegers), public, ALLOCATABLE :: izbd_forced(:)
integer, public :: cos_start

Subroutines

public subroutine initialize_loop(ntstep, nbd1, nbd2, nold, nnow, nnew)

Arguments

Type IntentOptional Attributes Name
integer(kind=iintegers), intent(in) :: ntstep
integer(kind=iintegers), intent(in) :: nbd1
integer(kind=iintegers), intent(in) :: nbd2
integer(kind=iintegers), intent(in) :: nold
integer(kind=iintegers), intent(in) :: nnow
integer(kind=iintegers), intent(in) :: nnew

public subroutine exchange_leapfrog()

Arguments

None

public subroutine exchange_runge_kutta()

Arguments

None

public subroutine set_trcr_special_bc()

Arguments

None

public subroutine nullify_tracers()

Arguments

None