Binary file gsi.exe matches
Binary file libgsi.a matches
outgesoz:update_guess.f90:              if(is_oz>0) ges_oz(i,j,k,it)  = ges_oz(i,j,k,it)   + p_oz(i,j,k)
ozinfo.f90:!   def nusis_oz       - sensor/intrument/satellite id (14=NOAA-14, 15=NOAA-15, 16=NOAA-16, etc)
ozinfo.f90:  public :: jpch_oz,diag_ozone,nusis_oz,iuse_oz,b_oz,pg_oz,gross_oz
ozinfo.f90:  character(len=20),allocatable,dimension(:):: nusis_oz
ozinfo.f90:    allocate(nusis_oz(jpch_oz),nulev(jpch_oz),iuse_oz(jpch_oz), &
ozinfo.f90:       read(crecord,*) nusis_oz(j),&
ozinfo.f90:       if (mype==mype_oz) write(iout_oz,130) j,nusis_oz(j),nulev(j),&
Binary file ozinfo.o matches
printozlay:  use ozinfo, only : jpch_oz,error_oz,pob_oz,gross_oz,nusis_oz
printozlay:     if (isis == nusis_oz(j)) then
printreadmls:        if( (.not. first) .and. index(nusis_oz(k),sis)/=0 ) then
printreadmls:        if(first .and. index(nusis_oz(k),sis)/=0 ) then
printsetupozlay:  use ozinfo, only : jpch_oz,error_oz,pob_oz,gross_oz,nusis_oz
printsetupozlay:     if (isis == nusis_oz(j)) then
read_no2.f90:  use ozinfo, only: jpch_oz,nusis_oz,iuse_oz
read_obs.F90:    use ozinfo, only: nusis_oz,iuse_oz,jpch_oz,diag_ozone
read_obs.F90:             if(trim(dsis(i)) == trim(nusis_oz(j)) .and. iuse_oz(j) > minuse)nuse=.true.
Binary file read_obs.o matches
read_ozone.f90:  use ozinfo, only: jpch_oz,nusis_oz,iuse_oz
read_ozone.f90:        if(index(nusis_oz(i),'o3lev_')/=0) then  ! mls_aura ASCII data
read_ozone.f90:        if( (.not. first) .and. index(nusis_oz(k),sis)/=0 ) then
read_ozone.f90:        if(first .and. index(nusis_oz(k),sis)/=0 ) then
Binary file read_ozone.o matches
setupno2lay.f90:  use ozinfo, only : jpch_oz,error_oz,pob_oz,gross_oz,nusis_oz
setupno2lay.f90:     if (isis == nusis_oz(j)) then
setupoz.f90:  use ozinfo, only : jpch_oz,error_oz,pob_oz,gross_oz,nusis_oz
setupoz.f90:     if (isis == nusis_oz(j)) then
setupoz.f90:  use ozinfo, only : jpch_oz,nusis_oz,iuse_oz
setupoz.f90:     if (isis == nusis_oz(j)) then
Binary file setupoz.o matches
statsoz.f90:  use ozinfo, only: error_oz,nusis_oz,nulev,iuse_oz,jpch_oz
statsoz.f90:           if (iasim > 0 .and. nusis_oz(i) == dsis(ii) ) then
statsoz.f90:        write(iout_oz,1102) i,nulev(i),nusis_oz(i),iasim,icerr,svar,&
Binary file statsoz.o matches
strong_baldiag_inc.f90:  integer(i_kind) is_u,is_v,is_t,is_q,is_qi,is_ql,is_cw,is_oz,is_p,is_p3d
strong_baldiag_inc.f90:  call gsi_bundlegetpointer(sval(1),'oz', is_oz, istatus);ier=istatus+ier
update_guess.f90:  integer(i_kind) is_u,is_v,is_t,is_q,is_oz,is_cw,is_ps,is_sst
update_guess.f90:  call gsi_bundlegetpointer(sval(1),'oz', is_oz, istatus)
update_guess.f90:        if(is_oz>0)then
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(is_oz>0) then
