59 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
60 |
|
|
61 |
IF ( stressReduction.GT. 0. _d 0 ) THEN |
IF ( stressReduction.GT. 0. _d 0 ) THEN |
62 |
|
C- needs new Ice Fraction in halo region to apply wind-stress reduction |
63 |
iMin = 1-Olx |
iMin = 1-Olx |
64 |
iMax = sNx+Olx-1 |
iMax = sNx+Olx-1 |
65 |
jMin = 1-Oly |
jMin = 1-Oly |
66 |
jMax = sNy+Oly-1 |
jMax = sNy+Oly-1 |
67 |
|
#ifdef ATMOSPHERIC_LOADING |
68 |
|
ELSEIF ( useRealFreshWaterFlux ) THEN |
69 |
|
C- needs sea-ice loading in part of the halo regions for grad.Phi0surf |
70 |
|
C to be valid at the boundaries ( d/dx 1:sNx+1 ; d/dy 1:sNy+1 ) |
71 |
|
iMin = 0 |
72 |
|
iMax = sNx+1 |
73 |
|
jMin = 0 |
74 |
|
jMax = sNy+1 |
75 |
|
#endif /* ATMOSPHERIC_LOADING */ |
76 |
ELSE |
ELSE |
77 |
iMin = 1 |
iMin = 1 |
78 |
iMax = sNx |
iMax = sNx |
176 |
ENDDO |
ENDDO |
177 |
ENDDO |
ENDDO |
178 |
|
|
179 |
|
#ifdef ATMOSPHERIC_LOADING |
180 |
|
c IF (useRealFreshWaterFlux) _EXCH_XY_RS(sIceLoad, myThid) |
181 |
|
#endif |
182 |
|
|
183 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
184 |
#endif /*ALLOW_THSICE*/ |
#endif /*ALLOW_THSICE*/ |
185 |
|
|