/[MITgcm]/MITgcm_contrib/bling/pkg/bling_airseaflux.F
ViewVC logotype

Diff of /MITgcm_contrib/bling/pkg/bling_airseaflux.F

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

revision 1.1 by mmazloff, Fri May 23 17:33:42 2014 UTC revision 1.2 by mmazloff, Thu Jun 5 21:15:17 2014 UTC
# Line 189  c make sure Schmidt number is not negati Line 189  c make sure Schmidt number is not negati
189               SchmidtNoDIC(i,j)=max(1.0 _d -2, SchmidtNoDIC(i,j))               SchmidtNoDIC(i,j)=max(1.0 _d -2, SchmidtNoDIC(i,j))
190    
191  C First determine local saturation pCO2  C First determine local saturation pCO2
192  #ifdef USE_EXFPCO2  #ifdef USE_EXFCO2
193                pCO2sat(i,j) = apco2(i,j,bi,bj)                pCO2sat(i,j) = apco2(i,j,bi,bj)
194  #else  #else
195                pCO2sat(i,j) = bling_pCO2                pCO2sat(i,j) = bling_pCO2
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22