/[MITgcm]/MITgcm_contrib/natl_12/code/external_forcing.F
ViewVC logotype

Diff of /MITgcm_contrib/natl_12/code/external_forcing.F

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

revision 1.2 by cnh, Tue Aug 5 21:35:30 2003 UTC revision 1.3 by cnh, Wed Aug 6 22:14:53 2003 UTC
# Line 302  C     Add heat in top-layer Line 302  C     Add heat in top-layer
302  C--   Forcing term  C--   Forcing term
303  C     Add heat in top-layer ( 90 day climatalogical average relaxation )  C     Add heat in top-layer ( 90 day climatalogical average relaxation )
304        IF ( kLev .EQ. kSurface ) THEN        IF ( kLev .EQ. kSurface ) THEN
305         curRecipTau=90./86400.         curRecipTau=1./(86400.*90.)
306         DO j=jMin,jMax         DO j=jMin,jMax
307          DO i=iMin,iMax          DO i=iMin,iMax
308           gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)           gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22