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

Diff of /MITgcm_contrib/bling/pkg/bling_main.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, Wed May 4 23:22:25 2016 UTC
# Line 144  C$TAF STORE P_sm = comlev1,     key = ik Line 144  C$TAF STORE P_sm = comlev1,     key = ik
144  C$TAF STORE P_lg = comlev1,     key = ikey_dynamics, kind=isbyte  C$TAF STORE P_lg = comlev1,     key = ikey_dynamics, kind=isbyte
145  C$TAF STORE P_diaz = comlev1,   key = ikey_dynamics, kind=isbyte  C$TAF STORE P_diaz = comlev1,   key = ikey_dynamics, kind=isbyte
146  #endif  #endif
147    CMM(
148    CADJ STORE ph = comlev1, key = ikey_dynamics,
149    CADJ &    kind = isbyte
150    CMM)
151  c-----------------------------------------------------------  c-----------------------------------------------------------
152  c  determine calcite saturation for remineralization  c  determine calcite saturation for remineralization
153         CALL BLING_CARBONATE_SYS(         CALL BLING_CARBONATE_SYS(
# Line 152  c  determine calcite saturation for remi Line 155  c  determine calcite saturation for remi
155       I                         bi, bj, imin, imax, jmin, jmax,       I                         bi, bj, imin, imax, jmin, jmax,
156       I                         myIter, myTime, myThid)       I                         myIter, myTime, myThid)
157    
   
158  C-----------------------------------------------------------  C-----------------------------------------------------------
159  C  biological activity  C  biological activity
160         CALL BLING_PROD(         CALL BLING_PROD(
# Line 166  C  biological activity Line 168  C  biological activity
168       I                 bi, bj, imin, imax, jmin, jmax,       I                 bi, bj, imin, imax, jmin, jmax,
169       I                 myIter, myTime, myThid)       I                 myIter, myTime, myThid)
170    
   
171  #ifndef ADVECT_PHYTO  #ifndef ADVECT_PHYTO
172  C$TAF STORE P_sm = comlev1, key = ikey_dynamics, kind=isbyte  C$TAF STORE P_sm = comlev1, key = ikey_dynamics, kind=isbyte
173  C$TAF STORE P_lg = comlev1, key = ikey_dynamics, kind=isbyte  C$TAF STORE P_lg = comlev1, key = ikey_dynamics, kind=isbyte
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22