add_gfs_stratosphere.f90:  use guess_grids, only: ges_tv,ges_q,ges_u,ges_v,ges_tsen,ges_oz
add_gfs_stratosphere.f90:  use gfs_stratosphere, only: ges_tv_r,ges_q_r,ges_u_r,ges_v_r,ges_tsen_r,ges_oz_r
add_gfs_stratosphere.f90:  use gfs_stratosphere, only: ges_tv_r_g,ges_q_r_g,ges_u_r_g,ges_v_r_g,ges_tsen_r_g,ges_oz_r_g
add_gfs_stratosphere.f90:      allocate(ges_oz_r_g(lat2,lon2,nsig,nfldsig))
add_gfs_stratosphere.f90:      allocate(ges_oz_r  (lat2,lon2,nsig_save,nfldsig))
add_gfs_stratosphere.f90:              ges_oz_r(i,j,k,it)=ges_oz(i,j,k,it)
add_gfs_stratosphere.f90:              ges_oz_r(i,j,k,it)=ysplou_r(k)         
add_gfs_stratosphere.f90:           yspliu_r(k)=ges_oz(i,j,k,it) 
add_gfs_stratosphere.f90:           ges_oz(i,j,k,it)=ozt(i,j,k)    
add_gfs_stratosphere.f90:           ges_oz_r_g(i,j,k,it)=ges_oz(i,j,k,it)    
add_gfs_stratosphere.f90:  use guess_grids, only: ges_tv,ges_q,ges_u,ges_v,ges_tsen,ges_oz
add_gfs_stratosphere.f90:  use gfs_stratosphere, only: ges_tv_r,ges_q_r,ges_u_r,ges_v_r,ges_tsen_r,ges_oz_r
add_gfs_stratosphere.f90:  use gfs_stratosphere, only: ges_tv_r_g,ges_q_r_g,ges_u_r_g,ges_v_r_g,ges_tsen_r_g,ges_oz_r_g
add_gfs_stratosphere.f90:           yspli(k)=ges_oz(i,j,k,ntguessig)-ges_oz_r_g(i,j,k,ntguessig)
add_gfs_stratosphere.f90:           ges_oz_r_g(i,j,k,ntguessig)=ges_oz(i,j,k,ntguessig) !  keep original for after write analysis
add_gfs_stratosphere.f90:           ges_oz(i,j,k,ntguessig)=ysplo(k)+ges_oz_r(i,j,k,ntguessig)
add_gfs_stratosphere.f90:  use guess_grids, only: ges_tv,ges_q,ges_u,ges_v,ges_tsen,ges_oz
add_gfs_stratosphere.f90:  use gfs_stratosphere, only: ges_tv_r_g,ges_q_r_g,ges_u_r_g,ges_v_r_g,ges_tsen_r_g,ges_oz_r_g
add_gfs_stratosphere.f90:           ges_oz(i,j,k,ntguessig)=ges_oz_r_g(i,j,k,ntguessig)
Binary file add_gfs_stratosphere.o matches
calctends_ad.f90:      ges_q,ges_qlon,ges_qlat,ges_oz,ges_ozlon,ges_ozlat,ges_cwmr_lon,&
calctends_ad.f90:                      oz_t(i,j,k)*(ges_oz  (i,j,k,it)-ges_oz  (i,j,k+1,it)) - &
calctends_ad.f90:                   ((ges_oz  (i,j,k,it)-ges_oz  (i,j,k+1,it))*oz_t(i,j,k)) + &
calctends_ad.f90:                     oz_t(i,j,k)*(ges_oz  (i,j,k-1,it)-ges_oz  (i,j,k,it)) - &
calctends_ad.f90:                   ((ges_oz  (i,j,k-1,it)-ges_oz  (i,j,k,it))*oz_t(i,j,k)) + &
calctends_ad.f90:              oz_t(i,j,k)*ges_ozlon(i,j,k) - cw_t(i,j,k)*ges_cwmr_lon(i,j,k)
calctends_ad.f90:              oz_t(i,j,k)*ges_ozlat(i,j,k) - cw_t(i,j,k)*ges_cwmr_lat(i,j,k)
Binary file calctends_ad.o matches
calctends_tl.f90:      ges_q,ges_qlon,ges_qlat,ges_oz,ges_ozlon,ges_ozlat,ges_cwmr_lon,&
calctends_tl.f90:           oz_t(i,j,k) = -u(i,j,k)*ges_ozlon   (i,j,k) - ges_u(i,j,k,it)*oz_x(i,j,k) - &
calctends_tl.f90:              v(i,j,k)*ges_ozlat   (i,j,k) - ges_v(i,j,k,it)*oz_y(i,j,k)
calctends_tl.f90:              oz_t(i,j,k) = oz_t(i,j,k) - tmp*(ges_oz  (i,j,k-1,it)-ges_oz  (i,j,k,it)) - &
calctends_tl.f90:                 tmp2*( (oz(i,j,k-1)-oz(i,j,k)) - (ges_oz  (i,j,k-1,it)-ges_oz  (i,j,k,it))* &
calctends_tl.f90:              oz_t(i,j,k) = oz_t(i,j,k) - tmp*(ges_oz  (i,j,k,it)-ges_oz  (i,j,k+1,it)) - &
calctends_tl.f90:                 tmp2*( (oz(i,j,k)-oz(i,j,k+1)) - (ges_oz  (i,j,k,it)-ges_oz  (i,j,k+1,it))* &
Binary file calctends_tl.o matches
compute_derived.f90:       ges_tv,ges_q,ges_oz,ges_tsen,sfct,&
compute_derived.f90:       ges_u_lon,ges_v_lon,ges_tvlon,ges_ps_lon,ges_qlon,ges_ozlon,ges_cwmr_lon, &
compute_derived.f90:       ges_u_lat,ges_v_lat,ges_tvlat,ges_ps_lat,ges_qlat,ges_ozlat,ges_cwmr_lat
compute_derived.f90:       ges_oz_ten,ges_cwmr_ten
compute_derived.f90:             ges_oz(1,1,1,it),sfct(1,1,it),ges_cwmr_it, &
compute_derived.f90:             ges_ozlon,sfct_lon,ges_cwmr_lon, &
compute_derived.f90:             ges_ozlat,sfct_lat,ges_cwmr_lat, &
compute_derived.f90:              ges_q(1,1,1,it),ges_oz(1,1,1,it),ges_cwmr_it,&
compute_derived.f90:              ges_ps_lat(1,1,it),ges_qlon,ges_qlat,ges_ozlon,&
compute_derived.f90:              ges_ozlat,ges_cwmr_lon,ges_cwmr_lat,&
compute_derived.f90:              ges_oz_ten,ges_cwmr_ten,ges_3dp)
Binary file compute_derived.o matches
crtm_interface.f90:  use guess_grids, only: ges_u,ges_v,ges_tsen,ges_q,ges_oz,&
crtm_interface.f90:     poz(k)=((ges_oz(ix ,iy ,k,itsig )*w00+ &
crtm_interface.f90:              ges_oz(ixp,iy ,k,itsig )*w10+ &
crtm_interface.f90:              ges_oz(ix ,iyp,k,itsig )*w01+ &
crtm_interface.f90:              ges_oz(ixp,iyp,k,itsig )*w11)*dtsig + &
crtm_interface.f90:             (ges_oz(ix ,iy ,k,itsigp)*w00+ &
crtm_interface.f90:              ges_oz(ixp,iy ,k,itsigp)*w10+ &
crtm_interface.f90:              ges_oz(ix ,iyp,k,itsigp)*w01+ &
crtm_interface.f90:              ges_oz(ixp,iyp,k,itsigp)*w11)*dtsigp)*constoz
Binary file crtm_interface.o matches
gfs_stratosphere.f90:   public :: ges_tv_r,ges_q_r,ges_u_r,ges_v_r,ges_tsen_r,ges_oz_r
gfs_stratosphere.f90:   public :: ges_tv_r_g,ges_q_r_g,ges_u_r_g,ges_v_r_g,ges_tsen_r_g,ges_oz_r_g
gfs_stratosphere.f90:                                                 ges_tsen_r_g,ges_oz_r_g,ges_q_r_g
gfs_stratosphere.f90:                                                 ges_tsen_r  ,ges_oz_r,ges_q_r
gfs_stratosphere.f90:      deallocate(ges_tv_r_g,ges_q_r_g,ges_u_r_g,ges_v_r_g,ges_tsen_r_g,ges_oz_r_g)
gfs_stratosphere.f90:      deallocate(ges_tv_r  ,ges_q_r  ,ges_u_r  ,ges_v_r  ,ges_tsen_r  ,ges_oz_r  )
Binary file gfs_stratosphere.o matches
Binary file gsi.exe matches
guess_grids.F90:  public :: ntguessig,ges_ps,ges_tv,ges_prsi,ges_oz,ges_psfcavg,ges_prslavg
guess_grids.F90:  public :: ges_ozlat,ges_ozlon,ges_qlat,ges_teta,ges_cwmr_lat
guess_grids.F90:  public :: ges_oz_ten,ges_q_ten,fact_tv,tropprs,sfct,ges_u_ten,ges_ps_lat
guess_grids.F90:  real(r_kind),allocatable,dimension(:,:,:,:):: ges_oz    ! ozone mixing ratio
guess_grids.F90:  real(r_kind),allocatable,dimension(:,:,:):: ges_ozlat ! ozone mixing ratio/lat
guess_grids.F90:  real(r_kind),allocatable,dimension(:,:,:):: ges_ozlon ! ozone mixing ratio/lon
guess_grids.F90:  real(r_kind),allocatable,dimension(:,:,:):: ges_oz_ten   ! ozone tendency
guess_grids.F90:            ges_oz(lat2,lon2,nsig,nfldsig),ges_tv(lat2,lon2,nsig,nfldsig),&
guess_grids.F90:                   ges_oz(i,j,k,n)=zero
guess_grids.F90:                ges_q_ten(lat2,lon2,nsig),ges_oz_ten(lat2,lon2,nsig),&
guess_grids.F90:                ges_oz_ten(i,j,k)=zero
guess_grids.F90:            ges_ozlat(lat2,lon2,nsig),ges_ozlon(lat2,lon2,nsig),&
guess_grids.F90:                ges_ozlat(i,j,k)=zero
guess_grids.F90:                ges_ozlon(i,j,k)=zero
guess_grids.F90:         ges_oz,ges_tv,&
guess_grids.F90:            ges_ozlat,ges_ozlon,&
guess_grids.F90:            ges_oz_ten,stat=istatus)
Binary file guess_grids.o matches
inc2guess.f90:       ges_oz,ges_u,ges_v,nfldsig,hrdifsig,&
inc2guess.f90:     call copyfld_ (ges_oz, 'oz')
Binary file inc2guess.o matches
Binary file libgsi.a matches
m_berror_stats.f90:      use guess_grids,only: ges_oz   ! ozone fields
m_berror_stats.f90:           work_oz(k,mm1) = work_oz(k,mm1) + ges_oz(i,j,k,ntguessig)* &
Binary file m_berror_stats.o matches
m_gsiBiases.f90:      ges_tv,ges_q,ges_oz,sfct,&
m_gsiBiases.f90:              ges_oz(i,j,k,it)  = max(tiny_r_kind,ges_oz(i,j,k,it)   + b_oz(i,j,k))
Binary file m_gsiBiases.o matches
ncepgfs_io.f90:         ges_u,ges_v,ges_tv,ges_q,ges_oz,&
ncepgfs_io.f90:               ges_cwmr_it,ges_oz(1,1,1,it),iret)
ncepgfs_io.f90:               ges_cwmr_it,ges_oz(1,1,1,it),iret)
ncepgfs_io.f90:         ges_tv,ges_q,ges_oz,ges_prsl,&
ncepgfs_io.f90:            ges_oz(1,1,1,itoutsig),ges_cwmr_it,&
ncepgfs_io.f90:            ges_oz(1,1,1,itoutsig),ges_cwmr_it,&
Binary file ncepgfs_io.o matches
ncepnems_io.f90:         ges_u,ges_v,ges_tv,ges_q,ges_oz,&
ncepnems_io.f90:            ges_cwmr_it,ges_oz(1,1,1,it))
ncepnems_io.f90:         ges_tv,ges_q,ges_oz,ges_prsl,&
ncepnems_io.f90:         ges_oz(1,1,1,itoutsig),ges_cwmr_it,&
Binary file ncepnems_io.o matches
prewgt_reg.f90:  use guess_grids, only: ges_prslavg,ges_psfcavg,ges_oz
prewgt_reg.f90:              ozmz(ix,k)=ozmz(ix,k)+ges_oz(i,j,k,1)*ges_oz(i,j,k,1)
Binary file prewgt_reg.o matches
printozlay:  use guess_grids, only : nfldsig,ges_prsi,ntguessig,ges_oz,hrdifsig
printozlay:          call intrp3ozdp1(ges_oz,ozges,dlat,dlon,dtime,&
printozlay:          call intrp3oz1(ges_oz,ozges,dlat,dlon,ozp,dtime,&
printsetupozlay:  use guess_grids, only : nfldsig,ges_prsi,ntguessig,ges_oz,hrdifsig
printsetupozlay:        call intrp3oz1(ges_oz,ozges,dlat,dlon,ozp,dtime,&
prt_guess.f90:       ges_tsen,ges_oz,ges_u,ges_v,ges_prsl,sfct
prt_guess.f90:  zloc(6)          = sum   (ges_oz  (2:lat1+1,2:lon1+1,1:nsig,ntsig))
prt_guess.f90:  zloc(nvars+6)    = minval(ges_oz  (2:lat1+1,2:lon1+1,1:nsig,ntsig))
prt_guess.f90:  zloc(2*nvars+6)  = maxval(ges_oz  (2:lat1+1,2:lon1+1,1:nsig,ntsig))
Binary file prt_guess.o matches
raqms_routines.F90:  use guess_grids, only : ges_z,ges_ps,ges_u,ges_v,ges_tv,ges_q,ges_oz,nfldsig,ifilesig,ntguessig
raqms_routines.F90:    ges_v(1,1,1,it),ges_tv(1,1,1,it),ges_q(1,1,1,it),ges_oz(1,1,1,it),it,iret)
raqms_routines.F90:use guess_grids, only : ges_oz,nfldsig
raqms_routines.F90:! need to gather ges_oz and difference with raqmsoz
raqms_routines.F90:!  write(100+mype,*)'ges_oz ajl',maxval(ges_oz),minval(ges_oz)
raqms_routines.F90:!  if(maxval(ges_oz(:,:,:,nfldsig))>0.0)write(6,*)mype,'maxges_oz',maxval(ges_oz)
raqms_routines.F90:  call strip(ges_oz(1,1,1,nfldsig),ozsm,nsig)
raqms_routines.F90.beforeomiint:  use guess_grids, only : ges_z,ges_ps,ges_u,ges_v,ges_tv,ges_q,ges_oz,nfldsig,ifilesig,ntguessig
raqms_routines.F90.beforeomiint:    ges_v(1,1,1,it),ges_tv(1,1,1,it),ges_q(1,1,1,it),ges_oz(1,1,1,it),it,iret)
raqms_routines.F90.beforeomiint:use guess_grids, only : ges_oz,nfldsig
raqms_routines.F90.beforeomiint:! need to gather ges_oz and difference with raqmsoz
raqms_routines.F90.beforeomiint:!  write(100+mype,*)'ges_oz ajl',maxval(ges_oz),minval(ges_oz)
raqms_routines.F90.beforeomiint:!  if(maxval(ges_oz(:,:,:,nfldsig))>0.0)write(6,*)mype,'maxges_oz',maxval(ges_oz)
raqms_routines.F90.beforeomiint:  call strip(ges_oz(1,1,1,nfldsig),ozsm,nsig)
raqms_routines.F90.omiajust:  use guess_grids, only : ges_z,ges_ps,ges_u,ges_v,ges_tv,ges_q,ges_oz,nfldsig,ifilesig,ntguessig
raqms_routines.F90.omiajust:    ges_v(1,1,1,it),ges_tv(1,1,1,it),ges_q(1,1,1,it),ges_oz(1,1,1,it),it,iret)
raqms_routines.F90.omiajust:use guess_grids, only : ges_oz,nfldsig
raqms_routines.F90.omiajust:! need to gather ges_oz and difference with raqmsoz
raqms_routines.F90.omiajust:!  write(100+mype,*)'ges_oz ajl',maxval(ges_oz),minval(ges_oz)
raqms_routines.F90.omiajust:!  if(maxval(ges_oz(:,:,:,nfldsig))>0.0)write(6,*)mype,'maxges_oz',maxval(ges_oz)
raqms_routines.F90.omiajust:  call strip(ges_oz(1,1,1,nfldsig),ozsm,nsig)
Binary file raqms_routines.o matches
read_gfs_ozone_for_regional.f90:!   2010-04-15  wu - set ges_oz to a small number if the gfs input negative
read_gfs_ozone_for_regional.f90:  use guess_grids, only: ges_prsl,ges_oz,ntguessig
read_gfs_ozone_for_regional.f90:! finally, interpolate/extrapolate in vertical using yoshi's spline code.  deposit result in ges_oz.
read_gfs_ozone_for_regional.f90:           ges_oz(i,j,k,it)=ysplo(k)  
Binary file read_gfs_ozone_for_regional.o matches
read_wrf_mass_guess.F90:!   2005-04-01  treadon - add initialization of ges_oz, prsi_oz; comestic format changes
read_wrf_mass_guess.F90:!   2005-04-01  treadon - add initialization of ges_oz, prsi_oz; comestic format changes
read_wrf_nmm_guess.F90:!   2005-04-01  treadon - add initialization of ges_oz, prsi_oz; comestic 
read_wrf_nmm_guess.F90:  use guess_grids, only: ges_z,ges_ps,ges_pint,ges_pd,ges_tv,ges_q,ges_u,ges_v,ges_oz, & 
read_wrf_nmm_guess.F90:!   2005-04-01  treadon - add initialization of ges_oz, prsi_oz; comestic format changes
read_wrf_nmm_guess.F90:  use guess_grids, only: ges_z,ges_ps,ges_pint,ges_pd,ges_tv,ges_q,ges_u,ges_v,ges_oz, &
read_wrf_nmm_guess.F90:                 ges_oz(j,i,k,it) = zero               ! set to zero for now 
read_wrf_nmm_guess.F90:                 ges_oz(j,i,k,it)   = zero 
read_wrf_nmm_guess.F90:       isli,nfldsig,ges_tsen,ges_oz,ges_prsl,efr_ql,efr_qi,efr_qr,efr_qs,efr_qg,efr_qh
read_wrf_nmm_guess.F90:        ges_oz(:,:,k,it)=zero
read_wrf_nmm_guess.F90:              ges_oz(:,:,k,it)=zero
read_wrf_nmm_guess.F90:              call gsi_nemsio_read('o3mr' ,'mid layer','H',kr,ges_oz(:,:,k,it),mype,mype_input,good_o3mr)
read_wrf_nmm_guess.F90:                 ges_oz(:,:,k,it)=zero
Binary file read_wrf_nmm_guess.o matches
setupno2lay.f90:  use guess_grids, only : nfldsig,ges_prsi,ntguessig,ges_oz,hrdifsig
setupno2lay.f90:          call intrp3ozdp1(ges_oz,ozges,dlat,dlon,dtime,&
setupno2lay.f90:          call intrp3oz1(ges_oz,ozges,dlat,dlon,ozp,dtime,&
setupoz.f90:  use guess_grids, only : nfldsig,ges_prsi,ntguessig,ges_oz,hrdifsig
setupoz.f90:          call intrp3ozdp1(ges_oz,ozges,dlat,dlon,dtime,&
setupoz.f90:          call intrp3oz1(ges_oz,ozges,dlat,dlon,ozp,dtime,&
setupoz.f90:  use guess_grids, only : nfldsig,ges_lnprsl,ges_ps,ges_oz,hrdifsig
setupoz.f90:     call tintrp31(ges_oz,o3ges,dlat,dlon,dpres,dtime, &
Binary file setupoz.o matches
tpause.f90:  use guess_grids, only: ges_ps,tropprs,ges_oz,ges_vor,geop_hgtl,&
tpause.f90:                 if (ges_oz(i,j,k,ntguessig)>r3em7 .and. ifound_oz==0) then
Binary file tpause.o matches
update_geswtend.f90:       ges_tsen,ges_oz,ges_u,ges_v,&
update_geswtend.f90:              ges_oz(i,j,k,it)   = ges_oz(i,j,k,it) + xozt(i,j,k)*tcon
Binary file update_geswtend.o matches
update_guess.f90:       ges_tsen,ges_oz,ges_u,ges_v,ges_gust,ges_vis,ges_pblh,&
update_guess.f90:              if(is_oz>0) ges_oz(i,j,k,it)  = ges_oz(i,j,k,it)   + p_oz(i,j,k)
update_guess.f90:                    if(ges_oz(i,j,k,it)<zero) ges_oz(i,j,k,it) = 1.e-10_r_kind
Binary file update_guess.o matches
wrwrfnmma.F90:        ntguessfc,ntguessig,ges_tsen,dsfct,isli,geop_hgtl,ges_prsl,ges_oz
wrwrfnmma.F90:                 work_sub(j,i)=ges_oz(j,i,k,it)-work_sub(j,i)
Binary file wrwrfnmma.o matches
