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

NAMELIST

PARAM_TOPO

name	type	default value	comment
TOPO_IN_BASENAME	character(len=H_LONG)	''	basename of the input file
TOPO_IN_CHECK_COORDINATES	logical	.false.	> switch for check of coordinates
TOPO_OUT_BASENAME	character(len=H_LONG)	''	basename of the output file
TOPO_OUT_DTYPE	character(len=H_SHORT)	'DEFAULT'	REAL4 or REAL8

History Output: No history output

Function/Subroutine Documentation

◆ topo_setup()

subroutine, public scale_topography::topo_setup ( )

Setup.

Definition at line 59 of file scale_topography.F90.

References scale_grid_index::ia, scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_fid_nml, scale_stdio::io_l, scale_stdio::io_nml, 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_in_check_coordinates, &
        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_nml ) write(io_fid_nml,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 98 of file scale_topography.F90.

References scale_fileio::fileio_close(), scale_fileio::fileio_flush(), scale_fileio::fileio_open(), scale_stdio::io_fid_log, scale_stdio::io_l, scale_process::prc_mpistop(), topo_exist, and topo_zsfc.

Referenced by mod_cnvtopo::cnvtopo(), and mod_cnvtopo::cnvtopo_hypdiff().

     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 164 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