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. |