/[MITgcm]/MITgcm/pkg/gridalt/gridalt_update.F
ViewVC logotype

Diff of /MITgcm/pkg/gridalt/gridalt_update.F

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

revision 1.5 by edhill, Wed May 5 00:39:21 2004 UTC revision 1.6 by molod, Fri Jul 2 20:22:05 2004 UTC
# Line 40  c Line 40  c
40         j2 = sNy         j2 = sNy
41    
42  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
43                                                                                            #ifdef NONLIN_FRSURF
44         if(usefizhi)then  
45           if(usefizhi .and. (select_rStar.GT.0) )then
46          do bj = myByLo(myThid), myByHi(myThid)          do bj = myByLo(myThid), myByHi(myThid)
47          do bi = myBxLo(myThid), myBxHi(myThid)          do bi = myBxLo(myThid), myBxHi(myThid)
48  c  c
# Line 59  c Line 60  c
60         endif         endif
61    
62  #endif  #endif
63    #endif
64    
65         return         return
66         end         end
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22