Modules

ModuleSource FileDescription
enkf_clm_5 enkf_clm_5.F90
enkf_clm_5 enkf_clm_5.F90
enkf_clm_mod enkf_clm_mod_5.F90
enkf_clm_mod enkf_clm_mod_5.F90
enkf_clm_mod enkf_clm_mod.F90
enkf_cosmo_mod enkf_cosmo_mod.F90
enkf_cosmo_mod enkf_cosmo_mod.F90
mod_assimilation mod_assimilation.F90
mod_clm_statistics mod_clm_statistics_5.F90
mod_clm_statistics mod_clm_statistics.F90
mod_clm_statistics mod_clm_statistics_5.F90
mod_parallel_pdaf mod_parallel_pdaf.F90
mod_read_obs mod_read_obs.F90
mod_tsmp mod_tsmp.F90

$ interface $ subroutine g2l_state(domain_p, state_p, dim_l, state_l) bind(c) $ use iso_c_binding $ import $ INTEGER(c_int) :: domain_p ! Current local analysis domain $ INTEGER(c_int) :: dim_l ! Local state dimension $ TYPE(c_ptr) :: state_p ! PE-local full state vector $ TYPE(c_ptr) :: state_l ! State vector on local analysis domain $ end subroutine g2l_state $ end interface $ $ interface $ subroutine l2g_state(domain_p, state_p, dim_l, state_l) bind(c) $ use iso_c_binding $ import $ INTEGER(c_int) :: domain_p ! Current local analysis domain $ INTEGER(c_int) :: dim_l ! Local state dimension $ TYPE(c_ptr) :: state_l ! State vector on local analysis domain $ TYPE(c_ptr) :: state_p ! PE-local full state vector $ end subroutine l2g_state $ end interface

parser parser_mpi.F90