/[MITgcm]/MITgcm/pkg/fizhi/do_fizhi.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/do_fizhi.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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)
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22