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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.20 by molod, Tue Dec 14 19:56:44 2004 UTC revision 1.21 by molod, Mon Feb 7 20:35:36 2005 UTC
# Line 311  C ************************************** Line 311  C **************************************
311        enddo        enddo
312        endif        endif
313    
314        if (iudiag4.ne.0) then  c     if (iudiag4.ne.0) then
315        do L = 1,lm  c     do L = 1,lm
316        do j = 1,jm  c     do j = 1,jm
317        do i = 1,im  c     do i = 1,im
318        qdiag(i,j,iudiag4+L-1,bi,bj) = qdiag(i,j,iudiag4+L-1,bi,bj) +  c     qdiag(i,j,iudiag4+L-1,bi,bj) = qdiag(i,j,iudiag4+L-1,bi,bj) +
319       .  tmpimjm(i,j,L)  c    .  tmpimjm(i,j,L)
320        enddo  c     enddo
321        enddo  c     enddo
322        enddo  c     enddo
323        endif  c     endif
324    
325        if (iolr.ne.0) then        if (iolr.ne.0) then
326        do j = 1,jm        do j = 1,jm
# Line 343  C ************************************** Line 343  C **************************************
343        nolr     = nolr     + 1        nolr     = nolr     + 1
344        nolrclr  = nolrclr  + 1        nolrclr  = nolrclr  + 1
345    
346        nudiag4  = nudiag4  + 1  c     nudiag4  = nudiag4  + 1
347        endif        endif
348  #endif  #endif
349    
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22