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

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

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

revision 1.7 by cnh, Tue Aug 18 16:32:41 1998 UTC revision 1.8 by cnh, Sat Aug 22 17:51:07 1998 UTC
# Line 87  C--   Calculate vertical "volume transpo Line 87  C--   Calculate vertical "volume transpo
87  C--   tracer cell face *above* this level.  C--   tracer cell face *above* this level.
88        DO j=jMin,jMax        DO j=jMin,jMax
89         DO i=iMin,iMax         DO i=iMin,iMax
90          rTrans(i,j) = uTrans(i,j)*recip_rkFac-uTrans(i+1,j)*_recip_rkFac          rTrans(i,j) = uTrans(i,j)*recip_rkFac-uTrans(i+1,j)*recip_rkFac
91       &               +vTrans(i,j)*_recip_rkFac-vTrans(i,j+1)*_recip_rkFac       &               +vTrans(i,j)*recip_rkFac-vTrans(i,j+1)*recip_rkFac
92       &               +rTrans(i,j)       &               +rTrans(i,j)
93         ENDDO         ENDDO
94        ENDDO        ENDDO
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22