Parent Directory | Revision Log | Revision Graph | Patch
revision 1.42 by molod, Thu Oct 7 03:20:17 2004 UTC | revision 1.43 by molod, Thu Oct 7 18:24:24 2004 UTC | |
---|---|---|
# | Line 221 C*************************************** | Line 221 C*************************************** |
221 | enddo | enddo |
222 | enddo | enddo |
223 | ||
224 | call astro ( 20040315,nhms, xlats,xlons, im2*jm2, cosz,ra ) | call astro ( nymd,nhms, xlats,xlons, im2*jm2, cosz,ra ) |
225 | do j=jm1,jm2 | do j=jm1,jm2 |
226 | do i=im1,im2 | do i=im1,im2 |
227 | radswt(i,j,bi,bj) = S0*(1.0/ra**2)*cosz(i,j) | radswt(i,j,bi,bj) = S0*(1.0/ra**2)*cosz(i,j) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |