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

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

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

revision 1.2 by molod, Tue Jun 15 16:06:03 2004 UTC revision 1.3 by molod, Tue Jun 15 20:22:26 2004 UTC
# Line 496  c ----------------------------------- Line 496  c -----------------------------------
496        enddo        enddo
497    
498        if( iqice.gt.0 ) then        if( iqice.gt.0 ) then
499        tmpdiag(:,:) = 0.0        do i =1,ijall
500          tmpdiag(i,1) = 0.0
501          enddo
502        call msc2grd (igrd,chfr,qice,nchp,nchp,fracland,tmpdiag,im,jm)        call msc2grd (igrd,chfr,qice,nchp,nchp,fracland,tmpdiag,im,jm)
503        qdiag(:,:,iqice) = qdiag(:,:,iqice) + tmpdiag(:,:)        do i =1,ijall
504          qdiag(i,1,iqice) = qdiag(i,1,iqice) + tmpdiag(i,1)
505          enddo
506        nqice = nqice + 1        nqice = nqice + 1
507        endif        endif
508    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22