/[MITgcm]/MITgcm/pkg/ptracers/ptracers_forcing_surf.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_forcing_surf.F

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

revision 1.7 by dfer, Wed Oct 24 19:50:26 2007 UTC revision 1.8 by mlosch, Thu Oct 25 13:11:59 2007 UTC
# Line 111  C        local surface tracer Line 111  C        local surface tracer
111              surfaceForcingPtr(i,j,bi,bj,iTrc) =              surfaceForcingPtr(i,j,bi,bj,iTrc) =
112       &          surfaceForcingPtr(i,j,bi,bj,iTrc)       &          surfaceForcingPtr(i,j,bi,bj,iTrc)
113       &        + EmPmR(i,j,bi,bj)       &        + EmPmR(i,j,bi,bj)
114       &            *( pTracer(i,j,ks,bi,bj,iTrc) - PtRACERS_EvPrRn(iTrc) )       &          *( pTracer(i,j,ks,bi,bj,iTrc) - PtRACERS_EvPrRn(iTrc) )
115       &            *mass2rUnit       &          *mass2rUnit
116             ENDDO             ENDDO
117            ENDDO            ENDDO
118           ENDIF           ENDIF
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22