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

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

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

revision 1.8 by jmc, Fri Apr 11 13:00:21 2003 UTC revision 1.9 by jmc, Tue Jul 6 01:05:53 2004 UTC
# Line 243  C-- Global diagnostic : Line 243  C-- Global diagnostic :
243        _EXCH_XY_R4(hFac_surfC, myThid )        _EXCH_XY_R4(hFac_surfC, myThid )
244        CALL EXCH_UV_XY_RS(hFac_surfW,hFac_surfS,.FALSE.,myThid)        CALL EXCH_UV_XY_RS(hFac_surfW,hFac_surfS,.FALSE.,myThid)
245    
       IF (useRealFreshWaterFlux .AND. myTime.EQ.startTime)  
      & _EXCH_XY_R4( PmEpR, myThid )  
   
246  C-----  C-----
247  C Note: testing ksurfW,S is equivalent to a full height mask  C Note: testing ksurfW,S is equivalent to a full height mask
248  C   ==> no need for applying the mask here.  C   ==> no need for applying the mask here.
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22