integer, |
public, |
parameter | :: |
VOID | = | -666 | VOID value for data initialisation |
integer, |
public, |
parameter | :: |
cfd_realm | = | 1 | CFD realm identifier |
integer, |
public, |
parameter | :: |
md_realm | = | 2 | MD realm identifier |
character(len=*), |
public, |
parameter | :: |
realm_name(2) | = | (/"CFD","CFD"/) | Used with realm identifier to get name
error codes |
integer, |
public, |
parameter | :: |
COUPLER_ERROR_REALM | = | 1 | wrong realm value |
integer, |
public, |
parameter | :: |
COUPLER_ERROR_ONE_REALM | = | 2 | one realm missing |
integer, |
public, |
parameter | :: |
COUPLER_ERROR_INIT | = | 3 | initialisation error |
integer, |
public, |
parameter | :: |
COUPLER_ERROR_INPUT_FILE | = | 4 | wrong value in input file |
integer, |
public, |
parameter | :: |
COUPLER_ERROR_READ_INPUT | = | 5 | error in processing input file or data transfers |
integer, |
public, |
parameter | :: |
COUPLER_ERROR_CONTINUUM_FORCE | = | 6 | the region in which the continuum constrain force is apply spans over two MD domains |
integer, |
public, |
parameter | :: |
COUPLER_ABORT_ON_REQUEST | = | 7 | used in request_abort |
integer, |
public, |
parameter | :: |
COUPLER_ABORT_SEND_CFD | = | 8 | error in coupler_cfd_send |
integer, |
public, |
parameter | :: |
COUPLER_ERROR_CART_COMM | = | 9 | Wrong comm value in CPL_Cart_coords
MPI error flag |
integer, |
public |
| :: |
ierr | | | |
integer, |
protected |
| :: |
CPL_WORLD_COMM | | | Copy of MPI_COMM_WORLD, both CFD and MD realms; |
integer, |
protected |
| :: |
CPL_REALM_COMM | | | INTRA communicators within MD/CFD realms; |
integer, |
protected |
| :: |
CPL_INTER_COMM | | | CFD/MD INTER communicator between realm comms; |
integer, |
protected |
| :: |
CPL_CART_COMM | | | Comm w/cartesian topology for each realm; |
integer, |
protected |
| :: |
CPL_OLAP_COMM | | | Local comm between only overlapping MD/CFD procs; |
integer, |
protected |
| :: |
CPL_GRAPH_COMM | | | Comm w/ graph topolgy between locally olapg procs; |
integer, |
protected |
| :: |
CPL_REALM_INTERSECTION_COMM | | | Intersecting MD/CFD procs in world;
Simulation realms |
integer, |
protected |
| :: |
realm | | | |
integer, |
protected |
| :: |
myid_world | | | Processor ID from 0 to nproc_world-1; |
integer, |
protected |
| :: |
rank_world | | | Processor rank from 1 to nproc_world; |
integer, |
protected |
| :: |
rootid_world | | | Root processor in world; |
integer, |
protected |
| :: |
myid_realm | | | Processor ID from 0 to nproc_realm-1; |
integer, |
protected |
| :: |
rank_realm | | | Processor rank from 1 to nproc_realm; |
integer, |
protected |
| :: |
rootid_realm | | | Root processor in each realm; |
integer, |
protected |
| :: |
myid_cart | | | Processor ID from 0 to nproc_cart-1; |
integer, |
protected |
| :: |
rank_cart | | | Processor rank from 1 to nproc_cart; |
integer, |
protected |
| :: |
rootid_cart | | | Root processor in each cart topology; |
integer, |
protected |
| :: |
myid_olap | | | Processor ID from 0 to nproc_olap-1; |
integer, |
protected |
| :: |
rank_olap | | | Processor rank from 1 to nproc_olap; |
integer, |
protected |
| :: |
CFDid_olap | | | Root processor in overlap is the CFD processor; |
integer, |
protected |
| :: |
myid_graph | | | Processor ID from 0 to nproc_graph-1; |
integer, |
protected |
| :: |
rank_graph | | | Processor rank from 1 to nproc_graph;
Get rank in CPL_world_COMM from rank in local COMM |
integer, |
protected, |
dimension(:), allocatable | :: |
rank_world2rank_mdrealm | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
rank_world2rank_mdcart | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
rank_world2rank_cfdrealm | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
rank_world2rank_cfdcart | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
rank_world2rank_olap | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
rank_world2rank_graph | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
rank_world2rank_inter | | | Get rank in local COMM from rank in CPL_world_COMM |
integer, |
protected, |
dimension(:), allocatable | :: |
rank_mdrealm2rank_world | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
rank_mdcart2rank_world | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
rank_cfdrealm2rank_world | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
rank_cfdcart2rank_world | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
rank_olap2rank_world | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
rank_graph2rank_world | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
rank_inter2rank_world | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
rank_olap2rank_realm | | | |
integer, |
protected |
| :: |
nproc_md | | | Total number of processor in md |
integer, |
protected |
| :: |
nproc_cfd | | | Total number of processor in cfd |
integer, |
protected |
| :: |
nproc_olap | | | Total number of processor in overlap region |
integer, |
protected |
| :: |
nproc_world | | | Total number of processor in world |
integer, |
protected |
| :: |
npx_md | | | Number of processor in x in the md |
integer, |
protected |
| :: |
npy_md | | | Number of processor in y in the md |
integer, |
protected |
| :: |
npz_md | | | Number of processor in z in the md |
integer, |
protected |
| :: |
npx_cfd | | | Number of processor in x in the cfd |
integer, |
protected |
| :: |
npy_cfd | | | Number of processor in y in the cfd |
integer, |
protected |
| :: |
npz_cfd | | | Number of processor in z in the cfd |
logical, |
protected, |
dimension(:), allocatable | :: |
olap_mask | | | Overlap mask specifying which processors overlap using world ranks |
integer, |
protected, |
dimension(:,:), allocatable | :: |
rank2coord_cfd | | | |
integer, |
protected, |
dimension(:,:), allocatable | :: |
rank2coord_md | | | Array containing coordinates for each cartesian rank |
integer, |
protected, |
dimension(:,:,:), allocatable | :: |
coord2rank_cfd | | | |
integer, |
protected, |
dimension(:,:,:), allocatable | :: |
coord2rank_md | | | Processor cartesian coords |
integer, |
protected |
| :: |
iblock_realm | | | |
integer, |
protected |
| :: |
jblock_realm | | | |
integer, |
protected |
| :: |
kblock_realm | | | |
integer, |
protected |
| :: |
ncx | | | |
integer, |
protected |
| :: |
ncy | | | |
integer, |
protected |
| :: |
ncz | | | |
integer, |
protected |
| :: |
icmin | | | |
integer, |
protected |
| :: |
icmax | | | |
integer, |
protected |
| :: |
jcmin | | | |
integer, |
protected |
| :: |
jcmax | | | |
integer, |
protected |
| :: |
kcmin | | | |
integer, |
protected |
| :: |
kcmax | | | |
integer, |
protected |
| :: |
icmin_olap | | | |
integer, |
protected |
| :: |
icmax_olap | | | |
integer, |
protected |
| :: |
jcmin_olap | | | |
integer, |
protected |
| :: |
jcmax_olap | | | |
integer, |
protected |
| :: |
kcmin_olap | | | |
integer, |
protected |
| :: |
kcmax_olap | | | |
integer, |
protected |
| :: |
ncx_olap | | | |
integer, |
protected |
| :: |
ncy_olap | | | |
integer, |
protected |
| :: |
ncz_olap | | | |
integer, |
protected |
| :: |
constraint_algo | | | |
integer, |
protected |
| :: |
constraint_CVflag | | | |
integer, |
protected |
| :: |
icmin_cnst | | | |
integer, |
protected |
| :: |
icmax_cnst | | | |
integer, |
protected |
| :: |
jcmin_cnst | | | |
integer, |
protected |
| :: |
jcmax_cnst | | | |
integer, |
protected |
| :: |
kcmin_cnst | | | |
integer, |
protected |
| :: |
kcmax_cnst | | | |
integer, |
protected |
| :: |
cpl_cfd_bc_x | | | |
integer, |
protected |
| :: |
cpl_cfd_bc_y | | | |
integer, |
protected |
| :: |
cpl_cfd_bc_z | | | |
logical, |
protected |
| :: |
cpl_md_bc_slice | | | |
logical, |
protected |
| :: |
cpl_cfd_bc_slice | | | |
integer, |
public, |
parameter | :: |
constraint_off | = | 0 | |
integer, |
public, |
parameter | :: |
constraint_OT | = | 1 | |
integer, |
public, |
parameter | :: |
constraint_NCER | = | 2 | |
integer, |
public, |
parameter | :: |
constraint_Flekkoy | = | 3 | |
integer, |
public, |
parameter | :: |
constraint_CV | = | 4 | |
integer, |
protected, |
dimension(:), allocatable | :: |
icPmin_md | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
icPmax_md | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
jcPmin_md | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
jcPmax_md | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
kcPmin_md | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
kcPmax_md | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
icPmin_cfd | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
icPmax_cfd | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
jcPmin_cfd | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
jcPmax_cfd | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
kcPmin_cfd | | | |
integer, |
protected, |
dimension(:), allocatable | :: |
kcPmax_cfd | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
xL_md | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
yL_md | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
zL_md | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
xL_cfd | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
yL_cfd | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
zL_cfd | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
xL_olap | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
yL_olap | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
zL_olap | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
xLl | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
yLl | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
zLl | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
dx | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
dy | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
dz | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
dymin | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
dymax | | | |
real(kind=kind(0.d0)), |
protected, |
dimension(:,:), allocatable, target | :: |
xg | | | |
real(kind=kind(0.d0)), |
protected, |
dimension(:,:), allocatable, target | :: |
yg | | | |
real(kind=kind(0.d0)), |
protected, |
dimension(:), allocatable, target | :: |
zg | | | |
integer, |
protected, |
dimension(:,:), allocatable | :: |
cfd_icoord2olap_md_icoords | | | |
integer, |
protected, |
dimension(:,:), allocatable | :: |
cfd_jcoord2olap_md_jcoords | | | |
integer, |
protected, |
dimension(:,:), allocatable | :: |
cfd_kcoord2olap_md_kcoords | | | |
integer, |
protected |
| :: |
nsteps_md | | | |
integer, |
protected |
| :: |
nsteps_cfd | | | |
integer, |
protected |
| :: |
nsteps_coupled | | | |
integer, |
protected |
| :: |
average_period | = | 1 | |
integer, |
protected |
| :: |
save_period | = | 10 | |
real(kind=kind(0.d0)), |
protected |
| :: |
dt_md | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
dt_cfd | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
density_md | | | |
real(kind=kind(0.d0)), |
protected |
| :: |
density_cfd | | | |
integer, |
protected |
| :: |
timestep_ratio | | | |
integer, |
protected |
| :: |
md_cfd_match_cellsize | | | |
integer, |
protected |
| :: |
testval | | | |
logical, |
protected |
| :: |
staggered_averages(3) | = | (/.false.,.false.,.false./) | |