/[MITgcm]/MITgcm/model/src/external_forcing_surf.F
ViewVC logotype

Diff of /MITgcm/model/src/external_forcing_surf.F

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

revision 1.18 by dimitri, Wed Mar 3 05:17:44 2004 UTC revision 1.19 by dimitri, Wed Mar 3 06:55:59 2004 UTC
# Line 95  C--   Surface restoring term : Line 95  C--   Surface restoring term :
95  C     Don't restore under sea-ice  C     Don't restore under sea-ice
96  C     Heat Flux (restoring term) :  C     Heat Flux (restoring term) :
97            surfaceTendencyT(i,j,bi,bj) = surfaceTendencyT(i,j,bi,bj)            surfaceTendencyT(i,j,bi,bj) = surfaceTendencyT(i,j,bi,bj)
98       &      -lambdaThetaClimRelax * (1-AREA(i,j,1,bi,bj)       &      -lambdaThetaClimRelax * (1-AREA(i,j,1,bi,bj))
99       &         *(theta(i,j,kSurface,bi,bj)-SST(i,j,bi,bj))       &         *(theta(i,j,kSurface,bi,bj)-SST(i,j,bi,bj))
100  C     Salt Flux (restoring term) :  C     Salt Flux (restoring term) :
101            surfaceTendencyS(i,j,bi,bj) = surfaceTendencyS(i,j,bi,bj)            surfaceTendencyS(i,j,bi,bj) = surfaceTendencyS(i,j,bi,bj)
102       &      -lambdaSaltClimRelax * (1-AREA(i,j,1,bi,bj)       &      -lambdaSaltClimRelax * (1-AREA(i,j,1,bi,bj))
103       &         *(salt(i,j,kSurface,bi,bj)-SSS(i,j,bi,bj))       &         *(salt(i,j,kSurface,bi,bj)-SSS(i,j,bi,bj))
104  #else /* ifndef ALLOW_SEAICE */  #else /* ifndef ALLOW_SEAICE */
105  C     Heat Flux (restoring term) :  C     Heat Flux (restoring term) :
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22