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

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

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

revision 1.12 by cnh, Tue Aug 18 16:32:41 1998 UTC revision 1.13 by cnh, Fri Aug 21 12:29:55 1998 UTC
# Line 202  C     Note: For K=1 then KM1=1 this give Line 202  C     Note: For K=1 then KM1=1 this give
202  C           boundary condition.  C           boundary condition.
203        DO j=jMin,jMax        DO j=jMin,jMax
204         DO i=iMin,iMax         DO i=iMin,iMax
205          df(i,j) = _zA(i,j,bi,bj)*(          df(i,j) = _rA(i,j,bi,bj)*(
206       &   -KapGM(i,j)*K13(i,j,k)*dSdx(i,j)       &   -KapGM(i,j)*K13(i,j,k)*dSdx(i,j)
207       &   -KapGM(i,j)*K23(i,j,k)*dSdy(i,j)       &   -KapGM(i,j)*K23(i,j,k)*dSdy(i,j)
208       &   )       &   )
# 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       &    -KappaRS(i,j,k)*recip_drC(k)       &    -KappaRS(i,j,k)*recip_drC(k)
216       &    *(salt(i,j,kM1,bi,bj)-salt(i,j,k,bi,bj))       &    *(salt(i,j,kM1,bi,bj)-salt(i,j,k,bi,bj))*rkFac
217       &    )       &    )
218          ENDDO          ENDDO
219         ENDDO         ENDDO
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22