/[MITgcm]/MITgcm/model/src/calc_gt.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_gt.F

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

revision 1.14 by cnh, Tue Aug 18 16:32:41 1998 UTC revision 1.15 by cnh, Fri Aug 21 12:29:55 1998 UTC
# Line 213  C           boundary condition. Line 213  C           boundary condition.
213          DO i=iMin,iMax          DO i=iMin,iMax
214           df(i,j) = df(i,j) + _rA(i,j,bi,bj)*(           df(i,j) = df(i,j) + _rA(i,j,bi,bj)*(
215       &    -KappaZT(i,j,k)*recip_drC(k)       &    -KappaZT(i,j,k)*recip_drC(k)
216       &    *(theta(i,j,kM1,bi,bj)-theta(i,j,k,bi,bj))       &    *(theta(i,j,kM1,bi,bj)-theta(i,j,k,bi,bj))*rkFac
217       &    )       &    )
218          ENDDO          ENDDO
219         ENDDO         ENDDO
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22