/[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.21 by mlosch, Thu Sep 27 09:41:13 2007 UTC revision 1.22 by jmc, Mon Oct 1 13:36:05 2007 UTC
# Line 113  c     Heat flux. Line 113  c     Heat flux.
113  c     Salt flux.  c     Salt flux.
114            do j = jmin,jmax            do j = jmin,jmax
115              do i = imin,imax              do i = imin,imax
116               empmr(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj)               EmPmR(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj)
117         &                                          *rhoConstFresh
118              enddo              enddo
119            enddo            enddo
120            if ( sfluxfile .EQ. ' ' ) then            if ( sfluxfile .EQ. ' ' ) then
121             do j = jmin,jmax             do j = jmin,jmax
122              do i = imin,imax              do i = imin,imax
123                   empmr(i,j,bi,bj) = empmr(i,j,bi,bj) -                   EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - rhoConstFresh*
124       &            exf_outscal_sflux * ( sflux_exfremo_intercept +       &            exf_outscal_sflux * ( sflux_exfremo_intercept +
125       &            sflux_exfremo_slope*(mytime-starttime) )       &            sflux_exfremo_slope*(mytime-starttime) )
126              enddo              enddo
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22