swmod2.f90 File Reference

Go to the source code of this file.

Data Types
type	outp_data::opsdat
type	outp_data::orqdat
type	m_snl4::riamdat
type	m_bndspec::bspcdat
type	m_bndspec::bsdat
type	m_bndspec::bgpdat
type	m_obsta::obstdat

Modules
module	m_wcap
module	outp_data
module	m_snl4
module	m_bndspec
module	m_obsta
module	m_genarr
module	m_parall
module	m_diffr

Variables
real, save	m_wcap::actot
real, save	m_wcap::edrktot
real, save	m_wcap::ektot
real, save	m_wcap::etot1
real, save	m_wcap::etot2
real, save	m_wcap::etot4
real, save	m_wcap::km_wam
real, save	m_wcap::km01
real, save	m_wcap::sigm_10
real, save	m_wcap::sigm01
real, dimension(:,:), allocatable, save	m_wcap::sigpow
integer, parameter	outp_data::max_outp_req = 250
character(len=1)	outp_data::out_comment = '%'
character(len=40)	outp_data::flt_block = '(6E12.4)'
character(len=40)	outp_data::flt_table = '(E11.4)'
character(len=40)	outp_data::fix_spec = '(200(1X,I4))'
character(len=40)	outp_data::flt_blkp = '(6E17.9)'
integer	outp_data::fld_table = 12
integer	outp_data::dec_block = 4
integer	outp_data::dec_spec = 4
character(len=lenfnm), dimension(1:max_outp_req)	outp_data::outp_files
integer, save	outp_data::nreoq = 0
type(opsdat), target, save	outp_data::fops
type(opsdat), pointer, save	outp_data::cops
logical, save	outp_data::lops = .FALSE.
type(orqdat), target, save	outp_data::forq
integer, save, public	m_snl4::mdia = 1
real, dimension(:), allocatable, save, public	m_snl4::af11
real, dimension(:), allocatable, save, public	m_snl4::cnl4_1
real, dimension(:), allocatable, save, public	m_snl4::cnl4_2
real, dimension(:), allocatable, save, public	m_snl4::lambda
type(riamdat), target, save	m_snl4::friam
type(riamdat), pointer, save	m_snl4::curriam
type(bspcdat), target, save	m_bndspec::fbndfil
type(bsdat), target, save	m_bndspec::fbs
type(bgpdat), target, save	m_bndspec::fbgp
type(bgpdat), pointer, save	m_bndspec::cubgp
type(obstdat), target, save	m_obsta::fobstac
integer, dimension(:), allocatable, save	m_genarr::kgrpnt
integer, dimension(:), allocatable, save	m_genarr::kgrbnd
integer, dimension(:), allocatable, save	m_genarr::xytst
real, dimension(:), allocatable, save	m_genarr::xcgrid
real, dimension(:), allocatable, save	m_genarr::ycgrid
real, dimension(:), allocatable, save	m_genarr::spcsig
real, dimension(:,:), allocatable, save	m_genarr::spcdir
real, dimension(:), allocatable, save	m_genarr::depth
real, dimension(:,:), allocatable, save	m_genarr::fric
real, dimension(:,:), allocatable, save	m_genarr::uxb
real, dimension(:,:), allocatable, save	m_genarr::uyb
real, dimension(:,:), allocatable, save	m_genarr::wxi
real, dimension(:,:), allocatable, save	m_genarr::wyi
real, dimension(:,:), allocatable, save	m_genarr::wlevl
real, dimension(:,:), allocatable, save	m_genarr::astdf
integer	m_parall::master
integer	m_parall::ihalox
integer	m_parall::ihaloy
integer	m_parall::inode
integer	m_parall::nproc
integer	m_parall::swint
integer	m_parall::swreal
integer	m_parall::swmax
integer	m_parall::swmin
integer	m_parall::swsum
logical	m_parall::parll
integer	m_parall::mcgrdgl
integer	m_parall::mxcgl
integer	m_parall::mycgl
integer	m_parall::mxf
integer	m_parall::mxl
integer	m_parall::myf
integer	m_parall::myl
integer	m_parall::ngrbgl
integer	m_parall::nbggl
real	m_parall::xclmax
real	m_parall::xclmin
real	m_parall::yclmax
real	m_parall::yclmin
integer	m_parall::lenspo = 1000
logical	m_parall::lmxf
logical	m_parall::lmxl
logical	m_parall::lmyf
logical	m_parall::lmyl
integer, dimension(:), allocatable, save	m_parall::iblkad
integer, dimension(:), allocatable, save	m_parall::iweig
integer, dimension(:), allocatable, save	m_parall::kgrpgl
integer, dimension(:), allocatable, save	m_parall::kgrbgl
real, dimension(:), allocatable, save	m_parall::xgrdgl
real, dimension(:), allocatable, save	m_parall::ygrdgl
real, dimension(:), allocatable	m_diffr::difparam
real, dimension(:), allocatable	m_diffr::difpardx
real, dimension(:), allocatable	m_diffr::difpardy