scale_monitor_cartesc Module Reference

module MONITOR CartesC More...

Functions/Subroutines
subroutine, public	monitor_cartesc_setup (dt, ATMOS_do, OCEAN_do, LAND_do, URBAN_do)
	Setup. More...

Detailed Description

module MONITOR CartesC

Description

Monitor output module for the cartesianC grid

Author

Team SCALE

Function/Subroutine Documentation

monitor_cartesc_setup()

subroutine, public scale_monitor_cartesc::monitor_cartesc_setup	(	real(dp), intent(in)	dt,
		logical, intent(in)	ATMOS_do,
		logical, intent(in)	OCEAN_do,
		logical, intent(in)	LAND_do,
		logical, intent(in)	URBAN_do
	)

Setup.

Definition at line 52 of file scale_monitor_cartesC.F90.

References scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_area, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_areauy, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_areaxv, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totarea, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totareauy, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totareaxv, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totvol, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totvolwxy, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totvolzuy, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totvolzxv, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_vol, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_volwxy, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_volzuy, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_volzxv, scale_atmos_grid_cartesc_index::ia, scale_atmos_grid_cartesc_index::ie, scale_atmos_grid_cartesc_index::is, scale_atmos_grid_cartesc_index::ja, scale_atmos_grid_cartesc_index::je, scale_atmos_grid_cartesc_index::js, scale_atmos_grid_cartesc_index::ka, scale_atmos_grid_cartesc_index::ke, scale_atmos_grid_cartesc_index::ks, scale_land_grid_cartesc_real::land_grid_cartesc_real_area, scale_land_grid_cartesc_real::land_grid_cartesc_real_totarea, scale_land_grid_cartesc_real::land_grid_cartesc_real_totvol, scale_land_grid_cartesc_real::land_grid_cartesc_real_vol, scale_land_grid_cartesc_index::lia, scale_land_grid_cartesc_index::lie, scale_land_grid_cartesc_index::lis, scale_land_grid_cartesc_index::lja, scale_land_grid_cartesc_index::lje, scale_land_grid_cartesc_index::ljs, scale_land_grid_cartesc_index::lka, scale_land_grid_cartesc_index::lke, scale_land_grid_cartesc_index::lks, scale_monitor::monitor_set_dim(), scale_monitor::monitor_setup(), scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_area, scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_totarea, scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_totvol, scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_vol, scale_ocean_grid_cartesc_index::oia, scale_ocean_grid_cartesc_index::oie, scale_ocean_grid_cartesc_index::ois, scale_ocean_grid_cartesc_index::oja, scale_ocean_grid_cartesc_index::oje, scale_ocean_grid_cartesc_index::ojs, scale_ocean_grid_cartesc_index::oka, scale_ocean_grid_cartesc_index::oke, scale_ocean_grid_cartesc_index::oks, scale_urban_grid_cartesc_index::uia, scale_urban_grid_cartesc_index::uie, scale_urban_grid_cartesc_index::uis, scale_urban_grid_cartesc_index::uja, scale_urban_grid_cartesc_index::uje, scale_urban_grid_cartesc_index::ujs, scale_urban_grid_cartesc_index::uka, scale_urban_grid_cartesc_index::uke, scale_urban_grid_cartesc_index::uks, scale_urban_grid_cartesc_real::urban_grid_cartesc_real_area, scale_urban_grid_cartesc_real::urban_grid_cartesc_real_totarea, scale_urban_grid_cartesc_real::urban_grid_cartesc_real_totvol, and scale_urban_grid_cartesc_real::urban_grid_cartesc_real_vol.

Referenced by mod_rm_driver::rm_driver().

    use scale_monitor, only: &
       monitor_setup, &
       monitor_set_dim
    use scale_atmos_grid_cartesc_real, only: &
       atmos_grid_cartesc_real_area,      &
       atmos_grid_cartesc_real_totarea,   &
       atmos_grid_cartesc_real_areauy,    &
       atmos_grid_cartesc_real_totareauy, &
       atmos_grid_cartesc_real_areaxv,    &
       atmos_grid_cartesc_real_totareaxv, &
       atmos_grid_cartesc_real_vol,       &
       atmos_grid_cartesc_real_totvol,    &
       atmos_grid_cartesc_real_volwxy,    &
       atmos_grid_cartesc_real_totvolwxy, &
       atmos_grid_cartesc_real_volzuy,    &
       atmos_grid_cartesc_real_totvolzuy, &
       atmos_grid_cartesc_real_volzxv,    &
       atmos_grid_cartesc_real_totvolzxv
    use scale_ocean_grid_cartesc_real, only: &
       ocean_grid_cartesc_real_area,    &
       ocean_grid_cartesc_real_totarea, &
       ocean_grid_cartesc_real_vol,     &
       ocean_grid_cartesc_real_totvol
    use scale_land_grid_cartesc_real, only: &
       land_grid_cartesc_real_area,    &
       land_grid_cartesc_real_totarea, &
       land_grid_cartesc_real_vol,     &
       land_grid_cartesc_real_totvol
    use scale_urban_grid_cartesc_real, only: &
       urban_grid_cartesc_real_area,    &
       urban_grid_cartesc_real_totarea, &
       urban_grid_cartesc_real_vol,     &
       urban_grid_cartesc_real_totvol
    implicit none

    real(DP), intent(in) :: dt
    logical,  intent(in) :: atmos_do
    logical,  intent(in) :: ocean_do
    logical,  intent(in) :: land_do
    logical,  intent(in) :: urban_do
    !---------------------------------------------------------------------------


    call monitor_setup( dt )

    ! atmos
    if ( atmos_do ) then
       call monitor_set_dim( ka, ks, ke, ia, is, ie, ja, js, je, &
                             "ZXY", 3, &
                             atmos_grid_cartesc_real_area(:,:), &
                             atmos_grid_cartesc_real_totarea,    &
                             atmos_grid_cartesc_real_vol(:,:,:), &
                             atmos_grid_cartesc_real_totvol      )
       call monitor_set_dim( ka, ks, ke, ia, is, ie, ja, js, je, &
                             "WXY", 3, &
                             atmos_grid_cartesc_real_area(:,:),     &
                             atmos_grid_cartesc_real_totarea,       &
                             atmos_grid_cartesc_real_volwxy(:,:,:), &
                             atmos_grid_cartesc_real_totvolwxy      )
       call monitor_set_dim( ka, ks, ke, ia, is, ie, ja, js, je, &
                             "ZUY", 3, &
                             atmos_grid_cartesc_real_areauy(:,:),   &
                             atmos_grid_cartesc_real_totareauy,     &
                             atmos_grid_cartesc_real_volzuy(:,:,:), &
                             atmos_grid_cartesc_real_totvolzuy      )
       call monitor_set_dim( ka, ks, ke, ia, is, ie, ja, js, je, &
                             "ZXV", 3, &
                             atmos_grid_cartesc_real_areaxv(:,:),   &
                             atmos_grid_cartesc_real_totareaxv,     &
                             atmos_grid_cartesc_real_volzxv(:,:,:), &
                             atmos_grid_cartesc_real_totvolzxv      )
       call monitor_set_dim( ka, ks, ke, ia, is, ie, ja, js, je, &
                             "XY", 2, &
                             atmos_grid_cartesc_real_area(:,:), &
                             atmos_grid_cartesc_real_totarea    )
    end if

    ! ocean
    if ( ocean_do ) then
       call monitor_set_dim( oka, oks, oke, oia, ois, oie, oja, ojs, oje, &
                             "OXY", 3, &
                             ocean_grid_cartesc_real_area(:,:),  &
                             ocean_grid_cartesc_real_totarea,    &
                             ocean_grid_cartesc_real_vol(:,:,:), &
                             ocean_grid_cartesc_real_totvol      )
    end if

    ! land
    if ( land_do ) then
       call monitor_set_dim( lka, lks, lke, lia, lis, lie, lja, ljs, lje, &
                             "LXY", 3, &
                             land_grid_cartesc_real_area(:,:),  &
                             land_grid_cartesc_real_totarea,    &
                             land_grid_cartesc_real_vol(:,:,:), &
                             land_grid_cartesc_real_totvol      )
    end if

    ! urban
    if ( urban_do ) then
       call monitor_set_dim( uka, uks, uke, uia, uis, uie, uja, ujs, uje, &
                             "UXY", 3, &
                             urban_grid_cartesc_real_area(:,:),  &
                             urban_grid_cartesc_real_totarea,    &
                             urban_grid_cartesc_real_vol(:,:,:), &
                             urban_grid_cartesc_real_totvol      )
    end if

    return

Here is the call graph for this function:

Here is the caller graph for this function: