/[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.28 by jmc, Fri Jun 24 01:35:32 2011 UTC revision 1.29 by dfer, Fri Oct 7 21:36:39 2011 UTC
# Line 46  c GDC                   :: tendency due Line 46  c GDC                   :: tendency due
46    
47  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES: ====================================================
48         INTEGER i,j, kLev         INTEGER i,j, kLev
49           _RL co3dummy
50  C Number of iterations for pCO2 solvers...  C Number of iterations for pCO2 solvers...
51  C Solubility relation coefficients  C Solubility relation coefficients
52        _RL SchmidtNoDIC(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL SchmidtNoDIC(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
# Line 167  C$TAF LOOP = parallel Line 168  C$TAF LOOP = parallel
168       I        ak0(i,j,bi,bj), fugf(i,j,bi,bj),       I        ak0(i,j,bi,bj), fugf(i,j,bi,bj),
169       I        ff(i,j,bi,bj),       I        ff(i,j,bi,bj),
170       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),
171       U        pH(i,j,bi,bj),pCO2(i,j,bi,bj),       U        pH(i,j,bi,bj),pCO2(i,j,bi,bj),co3dummy,
172       I        i,j,kLev,bi,bj,myIter,myThid )       I        i,j,kLev,bi,bj,myIter,myThid )
173            ELSE            ELSE
174              pCO2(i,j,bi,bj)=0. _d 0              pCO2(i,j,bi,bj)=0. _d 0
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22