79 |
real*8 lagran |
real*8 lagran |
80 |
real*4 arrayin(-1:nx_in+2 , -1:ny_in+2) |
real*4 arrayin(-1:nx_in+2 , -1:ny_in+2) |
81 |
real*8 x_in (-1:nx_in+2), y_in(-1:ny_in+2) |
real*8 x_in (-1:nx_in+2), y_in(-1:ny_in+2) |
82 |
real*8 ninety PARAMETER ( ninety = 90. ) |
real*8 ninety |
83 |
|
PARAMETER ( ninety = 90. ) |
84 |
integer i, j, k, l, js, bi, bj, sp, interp_unit |
integer i, j, k, l, js, bi, bj, sp, interp_unit |
85 |
_RS xG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
_RS xG(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
86 |
_RS threeSixtyRS, NorthValue |
_RS threeSixtyRS, NorthValue |