/[MITgcm]/MITgcm_contrib/darwin2/pkg/quota/quota_cons.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/quota/quota_cons.F

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

revision 1.1 by jahn, Wed Apr 13 18:56:26 2011 UTC revision 1.2 by jahn, Thu Jun 20 21:47:20 2013 UTC
# Line 146  c--------------------------------------- Line 146  c---------------------------------------
146    
147        _GLOBAL_SUM_RL(tmptotC,myThid)        _GLOBAL_SUM_RL(tmptotC,myThid)
148        print*,'tmptotC',tmptotC        print*,'tmptotC',tmptotC
149        write(DAR_cons_unit1,*), myIter, tmptotC, tmptotC/voltot        write(DAR_cons_unitC,*), myIter, tmptotC, tmptotC/voltot
150        _GLOBAL_SUM_RL(tmptotN,myThid)        _GLOBAL_SUM_RL(tmptotN,myThid)
151        print*,'tmptotN',tmptotN        print*,'tmptotN',tmptotN
152        write(DAR_cons_unit2,*), myIter, tmptotN, tmptotN/voltot        write(DAR_cons_unitN,*), myIter, tmptotN, tmptotN/voltot
153  #ifdef PQUOTA  #ifdef PQUOTA
154        _GLOBAL_SUM_RL(tmptotP,myThid)        _GLOBAL_SUM_RL(tmptotP,myThid)
155        print*,'tmptotP',tmptotP        print*,'tmptotP',tmptotP
156        write(DAR_cons_unit2,*), myIter, tmptotP, tmptotP/voltot        write(DAR_cons_unitP,*), myIter, tmptotP, tmptotP/voltot
157  #endif  #endif
158  #ifdef FQUOTA  #ifdef FQUOTA
159        _GLOBAL_SUM_RL(tmptotF,myThid)        _GLOBAL_SUM_RL(tmptotF,myThid)
160        print*,'tmptotF',tmptotF        print*,'tmptotF',tmptotF
161        write(DAR_cons_unit2,*), myIter, tmptotF, tmptotF/voltot        write(DAR_cons_unitF,*), myIter, tmptotF, tmptotF/voltot
162  #endif  #endif
163  #ifdef SQUOTA  #ifdef SQUOTA
164        _GLOBAL_SUM_RL(tmptotS,myThid)        _GLOBAL_SUM_RL(tmptotS,myThid)
165        print*,'tmptotS',tmptotS        print*,'tmptotS',tmptotS
166        write(DAR_cons_unit2,*), myIter, tmptotS, tmptotS/voltot        write(DAR_cons_unitS,*), myIter, tmptotS, tmptotS/voltot
167  #endif  #endif
168        print*,'-----------------------------------'        print*,'-----------------------------------'
169        _END_MASTER(myThid)        _END_MASTER(myThid)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22