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)
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)