00001 integer step
00002
00003
00004 real dt
00005 real rd(nx,ny,nz_max,nvar)
00006 real rrhoe(nx,ny,nz_max)
00007 real rrhoc(nx,ny,nz_max)
00008 real rpress(nx,ny,nz_max)
00009 real coeff(nx,ny,nz_max,ncoeff,2)
00010 complex fd(nx/2+1,ny,nz_max,nvar)
00011 complex dfddt(nx/2+1,ny,nz_max,nvar)
00012 complex ider(nx/2+1,ny,nz_max,3)
00013 complex diff(nx/2+1,ny,nz_max)
00014 real rvtemp(nx,ny,nz_max,3)
00015 complex fvtemp(nx/2+1,ny,nz_max,3)
00016 complex fpress(nx/2+1,ny,nz_max)
00017 complex frhoe(nx/2+1,ny,nz_max)
00018 complex frhoc(nx/2+1,ny,nz_max)
00019 real drddt(nx,ny,nz_max,nvar)
00020 complex diffdfddt(nx/2+1,ny,nz_max,nvar)
00021 real meandens(nz_max)
00022 real bc(nx/2+1,ny)
00023
00024 complex fdB(nx/2+1,ny,nz_max,3)
00025
00026 complex fdUc(nx/2+1,ny,nz_max,3)
00027 complex fdUe(nx/2+1,ny,nz_max,3)
00028 real rdUc(nx,ny,nz_max,3)
00029 real rdUe(nx,ny,nz_max,3)
00030
00031
00032 complex fB0(nx/2+1,ny,nz_max,3)
00033 real rdB(nx,ny,nz_max,3)
00034 real rB0(nx,ny,nz_max,3)
00035 complex fdJ(nx/2+1,ny,nz_max,3)
00036 real rdJ(nx,ny,nz_max,3)
00037 complex fJ0(nx/2+1,ny,nz_max,3)
00038 real rJ0(nx,ny,nz_max,3)
00039 complex fLor(nx/2+1,ny,nz_max,3)
00040 real rLor(nx,ny,nz_max,3)
00041 complex fInertia(nx/2+1,ny,nz_max,3)
00042 real rInertia(nx,ny,nz_max,3)
00043
00044 real rsrc_amp(nx,ny,nz_max)
00045 complex fsrc_amp(nx/2+1,ny,nz_max)
00046
00047
00048 common/data/ &
00049 rd, &
00050 rrhoc, &
00051 rrhoe, &
00052 rpress, &
00053 coeff, &
00054 fd, &
00055 dfddt, &
00056 ider, &
00057 diff, &
00058 rvtemp, &
00059 fvtemp, &
00060 fpress, &
00061 frhoc, &
00062 frhoe, &
00063 drddt, &
00064 diffdfddt, &
00065 meandens, &
00066 bc, &
00067 fdB, &
00068 rdB, &
00069 rdUc, &
00070 fdUc, &
00071 rdUe, &
00072 fdUe, &
00073 fB0, &
00074 rB0, &
00075 fdJ, &
00076 rdJ, &
00077 fJ0, &
00078 rJ0, &
00079 fLor, &
00080 rLor, &
00081 fInertia, &
00082 rInertia, &
00083 dt, &
00084 step, &
00085 rsrc_amp, &
00086 fsrc_amp
00087
00088
00089 integer*8
00090 plan_r2fd_1,
00091 plan_r2fd_2,
00092 plan_r2fd_3,
00093 plan_r2fd_4,
00094 plan_r2fd_5,
00095 plan_r2fd_6,
00096 plan_r2fvtemp_1,
00097 plan_r2fvtemp_2,
00098 plan_r2fvtemp_3,
00099 plan_r2fpress,
00100 plan_r2frhoc,
00101 plan_r2frhoe,
00102 plan_r2fddt_4,
00103 plan_r2fddt_5,
00104 plan_r2fddt_6,
00105 plan_f2rd_1,
00106 plan_f2rd_2,
00107 plan_f2rd_3,
00108 plan_f2rd_4,
00109 plan_f2rd_5,
00110 plan_f2rd_6,
00111 plan_f2rpress,
00112 plan_f2rrhoc,
00113 plan_f2rrhoe,
00114 plan_f2rvtemp_1,
00115 plan_f2rvtemp_2,
00116 plan_f2rvtemp_3,
00117 plan_f2rdb_1,
00118 plan_f2rdb_2,
00119 plan_f2rdb_3,
00120 plan_f2rdJ_1,
00121 plan_f2rdJ_2,
00122 plan_f2rdJ_3,
00123 plan_r2fdb_1,
00124 plan_r2fdb_2,
00125 plan_r2fdb_3,
00126 plan_r2fdJ_1,
00127 plan_r2fdJ_2,
00128 plan_r2fdJ_3,
00129 plan_r2fb0_1,
00130 plan_r2fb0_2,
00131 plan_r2fb0_3,
00132 plan_r2fdUc_1,
00133 plan_r2fdUc_2,
00134 plan_r2fdUc_3,
00135 plan_r2fdUe_1,
00136 plan_r2fdUe_2,
00137 plan_r2fdUe_3,
00138 plan_r2fsrc_amp
00139
00140 common/plans/ &
00141 plan_r2fd_1, &
00142 plan_r2fd_2, &
00143 plan_r2fd_3, &
00144 plan_r2fd_4, &
00145 plan_r2fd_5, &
00146 plan_r2fd_6, &
00147 plan_r2fvtemp_1, &
00148 plan_r2fvtemp_2, &
00149 plan_r2fvtemp_3, &
00150 plan_r2fpress, &
00151 plan_r2frhoc, &
00152 plan_r2frhoe, &
00153 plan_r2fddt_4, &
00154 plan_r2fddt_5, &
00155 plan_r2fddt_6, &
00156 plan_f2rd_1, &
00157 plan_f2rd_2, &
00158 plan_f2rd_3, &
00159 plan_f2rd_4, &
00160 plan_f2rd_5, &
00161 plan_f2rd_6, &
00162 plan_f2rpress, &
00163 plan_f2rrhoc, &
00164 plan_f2rrhoe, &
00165 plan_f2rvtemp_1, &
00166 plan_f2rvtemp_2, &
00167 plan_f2rvtemp_3, &
00168 plan_f2rdb_1, &
00169 plan_f2rdb_2, &
00170 plan_f2rdb_3, &
00171 plan_f2rdJ_1, &
00172 plan_f2rdJ_2, &
00173 plan_f2rdJ_3, &
00174 plan_r2fdb_1, &
00175 plan_r2fdb_2, &
00176 plan_r2fdb_3, &
00177 plan_r2fdJ_1, &
00178 plan_r2fdJ_2, &
00179 plan_r2fdJ_3, &
00180 plan_r2fb0_1, &
00181 plan_r2fb0_2, &
00182 plan_r2fb0_3, &
00183 plan_r2fdUc_1, &
00184 plan_r2fdUc_2, &
00185 plan_r2fdUc_3, &
00186 plan_r2fdUe_1, &
00187 plan_r2fdUe_2, &
00188 plan_r2fdUe_3, &
00189 plan_r2fsrc_amp
00190
00191
00192
00193
00194
00195
00196
00197
00198
00199
