/[MITgcm]/MITgcm/pkg/dic/dic_cost.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_cost.F

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

revision 1.1 by stephd, Wed Jun 25 21:00:36 2003 UTC revision 1.5 by jmc, Wed Apr 6 18:36:47 2005 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  cswdcost -- add sunroutine ---  cswdcost -- add sunroutine ---
5  #include "CPP_OPTIONS.h"  #include "DIC_OPTIONS.h"
6  #include "GCHEM_OPTIONS.h"  #include "GCHEM_OPTIONS.h"
7    
8    
# Line 18  C     == GLobal variables == Line 21  C     == GLobal variables ==
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
23  #include "GRID.h"  #include "GRID.h"
24    #include "PTRACERS_SIZE.h"
25  #include "PTRACERS.h"  #include "PTRACERS.h"
26  #include "GCHEM.h"  #include "GCHEM.h"
27  #include "DIC_ABIOTIC.h"  #include "DIC_ABIOTIC.h"
28  #ifdef DIC_BIOTIC  #ifdef DIC_BIOTIC
29  #include "DIC_BIOTIC.h"  #include "DIC_BIOTIC.h"
30  #include "DIC_DIAGS.h"  #include "DIC_DIAGS.h"
31    #include "DIC_COST.h"
32  #endif  #endif
33  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
34  #include "ICE.h"  #include "ICE.h"
# Line 37  C     == Routine arguments == Line 42  C     == Routine arguments ==
42  #ifdef ALLOW_DIC_COST  #ifdef ALLOW_DIC_COST
43    
44  C     == Local variables ==  C     == Local variables ==
       LOGICAL  DIFFERENT_MULTIPLE  
       EXTERNAL DIFFERENT_MULTIPLE  
45        INTEGER i, j, bi, bj, k, it        INTEGER i, j, bi, bj, k, it
46  c  c
47        _RL po4cost, o2cost, sumvol, totcost        _RL po4cost, o2cost, sumvol
48        _RL po4costm, o2costm, sumvolm        _RL po4costm, o2costm, sumvolm
49  c  c
50  c calculate costfunction  c calculate costfunction
51    
52         _BEGIN_MASTER(myThid)          _BEGIN_MASTER(myThid)
53    
54         sumvol= 0. _d 0         sumvol= 0. _d 0
55         po4cost= 0. _d 0         po4cost= 0. _d 0
56         o2cost=0.d0         o2cost=0.d0
57  cswdmonth-add--  cswdmonth-add--
58           sumvolm=0.d0
59         po4costm=0.d0         po4costm=0.d0
60         o2costm=0.d0         o2costm=0.d0
61  cswdmonth -- end add --  cswdmonth -- end add --
# Line 121  cswdmonth-end Line 125  cswdmonth-end
125    
126          print*,'COST ',totcost, po4cost, o2cost,po4costm,o2costm          print*,'COST ',totcost, po4cost, o2cost,po4costm,o2costm
127    
128        _END_MASTER(myThid)         _END_MASTER(myThid)
129  c  c
130  #endif  #endif
131        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22