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

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

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

revision 1.20 by molod, Thu Aug 26 14:41:56 2004 UTC revision 1.21 by molod, Sun Aug 29 19:48:06 2004 UTC
# Line 226  c ------------------------- Line 226  c -------------------------
226        qdiag(i,j,icldfrc,bi,bj) =  qdiag(i,j,icldfrc,bi,bj) + totcld(i,j)        qdiag(i,j,icldfrc,bi,bj) =  qdiag(i,j,icldfrc,bi,bj) + totcld(i,j)
227        enddo        enddo
228        enddo        enddo
229        ncldfrc = ncldfrc + 1        if ( (bi.eq.1) .and. (bj.eq.1) ) ncldfrc = ncldfrc + 1
230        endif        endif
231    
232        if( icldras.gt.0 ) then        if( icldras.gt.0 ) then
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22