w3gridmd.F90 File Reference

Go to the source code of this file.

Modules
module	w3gridmd

Functions/Subroutines
subroutine	w3gridmd::w3grid ()
subroutine	w3gridmd::readnl (NDS, NAME, STATUS)

Variables
type(nml_spectrum_t)	w3gridmd::nml_spectrum
type(nml_run_t)	w3gridmd::nml_run
type(nml_timesteps_t)	w3gridmd::nml_timesteps
type(nml_grid_t)	w3gridmd::nml_grid
type(nml_rect_t)	w3gridmd::nml_rect
type(nml_curv_t)	w3gridmd::nml_curv
type(nml_unst_t)	w3gridmd::nml_unst
type(nml_smc_t)	w3gridmd::nml_smc
type(nml_depth_t)	w3gridmd::nml_depth
type(nml_mask_t)	w3gridmd::nml_mask
type(nml_obst_t)	w3gridmd::nml_obst
type(nml_slope_t)	w3gridmd::nml_slope
type(nml_sed_t)	w3gridmd::nml_sed
type(nml_inbnd_count_t)	w3gridmd::nml_inbnd_count
type(nml_inbnd_point_t), dimension(:), allocatable	w3gridmd::nml_inbnd_point
type(nml_excl_count_t)	w3gridmd::nml_excl_count
type(nml_excl_point_t), dimension(:), allocatable	w3gridmd::nml_excl_point
type(nml_excl_body_t), dimension(:), allocatable	w3gridmd::nml_excl_body
type(nml_outbnd_count_t)	w3gridmd::nml_outbnd_count
type(nml_outbnd_line_t), dimension(:), allocatable	w3gridmd::nml_outbnd_line
integer, parameter	w3gridmd::nfl = 6
integer	w3gridmd::ndsi
integer	w3gridmd::ndsi2
integer	w3gridmd::ndss
integer	w3gridmd::ndsm
integer	w3gridmd::ndsg
integer	w3gridmd::ndstr
integer	w3gridmd::ierr
integer	w3gridmd::ndstrc
integer	w3gridmd::ntrace
integer	w3gridmd::ith
integer	w3gridmd::ik
integer	w3gridmd::ith0
integer	w3gridmd::isp
integer, dimension(nfl)	w3gridmd::iyn
integer	w3gridmd::nrlin
integer	w3gridmd::nrsrce
integer	w3gridmd::nrnl
integer	w3gridmd::nrbt
integer	w3gridmd::nrdb
integer	w3gridmd::nrtr
integer	w3gridmd::nrbs
integer	w3gridmd::nrprop
integer	w3gridmd::idla
integer	w3gridmd::idfm
integer	w3gridmd::ix0
integer	w3gridmd::ixn
integer	w3gridmd::ix
integer	w3gridmd::iy
integer	w3gridmd::isea
integer	w3gridmd::idx
integer	w3gridmd::ixo
integer	w3gridmd::idy
integer	w3gridmd::iyo
integer	w3gridmd::iba
integer	w3gridmd::nba
integer	w3gridmd::iloop
integer	w3gridmd::ifl
integer	w3gridmd::nbotot
integer	w3gridmd::npo
integer	w3gridmd::ip
integer	w3gridmd::ix1
integer	w3gridmd::ix2
integer	w3gridmd::iy1
integer	w3gridmd::iy2
integer	w3gridmd::j
integer	w3gridmd::jj
integer, dimension(4)	w3gridmd::ixr
integer, dimension(4)	w3gridmd::iyr
integer, dimension(4)	w3gridmd::iseai
integer	w3gridmd::ist
integer	w3gridmd::nki
integer	w3gridmd::nthi
integer	w3gridmd::nric
integer	w3gridmd::nris
integer	w3gridmd::i
integer	w3gridmd::idft
integer	w3gridmd::nstat
integer	w3gridmd::nbt
integer	w3gridmd::nland
integer	w3gridmd::nosw
integer	w3gridmd::nmapb
integer	w3gridmd::imapb
integer	w3gridmd::ndsma
integer	w3gridmd::idepth
integer	w3gridmd::ibi
integer	w3gridmd::ip0
integer	w3gridmd::ipn
integer	w3gridmd::iph
integer	w3gridmd::ipi
integer	w3gridmd::ncol = 78
integer	w3gridmd::jeqt
integer	w3gridmd::lvsmc
integer	w3gridmd::nbismc
integer	w3gridmd::js
integer	w3gridmd::ncobst
integer	w3gridmd::jobs
integer	w3gridmd::ishft
integer	w3gridmd::ngui
integer	w3gridmd::ngvj
integer	w3gridmd::naui
integer	w3gridmd::navj
integer	w3gridmd::nmap
integer	w3gridmd::imap
integer	w3gridmd::ix3
integer	w3gridmd::iy3
integer	w3gridmd::ifile
integer, save	w3gridmd::ient = 0
integer, dimension(:,:), allocatable	w3gridmd::tmpsta
integer, dimension(:,:), allocatable	w3gridmd::tmpmap
integer, dimension(:,:), allocatable	w3gridmd::readmp
integer, dimension(:,:), allocatable	w3gridmd::mapout
real	w3gridmd::rxfr
real	w3gridmd::rfr1
real	w3gridmd::sigma
real	w3gridmd::sxfr
real	w3gridmd::fachf
real	w3gridmd::vsc
real	w3gridmd::vsc0
real	w3gridmd::vof
real	w3gridmd::zlim
real	w3gridmd::x
real	w3gridmd::y
real	w3gridmd::xp
real	w3gridmd::xo0
real	w3gridmd::yo0
real	w3gridmd::dxo
real	w3gridmd::dyo
real	w3gridmd::xo
real	w3gridmd::yo
real, dimension(4)	w3gridmd::rd
real	w3gridmd::rdtot
real	w3gridmd::factor
real	w3gridmd::rth0
real	w3gridmd::fmiche
real	w3gridmd::rwndc
real	w3gridmd::wcor1
real	w3gridmd::wcor2
character(len=4)	w3gridmd::gstrg
character(len=4)	w3gridmd::cstrg
integer	w3gridmd::p2sf
integer	w3gridmd::i1p2sf
integer	w3gridmd::i2p2sf
integer	w3gridmd::e3d
integer	w3gridmd::i1e3d
integer	w3gridmd::i2e3d
integer	w3gridmd::us3d
integer	w3gridmd::i1us3d
integer	w3gridmd::i2us3d
integer	w3gridmd::ussp
integer	w3gridmd::iussp
integer	w3gridmd::th1mf
integer	w3gridmd::i1th1m
integer	w3gridmd::i2th1m
integer	w3gridmd::sth1mf
integer	w3gridmd::i1sth1m
integer	w3gridmd::i2sth1m
integer	w3gridmd::th2mf
integer	w3gridmd::i1th2m
integer	w3gridmd::i2th2m
integer	w3gridmd::sth2mf
integer	w3gridmd::i1sth2m
integer	w3gridmd::i2sth2m
real, dimension(25)	w3gridmd::stk_wn
real	w3gridmd::clin
real	w3gridmd::rfpm
real	w3gridmd::rfhf
real	w3gridmd::cinp
real	w3gridmd::cdis
real	w3gridmd::apm
real	w3gridmd::phimin
real	w3gridmd::fpia
real	w3gridmd::fpib
real	w3gridmd::dphid
real	w3gridmd::nlprop
real	w3gridmd::dptfac
real, dimension(100)	w3gridmd::depths
real, dimension(500)	w3gridmd::qparms
real	w3gridmd::a34
real	w3gridmd::fhfc
real	w3gridmd::dnm
real	w3gridmd::fc1
real	w3gridmd::fc2
real	w3gridmd::fc3
real	w3gridmd::gamma
real	w3gridmd::latmin
real	w3gridmd::dvsmc
real	w3gridmd::trnmx
real	w3gridmd::trnmy
integer, dimension(:), allocatable	w3gridmd::nlvcelsk
integer, dimension(:), allocatable	w3gridmd::nlvufcsk
integer, dimension(:), allocatable	w3gridmd::nlvvfcsk
integer, dimension(:,:), allocatable	w3gridmd::ijkcelin
integer, dimension(:,:), allocatable	w3gridmd::ijkufcin
integer, dimension(:,:), allocatable	w3gridmd::ijkvfcin
integer, dimension(:), allocatable	w3gridmd::nbicelin
integer, dimension(:,:), allocatable	w3gridmd::ijkobstr
real	w3gridmd::polonac
real	w3gridmd::polatac
integer, dimension(:,:), allocatable	w3gridmd::ijkcelac
integer, dimension(:,:), allocatable	w3gridmd::ijkufcac
integer, dimension(:,:), allocatable	w3gridmd::ijkvfcac
integer, dimension(:), allocatable	w3gridmd::ijkdep
integer, dimension(:), allocatable	w3gridmd::ijkvfc8
real, dimension(:), allocatable	w3gridmd::xlonac
real, dimension(:), allocatable	w3gridmd::ylatac
real, dimension(:), allocatable	w3gridmd::elonac
real, dimension(:), allocatable	w3gridmd::elatac
real, dimension(:,:), allocatable	w3gridmd::angldin
real, dimension(:,:), allocatable	w3gridmd::stdlon
real, dimension(:,:), allocatable	w3gridmd::stdlat
real, dimension(:), allocatable	w3gridmd::bdylon
real, dimension(:), allocatable	w3gridmd::bdylat
real, dimension(:), allocatable	w3gridmd::elatbdy
real, dimension(:), allocatable	w3gridmd::elonbdy
real, dimension(:), allocatable	w3gridmd::anglbdy
real	w3gridmd::bpolat
real	w3gridmd::bpolon
real, dimension(:,:), allocatable	w3gridmd::xgrdin
real, dimension(:,:), allocatable	w3gridmd::ygrdin
real, dimension(:,:), allocatable	w3gridmd::zbin
real, dimension(:,:), allocatable	w3gridmd::obsx
real, dimension(:,:), allocatable	w3gridmd::obsy
real, dimension(:,:), allocatable	w3gridmd::refd
real, dimension(:,:), allocatable	w3gridmd::refd2
real, dimension(:,:), allocatable	w3gridmd::refs
real, dimension(:,:), allocatable	w3gridmd::sed_d50file
real, dimension(:,:), allocatable	w3gridmd::sed_porofile
logical	w3gridmd::sedmapd50
real	w3gridmd::sed_d50_uniform
real	w3gridmd::sed_dstar
real	w3gridmd::ripfac1
real	w3gridmd::ripfac2
real	w3gridmd::ripfac3
real	w3gridmd::ripfac4
real	w3gridmd::sigdepth
real	w3gridmd::botroughmin
real	w3gridmd::botroughfac
logical	w3gridmd::fllin
logical	w3gridmd::flinds
logical	w3gridmd::flnl
logical	w3gridmd::flbt
logical	w3gridmd::fldb
logical	w3gridmd::fltr
logical	w3gridmd::flbs
logical	w3gridmd::flprop
logical	w3gridmd::flref
logical	w3gridmd::first
logical	w3gridmd::connct
logical	w3gridmd::flnew
logical	w3gridmd::ingrid
logical	w3gridmd::flic
logical	w3gridmd::flis
logical	w3gridmd::flgnml
logical	w3gridmd::fltc96 = .FALSE.
logical	w3gridmd::flnmlo = .FALSE.
logical	w3gridmd::flstb2 = .FALSE.
logical	w3gridmd::flst4 = .FALSE.
logical	w3gridmd::flst6 = .FALSE.
real	w3gridmd::facberg
real	w3gridmd::refslope
real	w3gridmd::isc1
real	w3gridmd::isc2
real	w3gridmd::is2backscat
real	w3gridmd::is2c2
real	w3gridmd::is2c3
real	w3gridmd::is2fragility
real	w3gridmd::is2dmin
real	w3gridmd::is2damp
real	w3gridmd::is2conc
real	w3gridmd::is2creepb
real	w3gridmd::is2creepc
real	w3gridmd::is2creepd
real	w3gridmd::is2creepn
real	w3gridmd::is2breake
real	w3gridmd::is2wim1
real	w3gridmd::is2breakf
real	w3gridmd::is2flexstr
real	w3gridmd::is2andisn
real	w3gridmd::is2andise
real	w3gridmd::is2andisd
logical	w3gridmd::is2break
logical	w3gridmd::is2disp
logical	w3gridmd::is2dupdate
logical	w3gridmd::is2isoscat
logical	w3gridmd::is2andisb
real	w3gridmd::refcoast
real	w3gridmd::reffreq
real	w3gridmd::refmap
real	w3gridmd::refsubgrid
real	w3gridmd::refrmax
real	w3gridmd::refmapd
real	w3gridmd::reficeberg
real	w3gridmd::refcosp_straight
real	w3gridmd::reffreqpow
real	w3gridmd::refunstsource
logical	w3gridmd::igswellmax
logical	w3gridmd::igbcoverwrite
integer	w3gridmd::igmethod
integer	w3gridmd::igaddoutp
integer	w3gridmd::igsource
integer	w3gridmd::igsourceatbp
integer	w3gridmd::igsterms
real	w3gridmd::igmaxfreq
real	w3gridmd::igmindep
real	w3gridmd::igmaxdep
real	w3gridmd::igkdmin
real	w3gridmd::igfixeddepth
real	w3gridmd::igempirical
logical	w3gridmd::ic2disper
real	w3gridmd::ic2turb
real	w3gridmd::ic2rough
real	w3gridmd::ic2reynolds
real	w3gridmd::ic2smooth
real	w3gridmd::ic2visc
real	w3gridmd::ic2turbs
real	w3gridmd::ic2dmax
real	w3gridmd::ic3maxthk
real	w3gridmd::ic3maxcnc
real	w3gridmd::ic3hilim
real	w3gridmd::ic3kilim
real	w3gridmd::ic3visc
real	w3gridmd::ic3elas
real	w3gridmd::ic3dens
real	w3gridmd::ic3hice
logical	w3gridmd::ic3cheng
logical	w3gridmd::usecgice
integer	w3gridmd::ic4method
real, dimension(nic4)	w3gridmd::ic4ki
real, dimension(nic4)	w3gridmd::ic4fc
real, dimension(nic42)	w3gridmd::ic4cn
real	w3gridmd::ic4fmin
real	w3gridmd::ic4kibk
real	w3gridmd::ic5minig
real	w3gridmd::ic5minwt
real	w3gridmd::ic5maxkratio
real	w3gridmd::ic5maxki
real	w3gridmd::ic5minhw
real	w3gridmd::ic5maxiter
real	w3gridmd::ic5rkick
real	w3gridmd::ic5kfilter
real	w3gridmd::ic5vemod
character(len=4), dimension(3)	w3gridmd::ic5mstr = (/' EFS', ' RP ', ' M2 '/)
character	w3gridmd::comstr
character	w3gridmd::pname
character	w3gridmd::rform
character	w3gridmd::from
character	w3gridmd::fname
character	w3gridmd::tname
character	w3gridmd::line
character	w3gridmd::status
character	w3gridmd::fname2
character	w3gridmd::pname2
character(len=6), dimension(2)	w3gridmd::yesxno
character(len=18)	w3gridmd::typeid
integer	w3gridmd::ncid
integer	w3gridmd::grid_size_dimid
integer	w3gridmd::grid_rank_dimid
integer	w3gridmd::grid_corners_dimid
integer	w3gridmd::grid_center_lat_varid
integer	w3gridmd::grid_center_lon_varid
integer	w3gridmd::grid_corner_lat_varid
integer	w3gridmd::grid_corner_lon_varid
integer	w3gridmd::grid_area_varid
integer	w3gridmd::grid_imask_varid
integer	w3gridmd::grid_dims_varid
real(scrip_r8)	w3gridmd::conv_dx
real(scrip_r8)	w3gridmd::conv_dy
real(scrip_r8)	w3gridmd::offset
integer	w3gridmd::flagtr
integer	w3gridmd::ihm
real	w3gridmd::cfltm
real	w3gridmd::cice0
real	w3gridmd::cicen
real	w3gridmd::pmove
real	w3gridmd::xfilt
real	w3gridmd::lice
real	w3gridmd::xseed
real	w3gridmd::xr
real	w3gridmd::hspm
real	w3gridmd::wsm
real	w3gridmd::wsc
real	w3gridmd::stdx
real	w3gridmd::stdy
real	w3gridmd::stdt
real	w3gridmd::icehmin
real	w3gridmd::icehfac
real	w3gridmd::icehinit
real	w3gridmd::icesln
real	w3gridmd::icewind
real	w3gridmd::icesnl
real	w3gridmd::icesds
real	w3gridmd::icehdisp
real	w3gridmd::icefdisp
real	w3gridmd::iceddisp
real	w3gridmd::btbet
real(8)	w3gridmd::gshift
logical	w3gridmd::flc
logical	w3gridmd::icedisp
logical	w3gridmd::trckcmpr
integer	w3gridmd::ptm
real	w3gridmd::ptfc
real	w3gridmd::aircmin
real	w3gridmd::airgb
character	w3gridmd::pmname
character	w3gridmd::pmnam2
integer	w3gridmd::tailtype
real	w3gridmd::taillev
real	w3gridmd::tailt1
real	w3gridmd::tailt2
integer	w3gridmd::ctype
real	w3gridmd::cdmax
real	w3gridmd::cdfac
real	w3gridmd::zwnd
real	w3gridmd::swellf
real	w3gridmd::stabsh
real	w3gridmd::stabof
real	w3gridmd::cneg
real	w3gridmd::cpos
real	w3gridmd::fneg
real	w3gridmd::fpos
real	w3gridmd::sdsa0
real	w3gridmd::sdsa1
real	w3gridmd::sdsa2
real	w3gridmd::sdsb0
real	w3gridmd::sdsb1
real	w3gridmd::sdsb2
real	w3gridmd::sdsb3
real	w3gridmd::alpha0
real	w3gridmd::z0max
real	w3gridmd::betamax
real	w3gridmd::sinthp
real	w3gridmd::zalp
real	w3gridmd::fxpm3
real	w3gridmd::fxfm3
real	w3gridmd::wnmeanptail
real	w3gridmd::wnmeanp
real	w3gridmd::stxftf
real	w3gridmd::stxftwn
real	w3gridmd::stxftftail
real	w3gridmd::sdsc1
real	w3gridmd::sdsdelta1
real	w3gridmd::sdsdelta2
integer	w3gridmd::swellfpar
integer	w3gridmd::sdsiso
integer	w3gridmd::sdsbrfdf
integer	w3gridmd::sintable
integer	w3gridmd::tauwbug
real	w3gridmd::sdsbchoice
real	w3gridmd::z0rat
real	w3gridmd::tauwshelter
real	w3gridmd::swellf2
real	w3gridmd::swellf3
real	w3gridmd::swellf4
real	w3gridmd::swellf5
real	w3gridmd::swellf6
real	w3gridmd::swellf7
real	w3gridmd::sinbr
real	w3gridmd::fxfmage
real	w3gridmd::sdsc2
real	w3gridmd::sdscum
real	w3gridmd::sdsc4
real	w3gridmd::sdsc5
real	w3gridmd::sdsc6
real	w3gridmd::whitecapwidth
real	w3gridmd::whitecapdur
real	w3gridmd::sdsstrain
real	w3gridmd::sdsstraina
real	w3gridmd::sdsstrain2
real	w3gridmd::sdsbr
real	w3gridmd::sdsp
real	w3gridmd::sdsbt
real	w3gridmd::sds4a
real	w3gridmd::sdkof
real	w3gridmd::sdscos
real	w3gridmd::sdsdth
real	w3gridmd::sdsbck
real	w3gridmd::sdsabk
real	w3gridmd::sdspbk
real	w3gridmd::sdsbint
real	w3gridmd::sdshck
real	w3gridmd::sdsbrf1
real	w3gridmd::sdsbm0
real	w3gridmd::sdsbm1
real	w3gridmd::sdsbm2
real	w3gridmd::sdsbm3
real	w3gridmd::sdsbm4
real	w3gridmd::sdsfacmtf
real	w3gridmd::sdscump
real	w3gridmd::sdsnuw
real	w3gridmd::sdsl
real	w3gridmd::sdsmwd
real	w3gridmd::sdsmwpow
real	w3gridmd::spmss
real	w3gridmd::sdsnmtf
real	w3gridmd::sintail1
real	w3gridmd::sintail2
real	w3gridmd::cumsigp
real	w3gridmd::viscstress
real	w3gridmd::capcha
real	w3gridmd::chamin
real	w3gridmd::cha0
real	w3gridmd::ucap
real	w3gridmd::sigmaucap
real	w3gridmd::sina0
real	w3gridmd::sinws
real	w3gridmd::sinfc
real	w3gridmd::swlb1
integer	w3gridmd::sdsp1
integer	w3gridmd::sdsp2
logical	w3gridmd::sdset
logical	w3gridmd::cstb1
real	w3gridmd::lambda
real	w3gridmd::kdconv
real	w3gridmd::kdmin
real	w3gridmd::snlcs1
real	w3gridmd::snlcs2
real	w3gridmd::snlcs3
integer	w3gridmd::iqtype
integer	w3gridmd::gqmnf1
integer	w3gridmd::gqmnt1
integer	w3gridmd::gqmnq_om2
real	w3gridmd::tailnl
real	w3gridmd::gqmthrsat
real	w3gridmd::gqmthrcou
real	w3gridmd::gqamp1
real	w3gridmd::gqamp2
real	w3gridmd::gqamp3
real	w3gridmd::gqamp4
integer	w3gridmd::ndepth
integer	w3gridmd::nqdef
real	w3gridmd::msc
real	w3gridmd::nsc
real	w3gridmd::kdfd
real	w3gridmd::kdfs
integer	w3gridmd::indtsa
integer	w3gridmd::altlp
real	w3gridmd::nl5dpt
real	w3gridmd::nl5oml
integer	w3gridmd::nl5dis
integer	w3gridmd::nl5kev
integer	w3gridmd::nl5ipl
integer	w3gridmd::nl5pmx
real	w3gridmd::bjalfa
real	w3gridmd::bjgam
logical	w3gridmd::bjflag
real	w3gridmd::dtime
real	w3gridmd::dtims
real	w3gridmd::cflsm
real	w3gridmd::rfmaxd
real	w3gridmd::symr
real	w3gridmd::yj0r
logical	w3gridmd::uno3
logical	w3gridmd::averg
logical	w3gridmd::seawnd
logical	w3gridmd::arctic
character	w3gridmd::pnsmc
real	w3gridmd::wdthcg
real	w3gridmd::wdthth
logical	w3gridmd::jgs_terminate_maxiter
logical	w3gridmd::jgs_terminate_difference
logical	w3gridmd::jgs_terminate_norm
logical	w3gridmd::jgs_limiter
integer	w3gridmd::jgs_limiter_func
logical	w3gridmd::jgs_block_gauss_seidel
logical	w3gridmd::jgs_use_jacobi
logical	w3gridmd::jgs_source_nonlinear
logical	w3gridmd::ugobcauto
logical	w3gridmd::ugbccfl
logical	w3gridmd::expfsn
logical	w3gridmd::expfspsi
logical	w3gridmd::expfsfct
logical	w3gridmd::impfsn
logical	w3gridmd::exptotal
logical	w3gridmd::imptotal
logical	w3gridmd::imprefraction
logical	w3gridmd::impfreqshift
logical	w3gridmd::impsource
logical	w3gridmd::setup_apply_wlv
integer	w3gridmd::jgs_maxiter
integer	w3gridmd::nbsel
integer, dimension(6)	w3gridmd::unstschemes
integer	w3gridmd::unstscheme
integer	w3gridmd::jgs_nlevel
real *8	w3gridmd::jgs_pmin
real *8	w3gridmd::jgs_diff_thr
real *8	w3gridmd::jgs_norm_thr
real *8	w3gridmd::solverthr_setup
real *8	w3gridmd::crit_dep_setup
character	w3gridmd::ugobcfile
real	w3gridmd::ugobcdepth
logical	w3gridmd::ugobcok
real	w3gridmd::plat
real	w3gridmd::plon
logical	w3gridmd::unrot
real, dimension(9)	w3gridmd::bplat
real, dimension(9)	w3gridmd::bplon