/[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.9 by jmc, Wed Apr 9 22:13:15 2008 UTC revision 1.10 by jmc, Mon Apr 12 20:07:57 2010 UTC
# Line 115  CMIKC - CAN AFFORD TO MAKE SEVERAL ITERA Line 115  CMIKC - CAN AFFORD TO MAKE SEVERAL ITERA
115       I          aksi(i,j,bi,bj),akf(i,j,bi,bj),ff(i,j,bi,bj),       I          aksi(i,j,bi,bj),akf(i,j,bi,bj),ff(i,j,bi,bj),
116       I          bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj),       I          bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj),
117       U          pHlocal,pCO2local,carbonate,       U          pHlocal,pCO2local,carbonate,
118       I          myThid )       I          i,j,k,bi,bj,myIter,myThid )
119  c........................................................  c........................................................
120  c               if(i .eq. 76 .and. j .eq. 36  .and. k .eq. 15) then  c               if(i .eq. 76 .and. j .eq. 36  .and. k .eq. 15) then
121  c                 write(6,*)'Iteration, pH = ',CO3iter,pHlocal  c                 write(6,*)'Iteration, pH = ',CO3iter,pHlocal
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22