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.

    use scale_prc_cartesc, only: &
       prc_twod
    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,    &
       atmos_grid_cartesc_real_areazuy_x,    &
       atmos_grid_cartesc_real_totareazuy_x, &
       atmos_grid_cartesc_real_areazxv_y,    &
       atmos_grid_cartesc_real_totareazxv_y
    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    )
       if ( prc_twod ) then
          call monitor_set_dim( ka, ks, ke, ka, ks, ke, ja, js, je, &
                                "ZY-W", 2, &
                                atmos_grid_cartesc_real_areazuy_x(:,is,:), &
                                atmos_grid_cartesc_real_totareazuy_x(is)   )
       else
          call monitor_set_dim( ka, ks, ke, ka, ks, ke, ja, js, je, &
                                "ZY-W", 2, &
                                atmos_grid_cartesc_real_areazuy_x(:,is-1,:), &
                                atmos_grid_cartesc_real_totareazuy_x(is-1)   )
       end if
       call monitor_set_dim( ka, ks, ke, ka, ks, ke, ja, js, je, &
                             "ZY-E", 2, &
                             atmos_grid_cartesc_real_areazuy_x(:,ie,:), &
                             atmos_grid_cartesc_real_totareazuy_x(ie)    )
       call monitor_set_dim( ka, ks, ke, ka, ks, ke, ia, is, ie, &
                             "ZX-S", 2, &
                             atmos_grid_cartesc_real_areazxv_y(:,:,js-1), &
                             atmos_grid_cartesc_real_totareazxv_y(js-1)   )
       call monitor_set_dim( ka, ks, ke, ka, ks, ke, ia, is, ie, &
                             "ZX-N", 2, &
                             atmos_grid_cartesc_real_areazxv_y(:,:,je), &
                             atmos_grid_cartesc_real_totareazxv_y(je)   )
    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

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_areazuy_x, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_areazxv_y, 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_totareazuy_x, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totareazxv_y, 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_prc_cartesc::prc_twod, 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().

Here is the call graph for this function:

Here is the caller graph for this function: