Parent Directory | Revision Log | Revision Graph
New package for controlling termination of the model based on the wall clock: This is handy for those of us who keep losing 5000 cpuhours because the model took 5 minutes longer than it did the day before. To use: In package.conf, add runclock In data.pkg, add useRunClock=.TRUE. Add data.runclock to read &RUNCLOCK RC_maxtime_hr=2, RC_maxtime_mi=30, RC_maxtime_sc=0, & The package also write the delta Wall Clock between each model step. Who can explain a 30% slow down after 60 iterations? Who even knew about it? Now you can find out lots of dark secrets about the EM EYE TEE GEE SEE EM...
1 | C $Header: $ |
2 | C $Name: $ |
3 | |
4 | #ifdef ALLOW_RUNCLOCK |
5 | |
6 | C Package flag |
7 | logical RUNCLOCKisON |
8 | COMMON /RC_PACKAGE/ RUNCLOCKisON |
9 | |
10 | C RUNCLOCK parameters |
11 | INTEGER RC_maxtime_hr, RC_maxtime_mi, RC_maxtime_sc |
12 | COMMON /RC_PARAMS/ |
13 | & RC_maxtime_hr, RC_maxtime_mi, RC_maxtime_sc |
14 | |
15 | C RUNCLOCK internal state |
16 | Real*8 RC_start_tins,RC_prev_tins |
17 | INTEGER RC_start_yr, RC_start_mo, RC_start_dy |
18 | INTEGER RC_start_hr, RC_start_mi, RC_start_sc |
19 | COMMON /RC_INTERNAL/ |
20 | & RC_start_tins,RC_prev_tins, |
21 | & RC_start_yr, RC_start_mo, RC_start_dy, |
22 | & RC_start_hr, RC_start_mi, RC_start_sc |
23 | |
24 | #endif /* ALLOW_RUNCLCOK */ |
ViewVC Help | |
Powered by ViewVC 1.1.22 |