scale_ocean_grid_cartesc_real Module Reference

module ocean / grid / cartesianC / real More...

Functions/Subroutines
subroutine, public	ocean_grid_cartesc_real_setup
	Setup area and volume. More...

Variables
real(rp), dimension(:,:), allocatable, public	ocean_grid_cartesc_real_area
	area of grid cell More...
real(rp), public	ocean_grid_cartesc_real_totarea
	total area More...
real(rp), dimension(:,:,:), allocatable, public	ocean_grid_cartesc_real_vol
	volume of grid cell More...
real(rp), public	ocean_grid_cartesc_real_totvol
	total volume More...

Detailed Description

module ocean / grid / cartesianC / real

Description

Grid module for cartesian coordinate for ocean

Author

Team SCALE

Function/Subroutine Documentation

ocean_grid_cartesc_real_setup()

subroutine, public scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_setup

(

)

Setup area and volume.

Definition at line 53 of file scale_ocean_grid_cartesC_real.F90.

References scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_area, scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_totarea, scale_file_cartesc::file_cartesc_set_coordinates_ocean(), scale_ocean_grid_cartesc::ocean_grid_cartesc_cdz, ocean_grid_cartesc_real_area, ocean_grid_cartesc_real_totarea, ocean_grid_cartesc_real_totvol, 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, and scale_ocean_grid_cartesc_index::oks.

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

    use scale_atmos_grid_cartesc_real, only: &
       atmos_grid_cartesc_real_area, &
       atmos_grid_cartesc_real_totarea
    use scale_ocean_grid_cartesc, only: &
       ocean_grid_cartesc_cdz
    use scale_file_cartesc, only: &
       file_cartesc_set_coordinates_ocean
    integer :: k, i, j

    ! at this moment, horizontal grid is identical to that of the atmosphere
    allocate( ocean_grid_cartesc_real_area(    oia,oja) )
    allocate( ocean_grid_cartesc_real_vol(oka,oia,oja) )
    ocean_grid_cartesc_real_area(:,:) = atmos_grid_cartesc_real_area(:,:)
    ocean_grid_cartesc_real_totarea   = atmos_grid_cartesc_real_totarea

    do j = 1,   oja
    do i = 1,   oia
    do k = oks, oke
       ocean_grid_cartesc_real_vol(k,i,j) = ocean_grid_cartesc_real_area(i,j) * ocean_grid_cartesc_cdz(k)
    enddo
    enddo
    enddo

    ocean_grid_cartesc_real_totvol = 0.0_rp
    do j = ojs, oje
    do i = ois, oie
    do k = oks, oke
       ocean_grid_cartesc_real_totvol = ocean_grid_cartesc_real_totvol + ocean_grid_cartesc_real_vol(k,i,j)
    end do
    end do
    end do

    call file_cartesc_set_coordinates_ocean( ocean_grid_cartesc_real_vol(:,:,:) ) ! [IN]

    return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

ocean_grid_cartesc_real_area

real(rp), dimension(:,:), allocatable, public scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_area

area of grid cell

Definition at line 35 of file scale_ocean_grid_cartesC_real.F90.

Referenced by scale_monitor_cartesc::monitor_cartesc_setup(), mod_ocean_driver::ocean_driver_calc_tendency(), ocean_grid_cartesc_real_setup(), and mod_ocean_vars::ocean_vars_total().

  real(RP), public, allocatable :: ocean_grid_cartesc_real_area(:,:)

ocean_grid_cartesc_real_totarea

real(rp), public scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_totarea

total area

Definition at line 36 of file scale_ocean_grid_cartesC_real.F90.

Referenced by scale_monitor_cartesc::monitor_cartesc_setup(), mod_ocean_driver::ocean_driver_calc_tendency(), ocean_grid_cartesc_real_setup(), and mod_ocean_vars::ocean_vars_total().

  real(RP), public              :: ocean_grid_cartesc_real_totarea

ocean_grid_cartesc_real_vol

real(rp), dimension (:,:,:), allocatable, public scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_vol

volume of grid cell

Definition at line 37 of file scale_ocean_grid_cartesC_real.F90.

Referenced by scale_file_history_cartesc::file_history_cartesc_truncate_3d(), scale_monitor_cartesc::monitor_cartesc_setup(), mod_ocean_driver::ocean_driver_calc_tendency(), ocean_grid_cartesc_real_setup(), and mod_ocean_vars::ocean_vars_total().

  real(RP), public, allocatable :: ocean_grid_cartesc_real_vol (:,:,:)

ocean_grid_cartesc_real_totvol

real(rp), public scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_totvol

total volume

Definition at line 38 of file scale_ocean_grid_cartesC_real.F90.

Referenced by scale_monitor_cartesc::monitor_cartesc_setup(), mod_ocean_driver::ocean_driver_calc_tendency(), ocean_grid_cartesc_real_setup(), and mod_ocean_vars::ocean_vars_total().

  real(RP), public              :: ocean_grid_cartesc_real_totvol