71 |
C_EqCh: start |
C_EqCh: start |
72 |
CHARACTER*(MAX_LEN_MBUF) suff |
CHARACTER*(MAX_LEN_MBUF) suff |
73 |
_RL xBump, yBump, dxBump, dyBump |
_RL xBump, yBump, dxBump, dyBump |
74 |
xBump = thetaMin + delX(1)*64. |
xBump = xgOrigin + delX(1)*64. |
75 |
yBump = phiMin + delY(1)*11.5 |
yBump = ygOrigin + delY(1)*11.5 |
76 |
dxBump= delX(1)*12. |
dxBump= delX(1)*12. |
77 |
dyBump= delY(1)*6. |
dyBump= delY(1)*6. |
78 |
C_EqCh: Fix solar insolation with Sun directly overhead on Equator |
C_EqCh: Fix solar insolation with Sun directly overhead on Equator |