/[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.19 by jmc, Sun Jul 31 22:07:48 2005 UTC revision 1.20 by jmc, Tue Oct 17 18:52:34 2006 UTC
# Line 215  C--     Cosine(lat) scaling Line 215  C--     Cosine(lat) scaling
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
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22