/[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.8 by cnh, Mon Jun 15 05:13:55 1998 UTC revision 1.9 by adcroft, Wed Jun 17 21:07:01 1998 UTC
# Line 258  C     o Surface relaxation term Line 258  C     o Surface relaxation term
258         DO j=jMin,jMax         DO j=jMin,jMax
259          DO i=iMin,iMax          DO i=iMin,iMax
260           gS(i,j,k,bi,bj)=gS(i,j,k,bi,bj)           gS(i,j,k,bi,bj)=gS(i,j,k,bi,bj)
261       &   -lambdaSaltClimRelax*(salt(i,j,k,bi,bj)-saltClim(i,j,k,bi,bj))       &   +maskUp(i,j)*(
262         &   -lambdaSaltClimRelax*(salt(i,j,k,bi,bj)-SSS(i,j,bi,bj))
263         &   -EmPpR(i,j,bi,bj) )
264          ENDDO          ENDDO
265         ENDDO         ENDDO
266        ENDIF        ENDIF
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22