Parent Directory | Revision Log | Revision Graph | Patch
revision 1.11 by jmc, Tue Apr 28 18:10:47 2009 UTC | revision 1.12 by heimbach, Wed Oct 14 20:12:30 2009 UTC | |
---|---|---|
# | Line 45 cswdmonth -add- | Line 45 cswdmonth -add- |
45 | cswddmonth -- end- | cswddmonth -- end- |
46 | c | c |
47 | c initialize to zero | c initialize to zero |
48 | totcost=0.d0 | cph totcost=0.d0 |
49 | DO bj = myByLo(myThid), myByHi(myThid) | DO bj = myByLo(myThid), myByHi(myThid) |
50 | DO bi = myBxLo(myThid), myBxHi(myThid) | DO bi = myBxLo(myThid), myBxHi(myThid) |
51 | CALL TIMEAVE_RESET(PO4obs, Nr, bi, bj, myThid) | CALL TIMEAVE_RESET(PO4obs, Nr, bi, bj, myThid) |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |