/[MITgcm]/MITgcm/model/src/ini_cylinder_grid.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_cylinder_grid.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22