mod_cpl_admin Module Reference

module Coupler admin More...

Functions/Subroutines
subroutine, public	cpl_admin_setup
	Setup. More...
subroutine, public	cpl_admin_getscheme
	Get name of scheme for each component. More...

Variables
logical, public	cpl_sw

Detailed Description

module Coupler admin

Description

Coupler submodel administrator

Author

Team SCALE

Function/Subroutine Documentation

cpl_admin_setup()

subroutine, public mod_cpl_admin::cpl_admin_setup

(

)

Setup.

Definition at line 47 of file mod_cpl_admin.f90.

References cpl_sw, scale_stdio::io_fid_log, scale_stdio::io_l, mod_land_admin::land_sw, mod_ocean_admin::ocean_sw, scale_process::prc_mpistop(), and mod_urban_admin::urban_sw.

Referenced by mod_rm_driver::scalerm(), and mod_rm_prep::scalerm_prep().

    use mod_ocean_admin, only: &
       ocean_sw
    use mod_land_admin, only: &
       land_sw
    use mod_urban_admin, only: &
       urban_sw
    use scale_process, only: &
       prc_mpistop
    implicit none
    !---------------------------------------------------------------------------

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '++++++ Module[ADMIN] / Categ[CPL] / Origin[SCALE-RM]'

    !-----< module component check >-----

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '*** Coupler components ***'

    ! Atoms-Ocean/Land/Urban Switch
    if ( ocean_sw .OR. land_sw .OR. urban_sw ) then
       cpl_sw = .true.
    else
       cpl_sw = .false.
    endif

    if ( cpl_sw ) then
       if( io_l ) write(io_fid_log,*) '*** Coupler : ON'
    else
       if( io_l ) write(io_fid_log,*) '*** Coupler : OFF'
    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

cpl_admin_getscheme()

subroutine, public mod_cpl_admin::cpl_admin_getscheme

(

)

Get name of scheme for each component.

Definition at line 85 of file mod_cpl_admin.f90.

    implicit none
    !---------------------------------------------------------------------------

    return

Variable Documentation

cpl_sw

logical, public mod_cpl_admin::cpl_sw

Definition at line 32 of file mod_cpl_admin.f90.

Referenced by mod_atmos_phy_sf_driver::atmos_phy_sf_driver(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), mod_atmos_driver::atmos_surface_get(), mod_atmos_driver::atmos_surface_set(), and cpl_admin_setup().

  logical, public :: cpl_sw ! do coupler calculation?