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

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

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

revision 1.5 by adcroft, Tue May 18 18:01:13 1999 UTC revision 1.6 by adcroft, Tue Jun 29 18:39:45 1999 UTC
# Line 214  C     Add fresh-water in top-layer Line 214  C     Add fresh-water in top-layer
214           gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)           gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
215       &   +maskC(i,j)*(       &   +maskC(i,j)*(
216       &   -lambdaSaltClimRelax*(salt(i,j,kLev,bi,bj)-SSS(i,j,bi,bj))       &   -lambdaSaltClimRelax*(salt(i,j,kLev,bi,bj)-SSS(i,j,bi,bj))
217  #ifndef USE_NATURAL_BCS  #ifdef USE_NATURAL_BCS
218         &   +EmPmR(i,j,bi,bj)*recip_dRf(1)*salt(i,j,kLev,bi,bj)
219    #else
220       &   +EmPmR(i,j,bi,bj)*recip_dRf(1)*35.       &   +EmPmR(i,j,bi,bj)*recip_dRf(1)*35.
221  #endif  #endif
222       &   )       &   )
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22