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 | adcroft | 1.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 |