/[MITgcm]/MITgcm_contrib/darwin2/pkg/monod/monod_cons.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/monod/monod_cons.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by stephd, Tue Jul 24 18:27:28 2012 UTC revision 1.6 by jahn, Fri Jun 21 12:49:47 2013 UTC
# Line 175  c       print*,'tmptotO',tmptotO Line 175  c       print*,'tmptotO',tmptotO
175  #endif  #endif
176    
177         IF ( myProcId.EQ.0 .AND. myThid.EQ.1 ) THEN         IF ( myProcId.EQ.0 .AND. myThid.EQ.1 ) THEN
178          write(DAR_cons_unit1,*), myIter, tmptotP, tmptotP/voltot          write(DAR_cons_unitP,*), myIter, tmptotP, tmptotP/voltot
179          write(DAR_cons_unit2,*), myIter, tmptotN, tmptotN/voltot          write(DAR_cons_unitN,*), myIter, tmptotN, tmptotN/voltot
180          write(DAR_cons_unit3,*), myIter, tmptotFe, tmptotFe/voltot          write(DAR_cons_unitF,*), myIter, tmptotFe, tmptotFe/voltot
181          write(DAR_cons_unit4,*), myIter, tmptotSi, tmptotSi/voltot          write(DAR_cons_unitS,*), myIter, tmptotSi, tmptotSi/voltot
182  #ifdef ALLOW_CARBON  #ifdef ALLOW_CARBON
183          write(DAR_cons_unit5,*), myIter, tmptotC, tmptotC/voltot          write(DAR_cons_unitC,*), myIter, tmptotC, tmptotC/voltot
184          write(DAR_cons_unit6,*), myIter, tmptotA, tmptotA/voltot          write(DAR_cons_unitA,*), myIter, tmptotA, tmptotA/voltot
185          write(DAR_cons_unit7,*), myIter, tmptotO, tmptotO/voltot          write(DAR_cons_unitO,*), myIter, tmptotO, tmptotO/voltot
186  #endif  #endif
187        ENDIF        ENDIF
188    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22