Parent Directory | Revision Log | Revision Graph | Patch
revision 1.8 by heimbach, Fri Oct 5 18:53:21 2007 UTC | revision 1.9 by jmc, Tue Oct 9 00:02:50 2007 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | C $Header$ | |
2 | C $Name$ | |
3 | ||
4 | #include "COST_CPPOPTIONS.h" | #include "COST_CPPOPTIONS.h" |
5 | ||
# | Line 125 c-- Read time averages and the month | Line 127 c-- Read time averages and the month |
127 | ||
128 | _GLOBAL_SUM_R8( sumtot , myThid ) | _GLOBAL_SUM_R8( sumtot , myThid ) |
129 | _GLOBAL_SUM_R8( fctiletot , myThid ) | _GLOBAL_SUM_R8( fctiletot , myThid ) |
130 | ||
131 | if (sumtot.eq.0.) sumtot = 1. | if (sumtot.eq.0.) sumtot = 1. |
132 | ||
133 | if ( wmean_sflux .NE. 0. ) then | if ( wmean_sflux .NE. 0. ) then |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |