mod_fourdvar.F File Reference

#include "cppdefs.h"

Include dependency graph for mod_fourdvar.F:

Go to the source code of this file.

Data Types
type	mod_fourdvar::t_fourdvar

Modules
module	mod_fourdvar

Macros
#define	MyMobs   Mobs+1

Functions/Subroutines
subroutine, public	mod_fourdvar::allocate_fourdvar
subroutine, public	mod_fourdvar::deallocate_fourdvar
subroutine, public	mod_fourdvar::initialize_fourdvar

Variables
type(t_fourdvar), dimension(:), allocatable	mod_fourdvar::fourdvar
integer, dimension(:), allocatable	mod_fourdvar::obstype
integer, dimension(:), allocatable	mod_fourdvar::obsstate2type
integer, dimension(:), allocatable	mod_fourdvar::obstype2state
integer, dimension(:), allocatable	mod_fourdvar::obsprov
real(r8), dimension(:), allocatable	mod_fourdvar::obsangler
real(r8), dimension(:), allocatable	mod_fourdvar::obserr
real(r8), dimension(:), allocatable	mod_fourdvar::obsmeta
real(r8), dimension(:), allocatable	mod_fourdvar::obsscale
real(r8), dimension(:), allocatable	mod_fourdvar::obsvetting
real(r8), dimension(:), allocatable	mod_fourdvar::obsval
real(dp), dimension(:), allocatable	mod_fourdvar::tobs
real(r8), dimension(:), allocatable	mod_fourdvar::xobs
real(r8), dimension(:), allocatable	mod_fourdvar::yobs
real(r8), dimension(:), allocatable	mod_fourdvar::zobs
real(r8), dimension(:), allocatable	mod_fourdvar::admodval
real(r8), dimension(:), allocatable	mod_fourdvar::nlmodval
real(r8), dimension(:), allocatable	mod_fourdvar::misfit
real(r8), dimension(:), allocatable	mod_fourdvar::unvetted
real(r8), dimension(:), allocatable	mod_fourdvar::uradial
real(r8), dimension(:), allocatable	mod_fourdvar::vradial
real(r8), dimension(:,:), allocatable	mod_fourdvar::admodval_s
real(r8), dimension(:,:,:), allocatable	mod_fourdvar::harnoldi
real(r8), dimension(:,:), allocatable	mod_fourdvar::gmze
real(r8), dimension(:), allocatable	mod_fourdvar::cg_beta0
real(r8), dimension(:,:), allocatable	mod_fourdvar::jobs
real(r8), dimension(:,:,:), allocatable	mod_fourdvar::zcglwk
real(r8), dimension(:,:,:), allocatable	mod_fourdvar::vcglwk
real(r8), dimension(:), allocatable	mod_fourdvar::jb0
real(r8), dimension(:,:,:), allocatable	mod_fourdvar::vcglev
real(r8), dimension(:,:), allocatable	mod_fourdvar::zgrad0
real(r8), dimension(:), allocatable	mod_fourdvar::vgrad0
real(r8), dimension(:), allocatable	mod_fourdvar::vgrad0s
real(r8), dimension(:), allocatable	mod_fourdvar::gdgw
real(r8), dimension(:), allocatable	mod_fourdvar::vgnorm
real(r8), dimension(:), allocatable	mod_fourdvar::cg_innov
real(r8), dimension(:,:), allocatable	mod_fourdvar::cg_dla
real(r8), dimension(:,:), allocatable	mod_fourdvar::ad_zcglwk
real(r8), dimension(:), allocatable	mod_fourdvar::ad_zgrad0
real(r8), dimension(:,:), allocatable	mod_fourdvar::ad_vcglwk
real(r8), dimension(:), allocatable	mod_fourdvar::ad_vgrad0
real(r8), dimension(:), allocatable	mod_fourdvar::ad_vgrad0s
real(r8), dimension(:), allocatable	mod_fourdvar::ad_jb0
real(r8), dimension(:), allocatable	mod_fourdvar::ad_obserr
real(r8), dimension(:), allocatable	mod_fourdvar::ad_obsscale
real(r8), dimension(:), allocatable	mod_fourdvar::ad_cg_innov
real(r8), dimension(:), allocatable	mod_fourdvar::ad_cg_pxsave
real(r8), dimension(:), allocatable	mod_fourdvar::ad_cg_pxout
real(r8), dimension(:,:), allocatable	mod_fourdvar::ad_obsval
real(r8), dimension(:,:), allocatable	mod_fourdvar::tl_zcglwk
real(r8), dimension(:), allocatable	mod_fourdvar::tl_zgrad0
real(r8), dimension(:,:), allocatable	mod_fourdvar::tl_vcglwk
real(r8), dimension(:), allocatable	mod_fourdvar::tl_vgrad0
real(r8), dimension(:), allocatable	mod_fourdvar::tl_vgrad0s
real(r8), dimension(:), allocatable	mod_fourdvar::tl_jb0
real(r8), dimension(:), allocatable	mod_fourdvar::tl_obserr
real(r8), dimension(:), allocatable	mod_fourdvar::tl_obsscale
real(r8), dimension(:), allocatable	mod_fourdvar::tl_cg_innov
real(r8), dimension(:), allocatable	mod_fourdvar::tl_cg_pxsave
real(r8), dimension(:), allocatable	mod_fourdvar::tl_cg_pxout
real(r8), dimension(:), allocatable	mod_fourdvar::tl_obsval
logical, dimension(:), allocatable	mod_fourdvar::load_zobs
logical, dimension(:), allocatable	mod_fourdvar::wrote_zobs
integer	mod_fourdvar::mobs
integer, dimension(:), allocatable	mod_fourdvar::nstatevar
integer, dimension(:), allocatable	mod_fourdvar::nobsvar
character(len=40), dimension(:), allocatable	mod_fourdvar::obsname
integer	mod_fourdvar::nextraobs = 0
integer, dimension(:), allocatable	mod_fourdvar::extraindex
character(len=40), dimension(:), allocatable	mod_fourdvar::extraname
integer, parameter	mod_fourdvar::nweights = 8
integer, dimension(nweights), parameter	mod_fourdvar::ioffset = (/ 0, 1, 0, 1, 0, 1, 0, 1 /)
integer, dimension(nweights), parameter	mod_fourdvar::joffset = (/ 0, 0, 1, 1, 0, 0, 1, 1 /)
integer, dimension(nweights), parameter	mod_fourdvar::koffset = (/ 0, 0, 0, 0, 1, 1, 1, 1 /)
integer, dimension(:), allocatable	mod_fourdvar::ndatum
integer, dimension(:), allocatable	mod_fourdvar::nsurvey
integer, dimension(:), allocatable	mod_fourdvar::obssurvey
integer, dimension(:), allocatable	mod_fourdvar::nobs
integer, dimension(:), allocatable	mod_fourdvar::nstrobs
integer, dimension(:), allocatable	mod_fourdvar::nendobs
integer, dimension(:), allocatable	mod_fourdvar::nmethod
integer, dimension(:), allocatable	mod_fourdvar::rscheme
integer	mod_fourdvar::nrandom = 1000
integer	mod_fourdvar::nposti
integer	mod_fourdvar::nimpact
integer	mod_fourdvar::nvct
real(r8), dimension(:), allocatable	mod_fourdvar::optimality
logical, dimension(:), allocatable	mod_fourdvar::processobs
logical, dimension(:), allocatable	mod_fourdvar::lsadd
logical, dimension(:), allocatable	mod_fourdvar::wrtnlmod
logical, dimension(:), allocatable	mod_fourdvar::wrtobsscale
logical, dimension(:), allocatable	mod_fourdvar::wrtrpmod
logical, dimension(:), allocatable	mod_fourdvar::wrttlmod
logical, dimension(:), allocatable	mod_fourdvar::wrtmisfit
logical, dimension(:), allocatable	mod_fourdvar::wrtimpact_tot
logical, dimension(:), allocatable	mod_fourdvar::wrtimpact_ic
logical, dimension(:), allocatable	mod_fourdvar::wrtimpact_fc
logical, dimension(:), allocatable	mod_fourdvar::wrtimpact_bc
logical, dimension(:), allocatable	mod_fourdvar::haveadmod
logical, dimension(:), allocatable	mod_fourdvar::havenlmod
logical, dimension(:), allocatable	mod_fourdvar::havetlmod
logical, dimension(:), allocatable	mod_fourdvar::haveobsmeta
real(r8), dimension(:), allocatable	mod_fourdvar::bgerr
real(r8), dimension(:), allocatable	mod_fourdvar::nlincrement
real(r8), dimension(:), allocatable	mod_fourdvar::innovation
real(r8), dimension(:), allocatable	mod_fourdvar::residual
real(r8), dimension(:), allocatable	mod_fourdvar::bgthresh
real(r8), dimension(:), allocatable	mod_fourdvar::jact_s
integer, dimension(:,:), allocatable	mod_fourdvar::nhsteps
integer, dimension(:,:), allocatable	mod_fourdvar::nvsteps
integer, dimension(:,:), allocatable	mod_fourdvar::nhstepsb
integer, dimension(:,:), allocatable	mod_fourdvar::nvstepsb
real(r8), dimension(:,:), allocatable	mod_fourdvar::dtsizeh
real(r8), dimension(:,:), allocatable	mod_fourdvar::dtsizev
real(r8), dimension(:,:), allocatable	mod_fourdvar::dtsizehb
real(r8), dimension(:,:), allocatable	mod_fourdvar::dtsizevb
real(r8), dimension(:), allocatable	mod_fourdvar::khmin
real(r8), dimension(:), allocatable	mod_fourdvar::khmax
real(r8), dimension(:), allocatable	mod_fourdvar::kvmin
real(r8), dimension(:), allocatable	mod_fourdvar::kvmax
real(dp), dimension(:), allocatable	mod_fourdvar::ad_cg_beta
real(dp), dimension(:), allocatable	mod_fourdvar::tl_cg_beta
real(dp), dimension(:,:), allocatable	mod_fourdvar::cg_alpha
real(dp), dimension(:,:), allocatable	mod_fourdvar::cg_beta
real(dp), dimension(:,:), allocatable	mod_fourdvar::cg_tau
real(dp)	mod_fourdvar::ritzmaxerr
real(dp), dimension(:), allocatable	mod_fourdvar::ritz
real(dp), dimension(:,:,:), allocatable	mod_fourdvar::cg_zv
real(dp), dimension(:), allocatable	mod_fourdvar::ad_cg_delta
real(dp), dimension(:), allocatable	mod_fourdvar::ad_cg_qg
real(dp), dimension(:), allocatable	mod_fourdvar::ad_cg_gnorm
real(dp), dimension(:), allocatable	mod_fourdvar::tl_cg_delta
real(dp), dimension(:), allocatable	mod_fourdvar::tl_cg_qg
real(dp), dimension(:), allocatable	mod_fourdvar::tl_cg_gnorm_v
real(dp), dimension(:), allocatable	mod_fourdvar::ad_cg_gnorm_v
real(dp), dimension(:,:), allocatable	mod_fourdvar::cg_delta
real(dp), dimension(:,:), allocatable	mod_fourdvar::cg_gamma
real(dp), dimension(:), allocatable	mod_fourdvar::cg_gnorm
real(dp), dimension(:), allocatable	mod_fourdvar::cg_gnorm_v
real(dp), dimension(:), allocatable	mod_fourdvar::cg_gnorm_y
real(dp), dimension(:,:), allocatable	mod_fourdvar::cg_greduc
real(dp), dimension(:,:), allocatable	mod_fourdvar::cg_qg
real(dp), dimension(:,:), allocatable	mod_fourdvar::cg_tmatrix
real(dp), dimension(:,:), allocatable	mod_fourdvar::cg_zu
real(dp), dimension(:,:), allocatable	mod_fourdvar::cg_ritz
real(dp), dimension(:,:), allocatable	mod_fourdvar::cg_ritzerr
logical, dimension(:), allocatable	mod_fourdvar::wrtzetaref
real(r8), dimension(:,:), allocatable	mod_fourdvar::ae_delta
real(r8), dimension(:,:), allocatable	mod_fourdvar::ae_beta
real(r8), dimension(:,:), allocatable	mod_fourdvar::ae_zv
real(r8), dimension(:), allocatable	mod_fourdvar::ae_trace
real(r8), dimension(:), allocatable	mod_fourdvar::ae_gnorm
real(r8), dimension(:,:), allocatable	mod_fourdvar::ae_tmatrix
real(r8), dimension(:,:), allocatable	mod_fourdvar::ae_zu
real(r8), dimension(:,:), allocatable	mod_fourdvar::ae_ritz
real(r8), dimension(:,:), allocatable	mod_fourdvar::ae_ritzerr
real(r8), dimension(:,:), allocatable	mod_fourdvar::zlanczos_coef
real(r8), dimension(:,:), allocatable	mod_fourdvar::zlanczos_inv
real(r8), dimension(:,:), allocatable	mod_fourdvar::zlanczos_err
real(r8), dimension(:), allocatable	mod_fourdvar::zlanczos_diag
real(r8), dimension(:), allocatable	mod_fourdvar::zlanczos_offdiag
real(r8), dimension(:,:), allocatable	mod_fourdvar::gsmatrix
real(r8), dimension(:,:), allocatable	mod_fourdvar::gsmatinv
logical	mod_fourdvar::lhessianev
logical	mod_fourdvar::lhotstart
logical	mod_fourdvar::lprecond
logical	mod_fourdvar::lritz
logical	mod_fourdvar::laugweak =.FALSE.
integer	mod_fourdvar::nritzev
integer	mod_fourdvar::nconvritz = 0
real(r8)	mod_fourdvar::cg_gammam1 = 0.0_r8
real(r8)	mod_fourdvar::cg_sigmam1 = 0.0_r8
real(r8)	mod_fourdvar::cg_rnorm = 0.0_r8
real(r8)	mod_fourdvar::graderr
real(r8)	mod_fourdvar::hevecerr
real(r8)	mod_fourdvar::dotproduct
real(r8)	mod_fourdvar::addotproduct
integer	mod_fourdvar::ig1count
integer	mod_fourdvar::ig2count
real(r8), dimension(1000)	mod_fourdvar::g1
real(r8), dimension(1000)	mod_fourdvar::g2
logical, dimension(:), allocatable	mod_fourdvar::wrtforce
logical, dimension(:), allocatable	mod_fourdvar::lweakrelax
logical, dimension(:), allocatable	mod_fourdvar::lsenfct
logical, dimension(:), allocatable	mod_fourdvar::lsen4dvar
logical, dimension(:), allocatable	mod_fourdvar::lobspace
integer, dimension(:), allocatable	mod_fourdvar::ntimes_ana
integer, dimension(:), allocatable	mod_fourdvar::ntimes_fct
real(r8), dimension(:), allocatable	mod_fourdvar::forcetime

Macro Definition Documentation

MyMobs

#define MyMobs   Mobs+1