/[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.15 by cnh, Fri Aug 21 12:29:55 1998 UTC revision 1.16 by cnh, Sat Aug 22 17:51:07 1998 UTC
# Line 73  C     myThid - Instance number for this Line 73  C     myThid - Instance number for this
73        _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL rTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
74        _RS maskUp(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RS maskUp(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
75        _RS maskC (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RS maskC (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
76        _RL K13   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nz)        _RL K13   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
77        _RL K23   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nz)        _RL K23   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
78        _RL KappaRT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nz)        _RL KappaRT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
79        _RL KapGM (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL KapGM (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
80        _RL af    (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL af    (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
81        _RL df    (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL df    (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
# Line 212  C           boundary condition. Line 212  C           boundary condition.
212         DO j=jMin,jMax         DO j=jMin,jMax
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)       &    -KappaRT(i,j,k)*recip_drC(k)
216       &    *(theta(i,j,kM1,bi,bj)-theta(i,j,k,bi,bj))*rkFac       &    *(theta(i,j,kM1,bi,bj)-theta(i,j,k,bi,bj))*rkFac
217       &    )       &    )
218          ENDDO          ENDDO
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22