/[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.2 by stephd, Wed May 11 17:36:09 2011 UTC revision 1.3 by jahn, Thu Sep 22 16:01:30 2011 UTC
# Line 163  c       print*,'tmptotA',tmptotA Line 163  c       print*,'tmptotA',tmptotA
163  c       print*,'tmptotO',tmptotO  c       print*,'tmptotO',tmptotO
164  #endif  #endif
165    
166          _END_MASTER(myThid)
167    
168           IF ( myProcId.EQ.0 .AND. myThid.EQ.1 ) THEN
169          write(DAR_cons_unit1,*), myIter, tmptotP, tmptotP/voltot          write(DAR_cons_unit1,*), myIter, tmptotP, tmptotP/voltot
170          write(DAR_cons_unit2,*), myIter, tmptotN, tmptotN/voltot          write(DAR_cons_unit2,*), myIter, tmptotN, tmptotN/voltot
171          write(DAR_cons_unit3,*), myIter, tmptotFe, tmptotFe/voltot          write(DAR_cons_unit3,*), myIter, tmptotFe, tmptotFe/voltot
# Line 172  c       print*,'tmptotO',tmptotO Line 175  c       print*,'tmptotO',tmptotO
175          write(DAR_cons_unit6,*), myIter, tmptotA, tmptotA/voltot          write(DAR_cons_unit6,*), myIter, tmptotA, tmptotA/voltot
176          write(DAR_cons_unit7,*), myIter, tmptotO, tmptotO/voltot          write(DAR_cons_unit7,*), myIter, tmptotO, tmptotO/voltot
177  #endif  #endif
178          ENDIF
       _END_MASTER(myThid)  
179    
180  C--   Everyone else must wait  C--   Everyone else must wait
181        _BARRIER        _BARRIER
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22