/[MITgcm]/MITgcm/pkg/cost/cost_tracer.F
ViewVC logotype

Diff of /MITgcm/pkg/cost/cost_tracer.F

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

revision 1.6 by heimbach, Fri Sep 17 22:57:12 2004 UTC revision 1.7 by jmc, Sat Dec 4 00:14:26 2004 UTC
# Line 53  ce    some reference temperature Line 53  ce    some reference temperature
53  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
54              locfc = locfc + maskC(i,j,k,bi,bj)*              locfc = locfc + maskC(i,j,k,bi,bj)*
55       &           lambdaTr1ClimRelax*ptracer(i,j,k,bi,bj,1)*       &           lambdaTr1ClimRelax*ptracer(i,j,k,bi,bj,1)*
56       &           rA(i,j,bi,bj)*drF(k)*deltaTtracer       &           rA(i,j,bi,bj)*drF(k)*dTtracerLev(k)
57  #endif  #endif
58           ENDDO           ENDDO
59        ENDDO        ENDDO
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22