id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc
790	Change allocation of FOURDVAR structure	arango		"* For the convenience of allocating and deallocating, the arrays in the structure '''FOURDVAR(ng)''' are now declared as '''allocatable''' instead of a '''pointer''' in '''mod_fourdvar.F'''.  So now we have:
 {{{
!
!  Define module structure.
!
        TYPE T_FOURDVAR

          integer , allocatable :: NobsSurvey(:)
          integer , allocatable :: ObsCount(:)
          integer , allocatable :: ObsReject(:)
          ...
        END TYPE T_FOURDVAR

        TYPE (T_FOURDVAR), allocatable :: FOURDVAR(:)
}}}
 The change is made to facilitate new 4D-Var algorithms currently under development.

* Also, corrected a minor bug in '''read_asspar.F''' when processing keywords '''Iprovenance''' and '''P_bgqc''':
 {{{
#  ifdef BGQC
            ...

            CASE ('Iprovenance')
              Mval=MAXVAL(Nprovenance)
              Npts=load_i(Nval, Rval, Mval, Ngrids, Iprovenance)
            CASE ('P_bgqc')
              Mval=MAXVAL(Nprovenance)
              Npts=load_r(Nval, Rval, Mval, Ngrids, P_bgqc)
#  endif
}}}
 because it has the wrong number of arguments to '''load_i''' and '''load_r''' since both '''Iprovenance''' and '''P_bgqc''' are 2D arrays."	upgrade	closed	major	Release ROMS/TOMS 3.7	Adjoint	3.7	Done