Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.3 by jscott, Fri Aug 17 15:27:11 2007 UTC | revision 1.4 by jscott, Thu Aug 23 20:32:22 2007 UTC | |
|---|---|---|
| # | Line 310 C Initialize year-end diags and max/ | Line 310 C Initialize year-end diags and max/ |
| 310 | sss_tave= 0. _d 0 | sss_tave= 0. _d 0 |
| 311 | HF2ocn_tave= 0. _d 0 | HF2ocn_tave= 0. _d 0 |
| 312 | FW2ocn_tave= 0. _d 0 | FW2ocn_tave= 0. _d 0 |
| 313 | CO2flx_tave= 0. _d 0 | |
| 314 | OPEN(25,FILE='resocean.dat',STATUS='replace') | OPEN(25,FILE='resocean.dat',STATUS='replace') |
| 315 | CLOSE(25) | CLOSE(25) |
| 316 | ||
| # | Line 332 C Initialize following for safety an | Line 333 C Initialize following for safety an |
| 333 | ENDDO | ENDDO |
| 334 | ENDDO | ENDDO |
| 335 | ||
| 336 | C Initialize following (if ocn carbon not passed) | |
| 337 | DO i=1,sNx | |
| 338 | DO j=1,sNy | |
| 339 | oFluxCO2(i,j) = 0. _d 0 | |
| 340 | ENDDO | |
| 341 | ENDDO | |
| 342 | ||
| 343 | RETURN | RETURN |
| 344 | END | END |
| 345 |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |