/[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.3 by jahn, Thu Sep 22 16:01:30 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    
       _END_MASTER(myThid)  
   
165         IF ( myProcId.EQ.0 .AND. myThid.EQ.1 ) THEN         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
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22