/[MITgcm]/MITgcm/model/src/calc_r_star.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_r_star.F

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

revision 1.2 by jmc, Fri Apr 11 13:02:37 2003 UTC revision 1.3 by jmc, Tue Jul 6 01:05:53 2004 UTC
# Line 201  C-- Usefull warning when r*Fac becomes v Line 201  C-- Usefull warning when r*Fac becomes v
201          ENDDO          ENDDO
202    
203  C-    end 1rst bi,bj loop.  C-    end 1rst bi,bj loop.
         ENDDO  
204         ENDDO         ENDDO
205          ENDDO
206    
207         _EXCH_XY_RL( rStarFacC, myThid )         _EXCH_XY_RL( rStarFacC, myThid )
208        CALL EXCH_UV_XY_RL(rStarFacW,rStarFacS,.FALSE.,myThid)        CALL EXCH_UV_XY_RL(rStarFacW,rStarFacS,.FALSE.,myThid)
209    
       IF (useRealFreshWaterFlux .AND. myTime.EQ.startTime)  
      & _EXCH_XY_R4( PmEpR, myThid )  
   
210  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
211    
212        DO bj=myByLo(myThid), myByHi(myThid)        DO bj=myByLo(myThid), myByHi(myThid)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22