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_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
  end subroutine monitor_cartesc_setup

end module scale_monitor_cartesc