/[MITgcm]/MITgcm/pkg/dic/dic_surfforcing.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_surfforcing.F

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

revision 1.25 by stephd, Tue Apr 19 21:34:32 2011 UTC revision 1.26 by stephd, Thu May 5 21:31:58 2011 UTC
# Line 162  C calculate SCHMIDT NO. for CO2 Line 162  C calculate SCHMIDT NO. for CO2
162       &          + sca3 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj)       &          + sca3 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj)
163       &          + sca4 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj)       &          + sca4 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj)
164       &                *theta(i,j,kLev,bi,bj)       &                *theta(i,j,kLev,bi,bj)
165    c make sure Schmidt number isn't negative (will happen if temp>39C)
166                 SchmidtNoDIC(i,j)=max(1.0 _d -2, SchmidtNoDIC(i,j))
167    
168  C Determine surface flux (FDIC)  C Determine surface flux (FDIC)
169  C first correct pCO2at for surface atmos pressure  C first correct pCO2at for surface atmos pressure
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22