Module | Source File | Description |
---|---|---|
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 |