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...
subroutine, public	ocean_grid_cartesc_real_finalize
	Finalize. More...
subroutine, public	ocean_grid_cartesc_real_set_areavol

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 56 of file scale_ocean_grid_cartesC_real.F90.

    implicit none
 
    ! 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) )
    !$acc enter data create(OCEAN_GRID_CARTESC_REAL_AREA,OCEAN_GRID_CARTESC_REAL_VOL)
 
    return

References ocean_grid_cartesc_real_area, ocean_grid_cartesc_real_vol, scale_ocean_grid_cartesc_index::oia, scale_ocean_grid_cartesc_index::oja, and scale_ocean_grid_cartesc_index::oka.

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

Here is the caller graph for this function:

ocean_grid_cartesc_real_finalize()

subroutine, public scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_finalize

Finalize.

Definition at line 69 of file scale_ocean_grid_cartesC_real.F90.

    implicit none
 
    !$acc exit data delete(OCEAN_GRID_CARTESC_REAL_AREA,OCEAN_GRID_CARTESC_REAL_VOL)
    deallocate( ocean_grid_cartesc_real_area )
    deallocate( ocean_grid_cartesc_real_vol )
 
    return

References ocean_grid_cartesc_real_area, and ocean_grid_cartesc_real_vol.

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

Here is the caller graph for this function:

ocean_grid_cartesc_real_set_areavol()

subroutine, public scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_set_areavol

Definition at line 80 of file scale_ocean_grid_cartesC_real.F90.

    use scale_atmos_grid_cartesc_real, only: &
       atmos_grid_cartesc_real_area
    use scale_ocean_grid_cartesc, only: &
       ocean_grid_cartesc_cdz
    use scale_file_cartesc, only: &
       file_cartesc_set_coordinates_ocean
    use scale_landuse, only: &
       landuse_fact_ocean
    implicit none
 
    integer :: k, i, j
 
    do j = 1,   oja
    do i = 1,   oia
       ocean_grid_cartesc_real_area(i,j) = atmos_grid_cartesc_real_area(i,j) * landuse_fact_ocean(i,j)
    end do
    end do
 
    ocean_grid_cartesc_real_totarea = 0.0_rp
    do j = ojs, oje
    do i = ois, oie
       ocean_grid_cartesc_real_totarea = ocean_grid_cartesc_real_totarea + ocean_grid_cartesc_real_area(i,j)
    end do
    end do
 
    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]
 
    !$acc update device(OCEAN_GRID_CARTESC_REAL_AREA,OCEAN_GRID_CARTESC_REAL_VOL)
    !$acc update device(OCEAN_GRID_CARTESC_REAL_TOTAREA,OCEAN_GRID_CARTESC_REAL_TOTVOL)
    return

References scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_area, scale_file_cartesc::file_cartesc_set_coordinates_ocean(), scale_landuse::landuse_fact_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::oke, and scale_ocean_grid_cartesc_index::oks.

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

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 37 of file scale_ocean_grid_cartesC_real.F90.

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

Referenced by scale_monitor_cartesc::monitor_cartesc_setup(), mod_ocean_driver::ocean_driver_calc_tendency(), ocean_grid_cartesc_real_finalize(), ocean_grid_cartesc_real_set_areavol(), ocean_grid_cartesc_real_setup(), and mod_ocean_vars::ocean_vars_check().

ocean_grid_cartesc_real_totarea

real(rp), public scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_totarea

total area

Definition at line 38 of file scale_ocean_grid_cartesC_real.F90.

  real(RP), public              :: OCEAN_GRID_CARTESC_REAL_TOTAREA

Referenced by scale_monitor_cartesc::monitor_cartesc_setup(), mod_ocean_driver::ocean_driver_calc_tendency(), ocean_grid_cartesc_real_set_areavol(), and mod_ocean_vars::ocean_vars_check().

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 39 of file scale_ocean_grid_cartesC_real.F90.

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

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_finalize(), ocean_grid_cartesc_real_set_areavol(), ocean_grid_cartesc_real_setup(), and mod_ocean_vars::ocean_vars_check().

ocean_grid_cartesc_real_totvol

real(rp), public scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_totvol

total volume

Definition at line 40 of file scale_ocean_grid_cartesC_real.F90.

  real(RP), public              :: OCEAN_GRID_CARTESC_REAL_TOTVOL

Referenced by scale_monitor_cartesc::monitor_cartesc_setup(), mod_ocean_driver::ocean_driver_calc_tendency(), ocean_grid_cartesc_real_set_areavol(), and mod_ocean_vars::ocean_vars_check().