7#include "errormacros.h"
11float absOffset[NBLOCK];
12float relOffset[NBLOCK-1];
19#define FUNC_NAMEm "misr_init"
24 const float relOff[NOFFSET],
26 const double ulc_coord[],
27 const double lrc_coord[]
33 if (nblock < 1 || nblock > NBLOCK) {
34 snprintf(msg,STRLEN,
"nblock is out of range (1 < %d < %d)", nblock, NBLOCK);
39 for (i = 1; i < NBLOCK; i++) {
40 absOffset[i] = absOffset[i-1] + relOff[i-1];
41 relOffset[i-1] = relOff[i-1];
45 ulc[0] = ulc_coord[0];
46 ulc[1] = lrc_coord[1];
47 lrc[0] = lrc_coord[0];
48 lrc[1] = ulc_coord[1];
54 sx = (lrc[0] - ulc[0]) / nl;
55 sy = (lrc[1] - ulc[1]) / ns;
57 xc = ulc[0] + sx / 2.0;
58 yc = ulc[1] + sy / 2.0;