/[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.4 by jahn, Wed Dec 7 20:04:00 2011 UTC
# Line 49  C============== Local variables ======== Line 49  C============== Local variables ========
49         INTEGER np, nz, npnum         INTEGER np, nz, npnum
50    
51    
       _BEGIN_MASTER(myThid)  
52  c  c
53           tmptotP=0. _d 0           tmptotP=0. _d 0
54           tmptotN=0. _d 0           tmptotN=0. _d 0
# Line 163  c       print*,'tmptotA',tmptotA Line 162  c       print*,'tmptotA',tmptotA
162  c       print*,'tmptotO',tmptotO  c       print*,'tmptotO',tmptotO
163  #endif  #endif
164    
165           IF ( myProcId.EQ.0 .AND. myThid.EQ.1 ) THEN
166          write(DAR_cons_unit1,*), myIter, tmptotP, tmptotP/voltot          write(DAR_cons_unit1,*), myIter, tmptotP, tmptotP/voltot
167          write(DAR_cons_unit2,*), myIter, tmptotN, tmptotN/voltot          write(DAR_cons_unit2,*), myIter, tmptotN, tmptotN/voltot
168          write(DAR_cons_unit3,*), myIter, tmptotFe, tmptotFe/voltot          write(DAR_cons_unit3,*), myIter, tmptotFe, tmptotFe/voltot
# Line 172  c       print*,'tmptotO',tmptotO Line 172  c       print*,'tmptotO',tmptotO
172          write(DAR_cons_unit6,*), myIter, tmptotA, tmptotA/voltot          write(DAR_cons_unit6,*), myIter, tmptotA, tmptotA/voltot
173          write(DAR_cons_unit7,*), myIter, tmptotO, tmptotO/voltot          write(DAR_cons_unit7,*), myIter, tmptotO, tmptotO/voltot
174  #endif  #endif
175          ENDIF
       _END_MASTER(myThid)  
176    
177  C--   Everyone else must wait  C--   Everyone else must wait
178        _BARRIER        _BARRIER
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22