/[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.4 by mmazloff, Wed May 4 23:22:25 2016 UTC revision 1.5 by mmazloff, Sun May 15 00:30:35 2016 UTC
# Line 137  c  carbon and oxygen air-sea interaction Line 137  c  carbon and oxygen air-sea interaction
137       I                       bi, bj, imin, imax, jmin, jmax,       I                       bi, bj, imin, imax, jmin, jmax,
138       I                       myIter, myTime, myThid)       I                       myIter, myTime, myThid)
139    
 cxx C$TAF STORE irr_inst = comlev1, key = ikey_dynamics, kind=isbyte  
 C$TAF STORE irr_mem = comlev1,  key = ikey_dynamics, kind=isbyte  
 #ifndef ADVECT_PHYTO  
 C$TAF STORE P_sm = comlev1,     key = ikey_dynamics, kind=isbyte  
 C$TAF STORE P_lg = comlev1,     key = ikey_dynamics, kind=isbyte  
 C$TAF STORE P_diaz = comlev1,   key = ikey_dynamics, kind=isbyte  
 #endif  
 CMM(  
140  CADJ STORE ph = comlev1, key = ikey_dynamics,  CADJ STORE ph = comlev1, key = ikey_dynamics,
141  CADJ &    kind = isbyte  CADJ &    kind = isbyte
142  CMM)  
143  c-----------------------------------------------------------  c-----------------------------------------------------------
144  c  determine calcite saturation for remineralization  c  determine calcite saturation for remineralization
145         CALL BLING_CARBONATE_SYS(         CALL BLING_CARBONATE_SYS(
# Line 168  C  biological activity Line 160  C  biological activity
160       I                 bi, bj, imin, imax, jmin, jmax,       I                 bi, bj, imin, imax, jmin, jmax,
161       I                 myIter, myTime, myThid)       I                 myIter, myTime, myThid)
162    
 #ifndef ADVECT_PHYTO  
 C$TAF STORE P_sm = comlev1, key = ikey_dynamics, kind=isbyte  
 C$TAF STORE P_lg = comlev1, key = ikey_dynamics, kind=isbyte  
 C$TAF STORE P_diaz = comlev1, key = ikey_dynamics, kind=isbyte  
 #endif  
   
163    
164  C-----------------------------------------------------------  C-----------------------------------------------------------
165  C  Calculate river runoff source  C  Calculate river runoff source
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22