/[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.4 by molod, Tue Apr 27 16:38:51 2004 UTC revision 1.6 by molod, Fri Jul 2 20:22:05 2004 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4         subroutine gridalt_update(myThid)         subroutine gridalt_update(myThid)
5  c***********************************************************************  c***********************************************************************
6  c subroutine gridalt_update  c subroutine gridalt_update
# Line 37  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 56  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.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22