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

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

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

revision 1.9 by molod, Mon Jul 26 18:45:17 2004 UTC revision 1.10 by molod, Mon Jul 26 20:11:33 2004 UTC
# Line 665  c--------------------------------------- Line 665  c---------------------------------------
665           VT1(IGRD(I),1) = VT1(IGRD(I),1) + B(I)*CHFR(I)           VT1(IGRD(I),1) = VT1(IGRD(I),1) + B(I)*CHFR(I)
666          ENDDO          ENDDO
667    
         stop  
   
668          DO I=1,IM*JM          DO I=1,IM*JM
669           A(I,1) = A(I,1)*(ONE-FRACG(I,1)) + VT1(I,1)           A(I,1) = A(I,1)*(ONE-FRACG(I,1)) + VT1(I,1)
670          ENDDO          ENDDO
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22