Parent Directory | Revision Log | Revision Graph | Patch
revision 1.7 by heimbach, Sun Dec 24 14:23:44 2006 UTC | revision 1.8 by heimbach, Fri Oct 5 18:53:21 2007 UTC | |
---|---|---|
# | Line 130 c-- Read time averages and the month | Line 130 c-- Read time averages and the month |
130 | ||
131 | if ( wmean_sflux .NE. 0. ) then | if ( wmean_sflux .NE. 0. ) then |
132 | objf_sfluxmm = objf_sfluxmm | objf_sfluxmm = objf_sfluxmm |
133 | & + (fctiletot/sumtot/wmean_sflux)**2 | & + ( (fctiletot/sumtot-1.D0)/wmean_sflux )**2 |
134 | else | else |
135 | objf_sfluxmm = 0. _d 0 | objf_sfluxmm = 0. _d 0 |
136 | endif | endif |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |