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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.18 by jmc, Wed Jul 13 00:36:01 2005 UTC revision 1.19 by jmc, Sun Jul 31 22:07:48 2005 UTC
# Line 214  C--     Cosine(lat) scaling Line 214  C--     Cosine(lat) scaling
214         ENDDO ! bi         ENDDO ! bi
215        ENDDO ! bj        ENDDO ! bj
216    
217    C--   Set default (=whole domain) for where relaxation to climatology applies
218          IF ( latBandClimRelax.EQ.UNSET_RL ) THEN
219            _BEGIN_MASTER(myThid)
220            latBandClimRelax = 0.
221            DO j=1,Ny
222              latBandClimRelax = latBandClimRelax + delY(j)
223            ENDDO
224            latBandClimRelax = latBandClimRelax*3. _d 0
225            _END_MASTER(myThid)
226          ENDIF
227    
228        RETURN        RETURN
229        END        END
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22