/[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.29 by dimitri, Sat Jun 29 19:44:18 2013 UTC revision 1.30 by jmc, Sat Oct 5 19:36:12 2013 UTC
# Line 325  C             Short wave radiative flux. Line 325  C             Short wave radiative flux.
325            ENDDO            ENDDO
326  #endif  #endif
327    
328  #ifdef EXF_ALLOW_SEAICE_RELAX  #ifdef EXF_SEAICE_FRACTION
329            DO j = jmin,jmax            DO j = jmin,jmax
330              DO i = imin,imax              DO i = imin,imax
331                obsSIce(i,j,bi,bj) =                exf_iceFraction(i,j,bi,bj) =
332       &           exf_outscal_areamask*areamask(i,j,bi,bj)       &           exf_outscal_areamask*areamask(i,j,bi,bj)
333                obsSIce(I,J,bi,bj) =                exf_iceFraction(I,J,bi,bj) =
334       &           MIN(MAX(obsSIce(I,J,bi,bj), 0.d0 ), 1.d0)       &           MIN( MAX(exf_iceFraction(I,J,bi,bj),zeroRS), oneRS )
335              ENDDO              ENDDO
336            ENDDO            ENDDO
337  #endif  #endif
# Line 357  C     Qsw used in SHORTWAVE_HEATING code Line 357  C     Qsw used in SHORTWAVE_HEATING code
357  #ifdef ATMOSPHERIC_LOADING  #ifdef ATMOSPHERIC_LOADING
358        _EXCH_XY_RS( pLoad, myThid )        _EXCH_XY_RS( pLoad, myThid )
359  #endif  #endif
360  #ifdef EXF_ALLOW_SEAICE_RELAX  #ifdef EXF_SEAICE_FRACTION
361        _EXCH_XY_RS( obsSIce, myThid )        _EXCH_XY_RS( exf_iceFraction, myThid )
362  #endif  #endif
363    
364        RETURN        RETURN
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22