scale_monitor_cartesC.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
#include "scalelib.h"
module scale_monitor_cartesc
  !-----------------------------------------------------------------------------
  !
  !++ Used modules
  !
  use scale_precision
  use scale_io
  use scale_prof
  use scale_atmos_grid_cartesc_index
  use scale_ocean_grid_cartesc_index
  use scale_land_grid_cartesc_index
  use scale_urban_grid_cartesc_index
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedures
  !
  public :: monitor_cartesc_setup
 
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private procedures
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine monitor_cartesc_setup( &
       dt, &
       ATMOS_do, OCEAN_do, LAND_do, URBAN_do )
    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
  end subroutine monitor_cartesc_setup
 
end module scale_monitor_cartesc