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