215 |
ENDDO ! bj |
ENDDO ! bj |
216 |
|
|
217 |
C-- Set default (=whole domain) for where relaxation to climatology applies |
C-- Set default (=whole domain) for where relaxation to climatology applies |
218 |
|
_BEGIN_MASTER(myThid) |
219 |
IF ( latBandClimRelax.EQ.UNSET_RL ) THEN |
IF ( latBandClimRelax.EQ.UNSET_RL ) THEN |
|
_BEGIN_MASTER(myThid) |
|
220 |
latBandClimRelax = 0. |
latBandClimRelax = 0. |
221 |
DO j=1,Ny |
DO j=1,Ny |
222 |
latBandClimRelax = latBandClimRelax + delY(j) |
latBandClimRelax = latBandClimRelax + delY(j) |
223 |
ENDDO |
ENDDO |
224 |
latBandClimRelax = latBandClimRelax*3. _d 0 |
latBandClimRelax = latBandClimRelax*3. _d 0 |
|
_END_MASTER(myThid) |
|
225 |
ENDIF |
ENDIF |
226 |
|
_END_MASTER(myThid) |
227 |
|
|
228 |
RETURN |
RETURN |
229 |
END |
END |