Project

General

Profile

Download (395 Bytes) Statistics
| Branch: | Revision:
1
&args gridname radius geographic
2

    
3
&describe %gridname%
4

    
5
&if %geographic% &then &sv xyfactor [calc 110000 * [cos [calc ( %grd$ymin% + %grd$ymax% ) / 2 / 57.2958] ]  ]
6
&else &sv xyfactor 1
7

    
8

    
9
&sv radiuscells = [calc %radius% / ( %grd$dx% * %xyfactor% )]
10

    
11
&type radius = %radiuscells% cells
12

    
13
&sv .maxcells 50000000
14
/* &sv .maxcells 500000 /* Testing on Kyeamba 
15
&sv .border [calc %radiuscells% + 1]
(8-8/12)