/[MITgcm]/MITgcm/pkg/exf/exf_getclim.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_getclim.F

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

revision 1.14 by jmc, Tue Mar 16 00:18:51 2010 UTC revision 1.15 by heimbach, Mon Apr 26 01:49:47 2010 UTC
# Line 113  c Line 113  c
113  c--   Update the tile edges.  c--   Update the tile edges.
114        _EXCH_XY_RL(climsss, mythid)        _EXCH_XY_RL(climsss, mythid)
115  #endif  #endif
116    
117  #ifdef ALLOW_SST_CONTROL  #ifdef ALLOW_SST_CONTROL
118        call ctrl_get_gen (        call ctrl_get_gen (
119       &     xx_sst_file, xx_sststartdate, xx_sstperiod,       &     xx_sst_file, xx_sststartdate, xx_sstperiod,
# Line 126  c--   Update the tile edges. Line 127  c--   Update the tile edges.
127           DO j=1-oLy,sNy+oLy           DO j=1-oLy,sNy+oLy
128            DO i=1-oLx,sNx+oLx            DO i=1-oLx,sNx+oLx
129             theta(i,j,1,bi,bj) = climsst(i,j,bi,bj)             theta(i,j,1,bi,bj) = climsst(i,j,bi,bj)
130               salt(i,j,1,bi,bj) = climsss(i,j,bi,bj)
131             if ( myiter .EQ. niter0 ) then             if ( myiter .EQ. niter0 ) then
132                if ( maskC(i,j,1,bi,bj) .NE. 0. .AND.                if ( maskC(i,j,1,bi,bj) .NE. 0. .AND.
133       &             theta(i,j,1,bi,bj) .EQ. 0. ) then       &             theta(i,j,1,bi,bj) .EQ. 0. ) then
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22