datm_comp_mod Module


Uses


Subroutines

public subroutine datm_comp_init(EClock, x2a, a2x, seq_flds_x2a_fields, seq_flds_a2x_fields, SDATM, gsMap, ggrid, mpicom, compid, my_task, master_task, inst_suffix, inst_name, logunit, read_restart, scmMode, scmLat, scmLon, orbEccen, orbMvelpp, orbLambm0, orbObliqr, phase, nextsw_cday)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Clock), intent(in) :: EClock
type(AttrVect), intent(inout) :: x2a
type(AttrVect), intent(inout) :: a2x
character(len=*), intent(in) :: seq_flds_x2a_fields
character(len=*), intent(in) :: seq_flds_a2x_fields
type(shr_strdata_type), intent(inout) :: SDATM
type(GlobalSegMap), pointer :: gsMap
type(GeneralGrid), pointer :: ggrid
integer(kind=IN), intent(in) :: mpicom
integer(kind=IN), intent(in) :: compid
integer(kind=IN), intent(in) :: my_task
integer(kind=IN), intent(in) :: master_task
character(len=*), intent(in) :: inst_suffix
character(len=*), intent(in) :: inst_name
integer(kind=IN), intent(in) :: logunit
logical, intent(in) :: read_restart
logical, intent(in) :: scmMode
real(kind=R8), intent(in) :: scmLat
real(kind=R8), intent(in) :: scmLon
real(kind=R8), intent(in) :: orbEccen
real(kind=R8), intent(in) :: orbMvelpp
real(kind=R8), intent(in) :: orbLambm0
real(kind=R8), intent(in) :: orbObliqr
integer, intent(in) :: phase
real(kind=R8), intent(out) :: nextsw_cday

public subroutine datm_comp_run(EClock, x2a, a2x, SDATM, gsMap, ggrid, mpicom, compid, my_task, master_task, inst_suffix, logunit, orbEccen, orbMvelpp, orbLambm0, orbObliqr, nextsw_cday, case_name)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Clock), intent(in) :: EClock
type(AttrVect), intent(inout) :: x2a
type(AttrVect), intent(inout) :: a2x
type(shr_strdata_type), intent(inout) :: SDATM
type(GlobalSegMap), pointer :: gsMap
type(GeneralGrid), pointer :: ggrid
integer(kind=IN), intent(in) :: mpicom
integer(kind=IN), intent(in) :: compid
integer(kind=IN), intent(in) :: my_task
integer(kind=IN), intent(in) :: master_task
character(len=*), intent(in) :: inst_suffix
integer(kind=IN), intent(in) :: logunit
real(kind=R8), intent(in) :: orbEccen
real(kind=R8), intent(in) :: orbMvelpp
real(kind=R8), intent(in) :: orbLambm0
real(kind=R8), intent(in) :: orbObliqr
real(kind=R8), intent(out) :: nextsw_cday
character(len=CL), intent(in), optional :: case_name

public subroutine datm_comp_final(my_task, master_task, logunit)

Arguments

Type IntentOptional Attributes Name
integer(kind=IN), intent(in) :: my_task
integer(kind=IN), intent(in) :: master_task
integer(kind=IN), intent(in) :: logunit