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

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

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

revision 1.5 by dfer, Fri Oct 26 21:08:12 2007 UTC revision 1.6 by dfer, Thu Apr 3 22:49:53 2008 UTC
# Line 92  c 30 micromol = 0.03 mol m-3 Line 92  c 30 micromol = 0.03 mol m-3
92               po4local = PTR_PO4(i,j,k)               po4local = PTR_PO4(i,j,k)
93               diclocal = PTR_DIC(i,j,k)               diclocal = PTR_DIC(i,j,k)
94               alklocal = PTR_ALK(i,j,k)               alklocal = PTR_ALK(i,j,k)
 c            pHlocal = pHlast(i,j,k,bi,bj)  
95               pHlocal = 7.9 _d 0               pHlocal = 7.9 _d 0
96    
97  CMICK - TEMPORARY!!!!!  CMICK - TEMPORARY!!!!!
# Line 158  cmick................................... Line 157  cmick...................................
157               omegaC(i,j,k,bi,bj) = 0. _d 0               omegaC(i,j,k,bi,bj) = 0. _d 0
158             endif             endif
159    
            pHlast(i,j,k,bi,bj) = pHlocal  
   
160           ENDDO           ENDDO
161          ENDDO          ENDDO
162    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22