1 |
cnh |
1.3 |
% $Header: /u/u0/gcmpack/mitgcmdoc/part5/doc_ad_the_main.tex,v 1.2 2001/10/05 22:22:20 heimbach Exp $ |
2 |
heimbach |
1.2 |
% $Name: $ |
3 |
cnh |
1.3 |
\begin{figure} |
4 |
adcroft |
1.1 |
|
5 |
heimbach |
1.2 |
{\scriptsize |
6 |
adcroft |
1.1 |
\begin{verbatim} |
7 |
|
|
************* |
8 |
|
|
the_main_loop |
9 |
|
|
************* |
10 |
|
|
| |
11 |
|
|
|--- initialise_varia |
12 |
|
|
| | |
13 |
|
|
| ... |
14 |
|
|
| |--- packages_init_varia |
15 |
|
|
| | | |
16 |
|
|
| | ... |
17 |
|
|
| | |--- #ifdef ALLOW_ADJOINT_RUN |
18 |
|
|
| | | call ctrl_map_ini |
19 |
|
|
| | | call cost_ini |
20 |
|
|
| | | #endif |
21 |
|
|
| | ... |
22 |
|
|
| | o |
23 |
|
|
| ... |
24 |
|
|
| o |
25 |
|
|
... |
26 |
|
|
|--- #ifdef ALLOW_ADJOINT_RUN |
27 |
|
|
| call ctrl_map_forcing |
28 |
|
|
| #endif |
29 |
|
|
... |
30 |
|
|
|--- #ifdef ALLOW_TAMC_CHECKPOINTING |
31 |
|
|
do ilev_3 = 1,nchklev_3 |
32 |
|
|
| do ilev_2 = 1,nchklev_2 |
33 |
|
|
| do ilev_1 = 1,nchklev_1 |
34 |
|
|
| iloop = (ilev_3-1)*nchklev_2*nchklev_1 + |
35 |
|
|
| (ilev_2-1)*nchklev_1 + ilev_1 |
36 |
|
|
| #else |
37 |
|
|
| do iloop = 1, nTimeSteps |
38 |
|
|
| #endif |
39 |
|
|
| | |
40 |
|
|
| |--- call forward_step |
41 |
|
|
| | |
42 |
|
|
| |--- #ifdef ALLOW_COST |
43 |
|
|
| | call cost_tile |
44 |
|
|
| | #endif |
45 |
|
|
| | |
46 |
|
|
| | enddo |
47 |
|
|
| o |
48 |
|
|
| |
49 |
|
|
|--- #ifdef ALLOW_COST |
50 |
|
|
| call cost_final |
51 |
|
|
| #endif |
52 |
|
|
o |
53 |
|
|
\end{verbatim} |
54 |
|
|
} |
55 |
cnh |
1.3 |
\caption{~} |
56 |
|
|
\label{fig:adthemain} |
57 |
|
|
\end{figure} |