CIME Driver
Data Types | Functions/Subroutines | Variables
seq_comm_mct Module Reference

Data Types

type  seq_comm_type
 

Functions/Subroutines

integer function, public seq_comm_get_ncomps ()
 
subroutine, public seq_comm_init (global_comm_in, driver_comm_in, nmlfile, drv_comm_id)
 
subroutine comp_comm_init (driver_comm, comp_rootpe, comp_nthreads, comp_layout, comp_ntasks, comp_pestride, num_inst_comp, CPLID, COMPID, CPLCOMPID, ALLCOMPID, CPLALLCOMPID, name, count, drv_comm_id)
 
subroutine comp_pelayout_init (numpes, ntasks, rootpe, pestride, nthreads, layout)
 
subroutine, public seq_comm_clean ()
 
subroutine seq_comm_setcomm (ID, pelist, nthreads, iname, inst, tinst)
 
subroutine seq_comm_joincomm (ID1, ID2, ID, iname, inst, tinst)
 
subroutine seq_comm_jcommarr (IDs, ID, iname, inst, tinst)
 
subroutine, public seq_comm_printcomms ()
 
subroutine, public seq_comm_setptrs (ID, mpicom, mpigrp, npes, nthreads, iam, iamroot, gloiam, gloroot, cplpe, cmppe, pethreads, name)
 
subroutine, public seq_comm_setnthreads (nthreads)
 
integer function, public seq_comm_getnthreads ()
 
logical function, public seq_comm_iamin (ID)
 
logical function, public seq_comm_iamroot (ID)
 
integer function, public seq_comm_mpicom (ID)
 
integer function, public seq_comm_iam (ID)
 
integer function, public seq_comm_gloiam (ID)
 
integer function, public seq_comm_gloroot (ID)
 
integer function, public seq_comm_cplpe (ID)
 
integer function, public seq_comm_cmppe (ID)
 
character(len=seq_comm_namelen) function, public seq_comm_name (ID)
 
character(len=seq_comm_namelen) function, public seq_comm_suffix (ID)
 
integer function, public seq_comm_inst (ID)
 
subroutine seq_comm_mkname (oname, str1, num)
 

Variables

integer, parameter, public default_logunit = 6
 
integer, public logunit = default_logunit
 
integer, public loglevel = 1
 
integer, public global_mype = -1
 
integer, parameter ncomptypes = 8
 
integer, parameter ncouplers = 1
 
integer, parameter, public num_inst_atm = NUM_COMP_INST_ATM
 
integer, parameter, public num_inst_lnd = NUM_COMP_INST_LND
 
integer, parameter, public num_inst_ocn = NUM_COMP_INST_OCN
 
integer, parameter, public num_inst_ice = NUM_COMP_INST_ICE
 
integer, parameter, public num_inst_glc = NUM_COMP_INST_GLC
 
integer, parameter, public num_inst_wav = NUM_COMP_INST_WAV
 
integer, parameter, public num_inst_rof = NUM_COMP_INST_ROF
 
integer, parameter, public num_inst_esp = NUM_COMP_INST_ESP
 
integer, parameter, public num_inst_total = num_inst_atm + num_inst_lnd + num_inst_ocn + num_inst_ice + num_inst_glc + num_inst_wav + num_inst_rof + num_inst_esp + 1
 
integer, public num_inst_min
 
integer, public num_inst_max
 
integer, public num_inst_xao
 
integer, public num_inst_frc
 
integer, public num_inst_driver = 1
 
integer, parameter, public num_inst_phys = num_inst_atm + num_inst_lnd + num_inst_ocn + num_inst_ice + num_inst_glc + num_inst_rof + num_inst_wav + num_inst_esp
 
integer, parameter, public num_cpl_phys = num_inst_atm + num_inst_lnd + num_inst_ocn + num_inst_ice + num_inst_glc + num_inst_rof + num_inst_wav + num_inst_esp
 
integer, parameter ncomps = (1 + ncouplers + 2*ncomptypes + num_inst_phys + num_cpl_phys)
 
integer, public gloid
 
integer, public cplid
 
integer, public allatmid
 
integer, public alllndid
 
integer, public allocnid
 
integer, public alliceid
 
integer, public allglcid
 
integer, public allrofid
 
integer, public allwavid
 
integer, public allespid
 
integer, public cplallatmid
 
integer, public cplalllndid
 
integer, public cplallocnid
 
integer, public cplalliceid
 
integer, public cplallglcid
 
integer, public cplallrofid
 
integer, public cplallwavid
 
integer, public cplallespid
 
integer, dimension(num_inst_atm), public atmid
 
integer, dimension(num_inst_lnd), public lndid
 
integer, dimension(num_inst_ocn), public ocnid
 
integer, dimension(num_inst_ice), public iceid
 
integer, dimension(num_inst_glc), public glcid
 
integer, dimension(num_inst_rof), public rofid
 
integer, dimension(num_inst_wav), public wavid
 
integer, dimension(num_inst_esp), public espid
 
integer, dimension(num_inst_atm), public cplatmid
 
integer, dimension(num_inst_lnd), public cpllndid
 
integer, dimension(num_inst_ocn), public cplocnid
 
integer, dimension(num_inst_ice), public cpliceid
 
integer, dimension(num_inst_glc), public cplglcid
 
integer, dimension(num_inst_rof), public cplrofid
 
integer, dimension(num_inst_wav), public cplwavid
 
integer, dimension(num_inst_esp), public cplespid
 
type(esmf_logkind_flag), public esmf_logfile_kind
 
integer, parameter, public seq_comm_namelen =16
 
character(len=seq_comm_namelen), public cpl_inst_tag
 
type(seq_comm_type), dimension(ncompsseq_comms
 
character(*), parameter layout_concurrent = 'concurrent'
 
character(*), parameter layout_sequential = 'sequential'
 
character(*), parameter f11 = "(a,a,'(',i3,' ',a,')',a,2i7,i3,'(',a,i7,')',' (',a,i3,')','(',a,a,')')"
 
character(*), parameter f12 = "(a,a,'(',i3,' ',a,')',a,2i7,3x,'(',a,i7,')',' (',a,i3,')','(',a,2i6,')')"
 
character(*), parameter f13 = "(a,a,'(',i3,' ',a,')',a,2i7,3x,'(',a,i7,')',' (',a,i3,')')"
 
character(*), parameter f14 = "(a,a,'(',i3,' ',a,')',a, 5x,'(',a,i7,')',' (',a,i3,')')"
 
integer, public global_comm
 
integer driver_comm
 
character(len=32), public atm_layout
 
character(len=32), public lnd_layout
 
character(len=32), public ice_layout
 
character(len=32), public glc_layout
 
character(len=32), public rof_layout
 
character(len=32), public ocn_layout
 
character(len=32), public wav_layout
 
character(len=32), public esp_layout
 
logical seq_comm_mct_initialized = .false.
 

Function/Subroutine Documentation

◆ comp_comm_init()

subroutine seq_comm_mct::comp_comm_init ( integer, intent(in)  driver_comm,
integer, intent(in)  comp_rootpe,
integer, intent(in)  comp_nthreads,
character(len=*), intent(in)  comp_layout,
integer, intent(in)  comp_ntasks,
integer, intent(in)  comp_pestride,
integer, intent(in)  num_inst_comp,
integer, intent(in)  CPLID,
integer, dimension(num_inst_comp), intent(out)  COMPID,
integer, dimension(num_inst_comp), intent(out)  CPLCOMPID,
integer, intent(out)  ALLCOMPID,
integer, intent(out)  CPLALLCOMPID,
character(len=*), intent(in)  name,
integer, intent(inout)  count,
integer, intent(in), optional  drv_comm_id 
)
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ comp_pelayout_init()

subroutine seq_comm_mct::comp_pelayout_init ( integer, intent(in)  numpes,
integer, intent(out)  ntasks,
integer, intent(out)  rootpe,
integer, intent(out)  pestride,
integer, intent(out)  nthreads,
character(len=*), optional  layout 
)
private
Here is the caller graph for this function:

◆ seq_comm_clean()

subroutine, public seq_comm_mct::seq_comm_clean ( )

◆ seq_comm_cmppe()

integer function, public seq_comm_mct::seq_comm_cmppe ( integer, intent(in)  ID)

◆ seq_comm_cplpe()

integer function, public seq_comm_mct::seq_comm_cplpe ( integer, intent(in)  ID)

◆ seq_comm_get_ncomps()

integer function, public seq_comm_mct::seq_comm_get_ncomps ( )

◆ seq_comm_getnthreads()

integer function, public seq_comm_mct::seq_comm_getnthreads ( )

◆ seq_comm_gloiam()

integer function, public seq_comm_mct::seq_comm_gloiam ( integer, intent(in)  ID)

◆ seq_comm_gloroot()

integer function, public seq_comm_mct::seq_comm_gloroot ( integer, intent(in)  ID)
Here is the caller graph for this function:

◆ seq_comm_iam()

integer function, public seq_comm_mct::seq_comm_iam ( integer, intent(in)  ID)

◆ seq_comm_iamin()

logical function, public seq_comm_mct::seq_comm_iamin ( integer, intent(in)  ID)
Here is the caller graph for this function:

◆ seq_comm_iamroot()

logical function, public seq_comm_mct::seq_comm_iamroot ( integer, intent(in)  ID)
Here is the caller graph for this function:

◆ seq_comm_init()

subroutine, public seq_comm_mct::seq_comm_init ( integer, intent(in)  global_comm_in,
integer, intent(in)  driver_comm_in,
character(len=*), intent(in)  nmlfile,
integer, intent(in), optional  drv_comm_id 
)
Here is the call graph for this function:

◆ seq_comm_inst()

integer function, public seq_comm_mct::seq_comm_inst ( integer, intent(in)  ID)

◆ seq_comm_jcommarr()

subroutine seq_comm_mct::seq_comm_jcommarr ( integer, dimension(:), intent(in)  IDs,
integer, intent(in)  ID,
character(len=*), intent(in), optional  iname,
integer, intent(in), optional  inst,
integer, intent(in), optional  tinst 
)
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ seq_comm_joincomm()

subroutine seq_comm_mct::seq_comm_joincomm ( integer, intent(in)  ID1,
integer, intent(in)  ID2,
integer, intent(in)  ID,
character(len=*), intent(in), optional  iname,
integer, intent(in), optional  inst,
integer, intent(in), optional  tinst 
)
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ seq_comm_mkname()

subroutine seq_comm_mct::seq_comm_mkname ( character(len=*), intent(out)  oname,
character(len=*), intent(in)  str1,
integer, intent(in)  num 
)
private
Here is the caller graph for this function:

◆ seq_comm_mpicom()

integer function, public seq_comm_mct::seq_comm_mpicom ( integer, intent(in)  ID)
Here is the caller graph for this function:

◆ seq_comm_name()

character(len=seq_comm_namelen) function, public seq_comm_mct::seq_comm_name ( integer, intent(in)  ID)
Here is the caller graph for this function:

◆ seq_comm_printcomms()

subroutine, public seq_comm_mct::seq_comm_printcomms ( )
Here is the caller graph for this function:

◆ seq_comm_setcomm()

subroutine seq_comm_mct::seq_comm_setcomm ( integer, intent(in)  ID,
integer, dimension(:,:), intent(in)  pelist,
integer, intent(in), optional  nthreads,
character(len=*), intent(in), optional  iname,
integer, intent(in), optional  inst,
integer, intent(in), optional  tinst 
)
private
Here is the call graph for this function:
Here is the caller graph for this function:

◆ seq_comm_setnthreads()

subroutine, public seq_comm_mct::seq_comm_setnthreads ( integer, intent(in)  nthreads)
Here is the caller graph for this function:

◆ seq_comm_setptrs()

subroutine, public seq_comm_mct::seq_comm_setptrs ( integer, intent(in)  ID,
integer, intent(out), optional  mpicom,
integer, intent(out), optional  mpigrp,
integer, intent(out), optional  npes,
integer, intent(out), optional  nthreads,
integer, intent(out), optional  iam,
logical, intent(out), optional  iamroot,
integer, intent(out), optional  gloiam,
integer, intent(out), optional  gloroot,
integer, intent(out), optional  cplpe,
integer, intent(out), optional  cmppe,
integer, intent(out), optional  pethreads,
character(len=seq_comm_namelen), intent(out), optional  name 
)
Here is the caller graph for this function:

◆ seq_comm_suffix()

character(len=seq_comm_namelen) function, public seq_comm_mct::seq_comm_suffix ( integer, intent(in)  ID)

Variable Documentation

◆ allatmid

integer, public seq_comm_mct::allatmid

◆ allespid

integer, public seq_comm_mct::allespid

◆ allglcid

integer, public seq_comm_mct::allglcid

◆ alliceid

integer, public seq_comm_mct::alliceid

◆ alllndid

integer, public seq_comm_mct::alllndid

◆ allocnid

integer, public seq_comm_mct::allocnid

◆ allrofid

integer, public seq_comm_mct::allrofid

◆ allwavid

integer, public seq_comm_mct::allwavid

◆ atm_layout

character(len=32), public seq_comm_mct::atm_layout

◆ atmid

integer, dimension(num_inst_atm), public seq_comm_mct::atmid

◆ cpl_inst_tag

character(len=seq_comm_namelen), public seq_comm_mct::cpl_inst_tag

◆ cplallatmid

integer, public seq_comm_mct::cplallatmid

◆ cplallespid

integer, public seq_comm_mct::cplallespid

◆ cplallglcid

integer, public seq_comm_mct::cplallglcid

◆ cplalliceid

integer, public seq_comm_mct::cplalliceid

◆ cplalllndid

integer, public seq_comm_mct::cplalllndid

◆ cplallocnid

integer, public seq_comm_mct::cplallocnid

◆ cplallrofid

integer, public seq_comm_mct::cplallrofid

◆ cplallwavid

integer, public seq_comm_mct::cplallwavid

◆ cplatmid

integer, dimension(num_inst_atm), public seq_comm_mct::cplatmid

◆ cplespid

integer, dimension(num_inst_esp), public seq_comm_mct::cplespid

◆ cplglcid

integer, dimension(num_inst_glc), public seq_comm_mct::cplglcid

◆ cpliceid

integer, dimension(num_inst_ice), public seq_comm_mct::cpliceid

◆ cplid

integer, public seq_comm_mct::cplid

◆ cpllndid

integer, dimension(num_inst_lnd), public seq_comm_mct::cpllndid

◆ cplocnid

integer, dimension(num_inst_ocn), public seq_comm_mct::cplocnid

◆ cplrofid

integer, dimension(num_inst_rof), public seq_comm_mct::cplrofid

◆ cplwavid

integer, dimension(num_inst_wav), public seq_comm_mct::cplwavid

◆ default_logunit

integer, parameter, public seq_comm_mct::default_logunit = 6

◆ driver_comm

integer seq_comm_mct::driver_comm
private

◆ esmf_logfile_kind

type(esmf_logkind_flag), public seq_comm_mct::esmf_logfile_kind

◆ esp_layout

character(len=32), public seq_comm_mct::esp_layout

◆ espid

integer, dimension(num_inst_esp), public seq_comm_mct::espid

◆ f11

character(*), parameter seq_comm_mct::f11 = "(a,a,'(',i3,' ',a,')',a,2i7,i3,'(',a,i7,')',' (',a,i3,')','(',a,a,')')"
private

◆ f12

character(*), parameter seq_comm_mct::f12 = "(a,a,'(',i3,' ',a,')',a,2i7,3x,'(',a,i7,')',' (',a,i3,')','(',a,2i6,')')"
private

◆ f13

character(*), parameter seq_comm_mct::f13 = "(a,a,'(',i3,' ',a,')',a,2i7,3x,'(',a,i7,')',' (',a,i3,')')"
private

◆ f14

character(*), parameter seq_comm_mct::f14 = "(a,a,'(',i3,' ',a,')',a, 5x,'(',a,i7,')',' (',a,i3,')')"
private

◆ glc_layout

character(len=32), public seq_comm_mct::glc_layout

◆ glcid

integer, dimension(num_inst_glc), public seq_comm_mct::glcid

◆ global_comm

integer, public seq_comm_mct::global_comm

◆ global_mype

integer, public seq_comm_mct::global_mype = -1

◆ gloid

integer, public seq_comm_mct::gloid

◆ ice_layout

character(len=32), public seq_comm_mct::ice_layout

◆ iceid

integer, dimension(num_inst_ice), public seq_comm_mct::iceid

◆ layout_concurrent

character(*), parameter seq_comm_mct::layout_concurrent = 'concurrent'
private

◆ layout_sequential

character(*), parameter seq_comm_mct::layout_sequential = 'sequential'
private

◆ lnd_layout

character(len=32), public seq_comm_mct::lnd_layout

◆ lndid

integer, dimension(num_inst_lnd), public seq_comm_mct::lndid

◆ loglevel

integer, public seq_comm_mct::loglevel = 1

◆ logunit

integer, public seq_comm_mct::logunit = default_logunit

◆ ncomps

integer, parameter seq_comm_mct::ncomps = (1 + ncouplers + 2*ncomptypes + num_inst_phys + num_cpl_phys)
private

◆ ncomptypes

integer, parameter seq_comm_mct::ncomptypes = 8
private

◆ ncouplers

integer, parameter seq_comm_mct::ncouplers = 1
private

◆ num_cpl_phys

integer, parameter, public seq_comm_mct::num_cpl_phys = num_inst_atm + num_inst_lnd + num_inst_ocn + num_inst_ice + num_inst_glc + num_inst_rof + num_inst_wav + num_inst_esp

◆ num_inst_atm

integer, parameter, public seq_comm_mct::num_inst_atm = NUM_COMP_INST_ATM

◆ num_inst_driver

integer, public seq_comm_mct::num_inst_driver = 1

◆ num_inst_esp

integer, parameter, public seq_comm_mct::num_inst_esp = NUM_COMP_INST_ESP

◆ num_inst_frc

integer, public seq_comm_mct::num_inst_frc

◆ num_inst_glc

integer, parameter, public seq_comm_mct::num_inst_glc = NUM_COMP_INST_GLC

◆ num_inst_ice

integer, parameter, public seq_comm_mct::num_inst_ice = NUM_COMP_INST_ICE

◆ num_inst_lnd

integer, parameter, public seq_comm_mct::num_inst_lnd = NUM_COMP_INST_LND

◆ num_inst_max

integer, public seq_comm_mct::num_inst_max

◆ num_inst_min

integer, public seq_comm_mct::num_inst_min

◆ num_inst_ocn

integer, parameter, public seq_comm_mct::num_inst_ocn = NUM_COMP_INST_OCN

◆ num_inst_phys

integer, parameter, public seq_comm_mct::num_inst_phys = num_inst_atm + num_inst_lnd + num_inst_ocn + num_inst_ice + num_inst_glc + num_inst_rof + num_inst_wav + num_inst_esp

◆ num_inst_rof

integer, parameter, public seq_comm_mct::num_inst_rof = NUM_COMP_INST_ROF

◆ num_inst_total

integer, parameter, public seq_comm_mct::num_inst_total = num_inst_atm + num_inst_lnd + num_inst_ocn + num_inst_ice + num_inst_glc + num_inst_wav + num_inst_rof + num_inst_esp + 1

◆ num_inst_wav

integer, parameter, public seq_comm_mct::num_inst_wav = NUM_COMP_INST_WAV

◆ num_inst_xao

integer, public seq_comm_mct::num_inst_xao

◆ ocn_layout

character(len=32), public seq_comm_mct::ocn_layout

◆ ocnid

integer, dimension(num_inst_ocn), public seq_comm_mct::ocnid

◆ rof_layout

character(len=32), public seq_comm_mct::rof_layout

◆ rofid

integer, dimension(num_inst_rof), public seq_comm_mct::rofid

◆ seq_comm_mct_initialized

logical seq_comm_mct::seq_comm_mct_initialized = .false.
private

◆ seq_comm_namelen

integer, parameter, public seq_comm_mct::seq_comm_namelen =16

◆ seq_comms

type(seq_comm_type), dimension(ncomps) seq_comm_mct::seq_comms
private

◆ wav_layout

character(len=32), public seq_comm_mct::wav_layout

◆ wavid

integer, dimension(num_inst_wav), public seq_comm_mct::wavid