Parent Directory | Revision Log | Revision Graph | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |