You are viewing an old version of this page. View the current version.

Compare with Current View Page History

« Previous Version 4 Next »

scan_cma_odb.F90
            izlat = int( zlat * 100.0_JPRB)
            izlon = int( zlon * 100.0_JPRB)
            i_refcoord = sign(1,izlat) * (abs(izlat) * 100000 + izlon)
            OBS_RAWTABLE(jpraw_refcoord, jtotal) =&
              &sign(1,i_refcoord) * (abs(i_refcoord) +&
              &1 * 0.01_JPRB)
fg2obs.F90
!**   Used to compute averages (always in the same order)

call KEYSORT(irc, POBS, KLEN,key=jpraw_refcoord,transposed=.TRUE.)
  • No labels