Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by jmc, Wed Jul 13 00:34:39 2005 UTC | revision 1.2 by jmc, Sun Jul 31 22:07:48 2005 UTC | |
---|---|---|
# | Line 240 C-- Cosine(lat) scaling | Line 240 C-- Cosine(lat) scaling |
240 | ENDDO ! bi | ENDDO ! bi |
241 | ENDDO ! bj | ENDDO ! bj |
242 | ||
243 | C-- Set default (=whole domain) for where relaxation to climatology applies | |
244 | IF ( latBandClimRelax.EQ.UNSET_RL ) THEN | |
245 | _BEGIN_MASTER(myThid) | |
246 | latBandClimRelax = 0. | |
247 | DO j=1,Ny | |
248 | latBandClimRelax = latBandClimRelax + delY(j) | |
249 | ENDDO | |
250 | latBandClimRelax = latBandClimRelax*3. _d 0 | |
251 | _END_MASTER(myThid) | |
252 | ENDIF | |
253 | ||
254 | RETURN | RETURN |
255 | END | END |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |