C **** coefm.h.1 C **** /COEFM/ COEFFICIENTS AND RHS TERMS FOR PDE ON GEOMAGNETIC coefm.h.2 C **** GRID coefm.h.3 C **** coefm.h.4 COMMON/COEFM/ZIGM11(IMAXMP,JMAXM),ZIGMC(IMAXMP,JMAXM), coefm.h.5 1 ZIGM2(IMAXMP,JMAXM),ZIGM22(IMAXMP,JMAXM), coefm.h.6 2 RIM(IMAXMP,JMAXM,2),RHS(IMAXMP,JMAXMH) coefm.h.7 C **** coefm.h.8 C **** WHERE: coefm.h.9 C **** IMAXM=80, JMAXM=97, IMAXMP=IMAXM+1 coefm.h.10 C **** ZIGM11 = SIGMA11*COS(THETA0) coefm.h.11 C **** ZIGMC = SIGMAC coefm.h.12 C **** ZIGM2 = SIGMA2 coefm.h.13 C **** ZIGM22 = SIGMA22/COS(THETA0) coefm.h.14 C **** RIM(1) = ID(1) coefm.h.15 C **** RIM(2) = ID(2)/COS(THEAT0) coefm.h.16 C **** RHS = RIGHT HAND SIDE coefm.h.17 C **** coefm.h.18 C coefm.h.19