/[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.4 by jmc, Wed Jan 30 04:12:12 2002 UTC revision 1.5 by jmc, Sun Feb 10 00:44:37 2002 UTC
# Line 232  C-- Global diagnostic : Line 232  C-- Global diagnostic :
232        _EXCH_XY_R4(hFac_surfC, myThid )        _EXCH_XY_R4(hFac_surfC, myThid )
233        CALL EXCH_UV_XY_RS(hFac_surfW,hFac_surfS,.FALSE.,myThid)        CALL EXCH_UV_XY_RS(hFac_surfW,hFac_surfS,.FALSE.,myThid)
234    
235          IF (useRealFreshWaterFlux .AND. myTime.EQ.startTime)
236         & _EXCH_XY_R4( PmEpR, myThid )
237    
238  C-----  C-----
239  C Note: testing ksurfW,S is equivalent to a full height mask  C Note: testing ksurfW,S is equivalent to a full height mask
240  C   ==> no need for applying the mask here.  C   ==> no need for applying the mask here.
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22