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 |
|