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

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

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

revision 1.24 by jmc, Thu Dec 22 19:03:41 2011 UTC revision 1.25 by heimbach, Thu Apr 19 16:06:43 2012 UTC
# Line 239  c             Short wave radiative flux. Line 239  c             Short wave radiative flux.
239            enddo            enddo
240  #endif  #endif
241    
242    #ifdef EXF_ALLOW_SEAICE_RELAX
243              do j = jmin,jmax
244                do i = imin,imax
245                   obsSIce(i,j,bi,bj) =
246         &           exf_outscal_areamask*areamask(i,j,bi,bj)
247                  obsSIce(I,J,bi,bj) =
248         &           MIN(MAX(obsSIce(I,J,bi,bj), 0.d0 ), 1.d0)
249                enddo
250              enddo
251    #endif
252    
253          ENDDO          ENDDO
254        ENDDO        ENDDO
255    
# Line 259  c     Update the tile edges. Line 270  c     Update the tile edges.
270  #ifdef ATMOSPHERIC_LOADING  #ifdef ATMOSPHERIC_LOADING
271        _EXCH_XY_RS( pload, mythid )        _EXCH_XY_RS( pload, mythid )
272  #endif  #endif
273    #ifdef EXF_ALLOW_SEAICE_RELAX
274          _EXCH_XY_RS( obsSIce, mythid)
275    #endif
276    
277        RETURN        RETURN
278        END        END
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22