/[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.10 by molod, Mon Jul 26 20:11:33 2004 UTC revision 1.11 by molod, Mon Jul 26 20:28:29 2004 UTC
# Line 653  c--------------------------------------- Line 653  c---------------------------------------
653        _RL VT1(IM,JM)        _RL VT1(IM,JM)
654        integer i        integer i
655    
       print *,' In msc2grd ',(igrd(i),i=1,nchp)  
       print *,' In msc2grd ',(chfr(i),i=1,nchp)  
   
656        IF(NCHP.GE.0) THEN        IF(NCHP.GE.0) THEN
657          DO I=1,IM*JM          DO I=1,IM*JM
658           VT1(I,1) = ZERO           VT1(I,1) = ZERO
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22