/[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.11 by cnh, Mon Jun 15 05:13:55 1998 UTC revision 1.12 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           gT(i,j,k,bi,bj)=gT(i,j,k,bi,bj)           gT(i,j,k,bi,bj)=gT(i,j,k,bi,bj)
261       &   -lambdaThetaClimRelax*(theta(i,j,k,bi,bj)-thetaClim(i,j,k,bi,bj))       &  +maskUp(i,j)*(
262         &   -lambdaThetaClimRelax*(theta(i,j,k,bi,bj)-SST(i,j,bi,bj))
263         &   -Qnet(i,j,bi,bj) )
264          ENDDO          ENDDO
265         ENDDO         ENDDO
266        ENDIF        ENDIF
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22