/[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.44 by dimitri, Mon Jul 23 00:17:44 2007 UTC revision 1.45 by dimitri, Mon Jul 23 21:18:13 2007 UTC
# Line 501  C Duffy et al. (GRL 1999) Line 501  C Duffy et al. (GRL 1999)
501             gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)             gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
502       &          +saltPlume*horiVertRatio*recip_rhoConst       &          +saltPlume*horiVertRatio*recip_rhoConst
503       &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)       &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
504       &          *max(drF(kLev),SaltPlumeDepth(i,j,bi,bj)+rF(kLev))       &          *min(drF(kLev),SaltPlumeDepth(i,j,bi,bj)+rF(kLev))
505       &          /SaltPlumeDepth(i,j,bi,bj)       &          /SaltPlumeDepth(i,j,bi,bj)
506            ENDIF            ENDIF
507          ENDDO          ENDDO
Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45
  ViewVC Help
Powered by ViewVC 1.1.22