/[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.9 by adcroft, Wed Jun 17 21:07:01 1998 UTC revision 1.10 by adcroft, Mon Jun 22 15:26:25 1998 UTC
# Line 5  C $Header$ Line 5  C $Header$
5  CStartOfInterFace  CStartOfInterFace
6        SUBROUTINE CALC_GS(        SUBROUTINE CALC_GS(
7       I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,       I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
8       I           xA,yA,uTrans,vTrans,wTrans,maskup,       I           xA,yA,uTrans,vTrans,wTrans,maskup,maskC,
9       I           K13,K23,KappaZS,KapGM,       I           K13,K23,KappaZS,KapGM,
10       U           af,df,fZon,fMer,fVerS,       U           af,df,fZon,fMer,fVerS,
11       I           myThid )       I           myThid )
# Line 52  C               direction at the south f Line 52  C               direction at the south f
52  C     fVerS   - Flux of salt (S) in the vertical  C     fVerS   - Flux of salt (S) in the vertical
53  C               direction at the upper(U) and lower(D) faces of a cell.  C               direction at the upper(U) and lower(D) faces of a cell.
54  C     maskUp  - Land mask used to denote base of the domain.  C     maskUp  - Land mask used to denote base of the domain.
55    C     maskC   - Land mask for salt cells (used in TOP_LAYER only)
56  C     xA      - Tracer cell face area normal to X  C     xA      - Tracer cell face area normal to X
57  C     yA      - Tracer cell face area normal to X  C     yA      - Tracer cell face area normal to X
58  C     uTrans  - Zonal volume transport through cell face  C     uTrans  - Zonal volume transport through cell face
# Line 71  C     myThid - Instance number for this Line 72  C     myThid - Instance number for this
72        _RL vTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL vTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
73        _RL wTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL wTrans(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)
76        _RL K13   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nz)        _RL K13   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nz)
77        _RL K23   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nz)        _RL K23   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nz)
78        _RL KappaZS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nz)        _RL KappaZS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nz)
# Line 258  C     o Surface relaxation term Line 260  C     o Surface relaxation term
260         DO j=jMin,jMax         DO j=jMin,jMax
261          DO i=iMin,iMax          DO i=iMin,iMax
262           gS(i,j,k,bi,bj)=gS(i,j,k,bi,bj)           gS(i,j,k,bi,bj)=gS(i,j,k,bi,bj)
263       &   +maskUp(i,j)*(       &   +maskC(i,j)*(
264       &   -lambdaSaltClimRelax*(salt(i,j,k,bi,bj)-SSS(i,j,bi,bj))       &   -lambdaSaltClimRelax*(salt(i,j,k,bi,bj)-SSS(i,j,bi,bj))
265       &   -EmPpR(i,j,bi,bj) )       &   -EmPpR(i,j,bi,bj) )
266          ENDDO          ENDDO
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22