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 48 of file mod_cpl_admin.F90.

    use scale_prc, only: &
       prc_abort
    use mod_atmos_admin, only: &
       atmos_phy_sf_type, &
       atmos_sw_phy_sf
    use mod_ocean_admin, only: &
       ocean_do
    use mod_land_admin, only: &
       land_do
    use mod_urban_admin, only: &
       urban_do
    implicit none
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("CPL_ADMIN_setup",*) 'Setup'
 
    !-----< module component check >-----
 
    log_newline
    log_info("CPL_ADMIN_setup",*) 'Coupler components '
 
    ! Atmos-Ocean/Land/Urban Switch
    if ( ocean_do .OR. land_do .OR. urban_do ) then
       cpl_sw = .true.
    else
       cpl_sw = .false.
    endif
 
    ! Check Atmos_Surface setting
    if ( cpl_sw ) then
       log_info_cont(*) 'Coupler : ON'
 
       if ( atmos_phy_sf_type == 'COUPLE' ) then
          ! do nothing
       elseif( atmos_phy_sf_type == 'NONE' ) then
          log_info_cont(*) '-> Surface Flux Type is forced to change from NONE to COUPLE.'
          ! overwrite
          atmos_phy_sf_type = 'COUPLE'
          atmos_sw_phy_sf   = .true.
       else
          log_error("CPL_ADMIN_setup",*) 'Setting conflicts between coupler and surface flux! STOP.'
          log_error_cont(*) 'Surface Flux : ', trim(atmos_phy_sf_type)
          call prc_abort
       endif
    else
       log_info_cont(*) 'Coupler : OFF'
    endif
 
    return

References mod_atmos_admin::atmos_phy_sf_type, mod_atmos_admin::atmos_sw_phy_sf, cpl_sw, mod_land_admin::land_do, mod_ocean_admin::ocean_do, scale_prc::prc_abort(), and mod_urban_admin::urban_do.

Referenced by mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

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 103 of file mod_cpl_admin.F90.

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

Variable Documentation

cpl_sw

logical, public mod_cpl_admin::cpl_sw

Definition at line 33 of file mod_cpl_admin.F90.

  logical, public :: CPL_sw ! do coupler calculation?

Referenced by mod_atmos_driver::atmos_driver_calc_tendency(), mod_atmos_driver::atmos_driver_calc_tendency_from_sflux(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_calc_tendency(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup(), mod_atmos_driver::atmos_surface_get(), mod_atmos_driver::atmos_surface_set(), mod_atmos_vars::atmos_vars_restart_close(), mod_atmos_vars::atmos_vars_restart_create(), mod_atmos_vars::atmos_vars_restart_def_var(), mod_atmos_vars::atmos_vars_restart_enddef(), mod_atmos_vars::atmos_vars_restart_open(), mod_atmos_vars::atmos_vars_restart_read(), mod_atmos_vars::atmos_vars_restart_write(), cpl_admin_setup(), mod_rm_driver::restart_read(), mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().