/[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.5 by jmc, Tue May 23 23:32:41 2006 UTC revision 1.6 by jmc, Mon Oct 15 15:28:58 2007 UTC
# Line 82  c Line 82  c
82       &          surfaceForcingPtr(i,j,bi,bj,iTrc)       &          surfaceForcingPtr(i,j,bi,bj,iTrc)
83       &        + PmEpR(i,j,bi,bj)       &        + PmEpR(i,j,bi,bj)
84       &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )       &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
85       &          *convertEmP2rUnit       &          *mass2rUnit
86             ENDDO             ENDDO
87            ENDDO            ENDDO
88           ENDIF           ENDIF
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22