/[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.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    
140  cxx C$TAF STORE irr_inst = comlev1, key = ikey_dynamics, kind=isbyte  CADJ STORE ph = comlev1, key = ikey_dynamics,
141  C$TAF STORE irr_mem = comlev1,  key = ikey_dynamics, kind=isbyte  CADJ &    kind = isbyte
142  #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  
   
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 152  c  determine calcite saturation for remi Line 147  c  determine calcite saturation for remi
147       I                         bi, bj, imin, imax, jmin, jmax,       I                         bi, bj, imin, imax, jmin, jmax,
148       I                         myIter, myTime, myThid)       I                         myIter, myTime, myThid)
149    
   
150  C-----------------------------------------------------------  C-----------------------------------------------------------
151  C  biological activity  C  biological activity
152         CALL BLING_PROD(         CALL BLING_PROD(
# Line 167  C  biological activity Line 161  C  biological activity
161       I                 myIter, myTime, myThid)       I                 myIter, myTime, myThid)
162    
163    
 #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  
   
   
164  C-----------------------------------------------------------  C-----------------------------------------------------------
165  C  Calculate river runoff source  C  Calculate river runoff source
166  C  Tracers are already diluted by freswater input, P-E+R  C  Tracers are already diluted by freswater input, P-E+R
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22