...
| Code Block | ||||||
|---|---|---|---|---|---|---|
| ||||||
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) |
| Code Block | ||||||
|---|---|---|---|---|---|---|
| ||||||
!** Used to compute averages (always in the same order)
call KEYSORT(irc, POBS, KLEN,key=jpraw_refcoord,transposed=.TRUE.) |