module TOPOGRAPHY More...

Functions/Subroutines
subroutine, public	topo_setup
	Setup. More...

subroutine, public	topo_fillhalo (Zsfc)
	HALO Communication. More...

subroutine, public	topo_write
	Write topography. More...

Variables
logical, public	topo_exist = .false.
	topography exists? More...

real(rp), dimension(:,:), allocatable, public	topo_zsfc
	absolute ground height [m] More...

Detailed Description

module TOPOGRAPHY

Description: Topography module

Author: Team SCALE

Function/Subroutine Documentation

◆ topo_setup()

subroutine, public scale_topography::topo_setup ( )

Setup.

Definition at line 58 of file scale_topography.F90.

References scale_grid_index::ia, scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_l, scale_stdio::io_lnml, scale_grid_index::ja, scale_process::prc_mpistop(), and topo_zsfc.

Referenced by mod_rm_driver::scalerm(), and mod_rm_prep::scalerm_prep().

     use scale_process, only: &
        prc_mpistop
     implicit none
 
     namelist / param_topo / &
        topo_in_basename,  &
        topo_out_basename, &
        topo_out_dtype
 
     integer :: ierr
     !---------------------------------------------------------------------------
 
     if( io_l ) write(io_fid_log,*)
     if( io_l ) write(io_fid_log,*) '++++++ Module[TOPOGRAPHY] / Categ[ATMOS-RM GRID] / Origin[SCALElib]'
 
     !--- read namelist
     rewind(io_fid_conf)
     read(io_fid_conf,nml=param_topo,iostat=ierr)
     if( ierr < 0 ) then !--- missing
        if( io_l ) write(io_fid_log,*) '*** Not found namelist. Default used.'
     elseif( ierr > 0 ) then !--- fatal error
        write(*,*) 'xxx Not appropriate names in namelist PARAM_TOPO. Check!'
        call prc_mpistop
     endif
     if( io_lnml ) write(io_fid_log,nml=param_topo)
 
     allocate( topo_zsfc(ia,ja) )
     topo_zsfc(:,:) = 0.0_rp
 
     ! read from file
     call topo_read
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ topo_fillhalo()

subroutine, public scale_topography::topo_fillhalo ( real(rp), dimension(ia,ja), intent(inout), optional Zsfc )

HALO Communication.

Definition at line 96 of file scale_topography.F90.

References scale_grid::grid_cx, scale_grid::grid_cy, scale_grid_index::ia, scale_stdio::io_fid_log, scale_stdio::io_l, scale_grid_index::ja, scale_process::prc_mpistop(), scale_process::prc_myrank, scale_precision::rp, topo_exist, and topo_zsfc.

Referenced by mod_cnvtopo::cnvtopo().

     use scale_comm, only: &
        comm_vars8, &
        comm_wait
     implicit none
     real(RP), intent(inout), optional :: zsfc(ia,ja)
     !---------------------------------------------------------------------------
 
     if ( present(zsfc) ) then
        call comm_vars8( zsfc(:,:), 1 )
        call comm_wait ( zsfc(:,:), 1 )
     else
        call comm_vars8( topo_zsfc(:,:), 1 )
        call comm_wait ( topo_zsfc(:,:), 1 )
     end if
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ topo_write()

subroutine, public scale_topography::topo_write ( )

Write topography.

Definition at line 179 of file scale_topography.F90.

References scale_stdio::io_fid_log, scale_stdio::io_l, and topo_zsfc.

Referenced by mod_cnvtopo::cnvtopo(), and mod_mktopo::mktopo().

     use scale_fileio, only: &
        fileio_write
     implicit none
     !---------------------------------------------------------------------------
 
     if ( topo_out_basename /= '' ) then
 
        if( io_l ) write(io_fid_log,*)
        if( io_l ) write(io_fid_log,*) '*** Output topography file ***'
 
        call fileio_write( topo_zsfc(:,:), topo_out_basename, topo_out_title, & ! [IN]
                           'TOPO', 'Topography', 'm', 'XY',   topo_out_dtype, & ! [IN]
                           nozcoord=.true. )
 
     endif
 
     return