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 |