--- MITgcm_contrib/bling/pkg/bling_main.F	2016/02/28 21:49:24	1.3
+++ MITgcm_contrib/bling/pkg/bling_main.F	2016/05/04 23:22:25	1.4
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/bling/pkg/bling_main.F,v 1.3 2016/02/28 21:49:24 mmazloff Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/bling/pkg/bling_main.F,v 1.4 2016/05/04 23:22:25 mmazloff Exp $
 C $Name:  $
 
 #include "BLING_OPTIONS.h"
@@ -144,7 +144,10 @@
 C$TAF STORE P_lg = comlev1,     key = ikey_dynamics, kind=isbyte
 C$TAF STORE P_diaz = comlev1,   key = ikey_dynamics, kind=isbyte
 #endif
- 
+CMM(
+CADJ STORE ph = comlev1, key = ikey_dynamics,
+CADJ &    kind = isbyte
+CMM) 
 c-----------------------------------------------------------
 c  determine calcite saturation for remineralization
        CALL BLING_CARBONATE_SYS(
@@ -152,7 +155,6 @@
      I                         bi, bj, imin, imax, jmin, jmax,
      I                         myIter, myTime, myThid)
 
-
 C-----------------------------------------------------------
 C  biological activity 
        CALL BLING_PROD( 
@@ -166,7 +168,6 @@
      I                 bi, bj, imin, imax, jmin, jmax, 
      I                 myIter, myTime, myThid)
 
-
 #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