1 |
heimbach |
1.1 |
*** ad_taf_output.f.orig Wed Oct 13 13:18:38 2004 |
2 |
|
|
--- ad_taf_output.f Wed Oct 13 13:41:54 2004 |
3 |
|
|
*************** |
4 |
|
|
*** 61912,61917 **** |
5 |
|
|
--- 61912,61947 ---- |
6 |
|
|
$tempvertadvscheme, saltadvscheme, saltvertadvscheme, |
7 |
|
|
$traceradvscheme, debuglevel |
8 |
|
|
|
9 |
|
|
+ logical useaim |
10 |
|
|
+ logical usebulkforce |
11 |
|
|
+ logical usediagnostics |
12 |
|
|
+ logical useebm |
13 |
|
|
+ logical useecco |
14 |
|
|
+ logical usefizhi |
15 |
|
|
+ logical useflt |
16 |
|
|
+ logical useggl90 |
17 |
|
|
+ logical usegmredi |
18 |
|
|
+ logical usegrdchk |
19 |
|
|
+ logical usegridalt |
20 |
|
|
+ logical usekpp |
21 |
|
|
+ logical useland |
22 |
|
|
+ logical usemnc |
23 |
|
|
+ logical usemy82 |
24 |
|
|
+ logical useobcs |
25 |
|
|
+ logical useopps |
26 |
|
|
+ logical usepp81 |
27 |
|
|
+ logical useptracers |
28 |
|
|
+ logical usesbo |
29 |
|
|
+ logical useseaice |
30 |
|
|
+ logical useshap_filt |
31 |
|
|
+ logical usethsice |
32 |
|
|
+ logical usezonal_filt |
33 |
|
|
+ common /parm_packages/ usekpp, usegmredi, useobcs, useaim, |
34 |
|
|
+ $useland, useecco, useshap_filt, usezonal_filt, usegrdchk, useflt, |
35 |
|
|
+ $useptracers, usesbo, useseaice, usethsice, usebulkforce, usefizhi, |
36 |
|
|
+ $ usegridalt, usediagnostics, useebm, usemnc, usepp81, usemy82, |
37 |
|
|
+ $useopps, useggl90 |
38 |
|
|
+ |
39 |
|
|
logical allowfreezing |
40 |
|
|
logical debugmode |
41 |
|
|
logical dosaltclimrelax |
42 |
|
|
*************** |
43 |
|
|
*** 63806,63811 **** |
44 |
|
|
--- 63836,63845 ---- |
45 |
|
|
end do |
46 |
|
|
end do |
47 |
|
|
end do |
48 |
|
|
+ cph( |
49 |
|
|
+ usekpp=.false. |
50 |
|
|
+ usegmredi=.false. |
51 |
|
|
+ cph) |
52 |
|
|
call addo_fields_blocking_exchanges( mythid ) |
53 |
|
|
call adtracers_correction_step( mytime,mythid ) |
54 |
|
|
if (staggertimestep) then |
55 |
|
|
*************** |
56 |
|
|
*** 63829,63834 **** |
57 |
|
|
--- 63863,63872 ---- |
58 |
|
|
call adexf_getforcing( mytime,myiter,mythid ) |
59 |
|
|
mytime = starttime+float(iloop-1)*deltatclock |
60 |
|
|
call adcost_averagesfields( mytime,mythid ) |
61 |
|
|
+ cph( |
62 |
|
|
+ usekpp=.true. |
63 |
|
|
+ usegmredi=.true. |
64 |
|
|
+ cph) |
65 |
|
|
endif |
66 |
|
|
end do |
67 |
|
|
|