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

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

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

revision 1.3 by mmazloff, Sun Feb 28 21:49:24 2016 UTC revision 1.4 by mmazloff, Sun May 15 00:30:35 2016 UTC
# Line 125  C  iteratively Line 125  C  iteratively
125    
126  c             DO CO3iter = 1, CO3itermax  c             DO CO3iter = 1, CO3itermax
127    
 C$TAF STORE pHlocal, diclocal                = dic_caco3  
 C$TAF STORE alklocal, po4local, silicaDEEP   = dic_caco3  
128  C--------------------------------------------------  C--------------------------------------------------
129    
130                 CALL CALC_PCO2_APPROX(                 CALL CALC_PCO2_APPROX(
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22