/[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.2 by stephd, Mon Oct 6 20:11:10 2003 UTC
# Line 24  C     == GLobal variables == Line 24  C     == GLobal variables ==
24  #ifdef DIC_BIOTIC  #ifdef DIC_BIOTIC
25  #include "DIC_BIOTIC.h"  #include "DIC_BIOTIC.h"
26  #include "DIC_DIAGS.h"  #include "DIC_DIAGS.h"
27    #include "DIC_COST.h"
28  #endif  #endif
29  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
30  #include "ICE.h"  #include "ICE.h"
# Line 41  C     == Local variables == Line 42  C     == Local variables ==
42        EXTERNAL DIFFERENT_MULTIPLE        EXTERNAL DIFFERENT_MULTIPLE
43        INTEGER i, j, bi, bj, k, it        INTEGER i, j, bi, bj, k, it
44  c  c
45        _RL po4cost, o2cost, sumvol, totcost        _RL po4cost, o2cost, sumvol
46        _RL po4costm, o2costm, sumvolm        _RL po4costm, o2costm, sumvolm
47  c  c
48  c calculate costfunction  c calculate costfunction
49    
50         _BEGIN_MASTER(myThid)          _BEGIN_MASTER(myThid)
51    
52         sumvol= 0. _d 0         sumvol= 0. _d 0
53         po4cost= 0. _d 0         po4cost= 0. _d 0
54         o2cost=0.d0         o2cost=0.d0
55  cswdmonth-add--  cswdmonth-add--
56           sumvolm=0.d0
57         po4costm=0.d0         po4costm=0.d0
58         o2costm=0.d0         o2costm=0.d0
59  cswdmonth -- end add --  cswdmonth -- end add --
# Line 121  cswdmonth-end Line 123  cswdmonth-end
123    
124          print*,'COST ',totcost, po4cost, o2cost,po4costm,o2costm          print*,'COST ',totcost, po4cost, o2cost,po4costm,o2costm
125    
126        _END_MASTER(myThid)         _END_MASTER(myThid)
127  c  c
128  #endif  #endif
129        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22