| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_v_drag.F |
53 |
SHELFICE_V_DRAG |
INTEGER I,J,kUp,kUpC,kTop |
|
./pkg/shelfice/shelfice_init.F |
31 |
SHELFICE_INIT_FIXED |
INTEGER I, J, K, bi, bj |
|
./pkg/shelfice/shelfice_init.F |
40 |
SHELFICE_INIT_FIXED |
DO I = 1-OLx, sNx+OLx |
|
./pkg/shelfice/shelfice_init.F |
45 |
SHELFICE_INIT_FIXED |
IF ( hFacC(I,J,K,bi,bj) .NE. 0. _d 0 ) |
|
./pkg/shelfice/shelfice_init.F |
46 |
SHELFICE_INIT_FIXED |
& kTopC(I,J,bi,bj) = K |
|
./pkg/shelfice/shelfice_forcing.F |
140 |
SHELFICE_FORCING_S |
IF ( kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
67 |
SHELFICE_FORCING_T |
IF ( kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_u_drag.F |
53 |
SHELFICE_U_DRAG |
INTEGER I,J,kUp,kUpC,kTop |
|
./pkg/shelfice/shelfice_thermodynamics.F |
103 |
SHELFICE_THERMODYNAMICS |
& - shelfIceHeatFlux(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
107 |
SHELFICE_THERMODYNAMICS |
& shelfIceFreshWaterFlux(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
108 |
SHELFICE_THERMODYNAMICS |
& * salt(I,J,K,bi,bj) * convertEmP2rUnit |
|
./pkg/shelfice/shelfice_thermodynamics.F |
111 |
SHELFICE_THERMODYNAMICS |
& shelfIceFreshWaterFlux(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
131 |
SHELFICE_THERMODYNAMICS |
DO I = 1, sNx |
|
./pkg/shelfice/shelfice_thermodynamics.F |
132 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
133 |
SHELFICE_THERMODYNAMICS |
pLoc = ABS(R_shelfIce(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
136 |
SHELFICE_THERMODYNAMICS |
tLoc = theta(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
137 |
SHELFICE_THERMODYNAMICS |
sLoc = max(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
184 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux(I,J,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
186 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
192 |
SHELFICE_THERMODYNAMICS |
& - shelfIceHeatFlux(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
195 |
SHELFICE_THERMODYNAMICS |
& shelfIceFreshWaterFlux(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
47 |
SHELFICE_THERMODYNAMICS |
INTEGER I,J,K |
|
./pkg/shelfice/shelfice_thermodynamics.F |
81 |
SHELFICE_THERMODYNAMICS |
DO I = 1, sNx |
|
./pkg/shelfice/shelfice_thermodynamics.F |
82 |
SHELFICE_THERMODYNAMICS |
K = kTopC(I,J,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
83 |
SHELFICE_THERMODYNAMICS |
pLoc = ABS(R_shelfIce(I,J,bi,bj)) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
86 |
SHELFICE_THERMODYNAMICS |
tLoc = theta(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
87 |
SHELFICE_THERMODYNAMICS |
sLoc = max(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
93 |
SHELFICE_THERMODYNAMICS |
shelfIceHeatFlux(I,J,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
98 |
SHELFICE_THERMODYNAMICS |
shelfIceFreshWaterFlux(I,J,bi,bj) = |
|
./pkg/shelfice/shelfice_thermodynamics.F |
99 |
SHELFICE_THERMODYNAMICS |
& - shelfIceHeatFlux(I,J,bi,bj) |
|
./pkg/atm_ocn_coupler/coupler.F |
22 |
NO PROCEDURE |
INTEGER I |
|
./pkg/atm_ocn_coupler/coupler.F |
36 |
NO PROCEDURE |
DO I=1,nCouplingSteps |
|
./pkg/atm_ocn_coupler/ocn_to_atm_mapxyr8.F |
36 |
OCN_TO_ATM_MAPXYR8 |
INTEGER I,J |
|
./pkg/atm_ocn_coupler/ocn_to_atm_mapxyr8.F |
40 |
OCN_TO_ATM_MAPXYR8 |
DO I=1,aNx |
|
./pkg/atm_ocn_coupler/ocn_to_atm_mapxyr8.F |
41 |
OCN_TO_ATM_MAPXYR8 |
fld_atm(I,J)=0. |
|
./pkg/atm_ocn_coupler/ocn_to_atm_mapxyr8.F |
47 |
OCN_TO_ATM_MAPXYR8 |
DO I=1,MIN(aNx,oNx) |
|
./pkg/atm_ocn_coupler/ocn_to_atm_mapxyr8.F |
48 |
OCN_TO_ATM_MAPXYR8 |
fld_atm(I,J)=fld_ocn(I,J) |
|
./pkg/atm_ocn_coupler/atm_to_ocn_mapxyr8.F |
36 |
ATM_TO_OCN_MAPXYR8 |
INTEGER I,J |
|
./pkg/atm_ocn_coupler/atm_to_ocn_mapxyr8.F |
40 |
ATM_TO_OCN_MAPXYR8 |
DO I=1,oNx |
|
./pkg/atm_ocn_coupler/atm_to_ocn_mapxyr8.F |
41 |
ATM_TO_OCN_MAPXYR8 |
fld_ocn(I,J)=0. |
|
./pkg/atm_ocn_coupler/atm_to_ocn_mapxyr8.F |
47 |
ATM_TO_OCN_MAPXYR8 |
DO I=1,MIN(aNx,oNx) |
|
./pkg/atm_ocn_coupler/atm_to_ocn_mapxyr8.F |
48 |
ATM_TO_OCN_MAPXYR8 |
fld_ocn(I,J)=fld_atm(I,J) |
|
./pkg/pp81/pp81_calc.F |
100 |
PP81_CALC |
DO I=iMin,iMax |
|
./pkg/pp81/pp81_calc.F |
101 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscMin,PPviscAr(I,J,K,bi,bj)) |
|
./pkg/pp81/pp81_calc.F |
102 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPdiffMin,PPdiffKr(I,J,K,bi,bj)) |
|
./pkg/pp81/pp81_calc.F |
109 |
PP81_CALC |
DO I=iMin,iMax |
|
./pkg/pp81/pp81_calc.F |
110 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = PPviscAr(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
111 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
112 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = PPdiffKr(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
113 |
PP81_CALC |
& * maskC(I,J,K,bi,bj) |
|
./pkg/pp81/pp81_calc.F |
60 |
PP81_CALC |
INTEGER I, J, K |
|
./pkg/pp81/pp81_calc.F |
76 |
PP81_CALC |
DO I=iMin,iMax |
|
./pkg/pp81/pp81_calc.F |
77 |
PP81_CALC |
IF ( RiNumber(I,J) .LT. RiLimit ) THEN |
|
./pkg/pp81/pp81_calc.F |
81 |
PP81_CALC |
denom = 1.0 + PPalpha*RiNumber(I,J) |
|
./pkg/pp81/pp81_calc.F |
85 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscAr) |
|
./pkg/pp81/pp81_calc.F |
86 |
PP81_CALC |
PPdiffKr(I,J,K,bi,bj) = MAX(PPviscAr(I,J,K,bi,bj)/denom, |
|
./pkg/pp81/pp81_ri_number.F |
109 |
PP81_RI_NUMBER |
DO I = iMin, iMax |
|
./pkg/pp81/pp81_ri_number.F |
110 |
PP81_RI_NUMBER |
tempu= .5*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
111 |
PP81_RI_NUMBER |
& - (uVel(I,J,K ,bi,bj)+uVel(I+1,J,K ,bi,bj)) ) |
|
./pkg/pp81/pp81_ri_number.F |
113 |
PP81_RI_NUMBER |
tempv= .5*( vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj) |
|
./pkg/pp81/pp81_ri_number.F |
114 |
PP81_RI_NUMBER |
& - (vVel(I,J,K ,bi,bj)+vVel(I,J+1,K ,bi,bj)) ) |
|
./pkg/pp81/pp81_ri_number.F |
122 |
PP81_RI_NUMBER |
& (rhoKm1(I,J) - rhoK(I,J))*recip_drC(K) |
|
./pkg/pp81/pp81_ri_number.F |
127 |
PP81_RI_NUMBER |
RiNumber(I,J) = buoyFreq/max(RiFlux,epsilon) |
|
./pkg/pp81/pp81_ri_number.F |
134 |
PP81_RI_NUMBER |
DO I=iMin,iMax |
|
./pkg/pp81/pp81_ri_number.F |
135 |
PP81_RI_NUMBER |
RiTmp(I,J) = RiNumber(I,J) |
|
./pkg/pp81/pp81_ri_number.F |
139 |
PP81_RI_NUMBER |
DO I=1-Olx+1,sNx+Olx-1 |
|
./pkg/pp81/pp81_ri_number.F |
140 |
PP81_RI_NUMBER |
RiNumber(I,J) = p5*RiTmp(I,J) |
|
./pkg/pp81/pp81_ri_number.F |
141 |
PP81_RI_NUMBER |
& + p125*RiTmp(I-1,J) + p125*RiTmp(I+1,J) |
|
./pkg/pp81/pp81_ri_number.F |
142 |
PP81_RI_NUMBER |
& + p125*RiTmp(I,J-1) + p125*RiTmp(I,J+1) |
|
./pkg/pp81/pp81_ri_number.F |
64 |
PP81_RI_NUMBER |
INTEGER I,J,Km1 |
|
./pkg/gmredi/gmredi_rtransport.F |
50 |
GMREDI_RTRANSPORT |
INTEGER I, J |
|
./pkg/gmredi/gmredi_xtransport.F |
51 |
GMREDI_XTRANSPORT |
INTEGER I, J |
|
./pkg/gmredi/gmredi_ytransport.F |
51 |
GMREDI_YTRANSPORT |
INTEGER I, J |
|
./pkg/aim_v23/aim_diagnostics.F |
267 |
AIM_DIAGNOSTICS |
DO I=1,sNx |
|
./pkg/aim_v23/aim_diagnostics.F |
268 |
AIM_DIAGNOSTICS |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_diagnostics.F |
43 |
AIM_DIAGNOSTICS |
INTEGER I,J,K, I2,Katm |
|
./pkg/aim_v23/phy_shtorh.F |
133 |
ZMEDDY |
INTEGER I,J |
|
./pkg/aim_v23/phy_shtorh.F |
144 |
ZMEDDY |
DO 110 I=1,NLON |
|
./pkg/aim_v23/phy_shtorh.F |
145 |
ZMEDDY |
ZM(J)=ZM(J)+FF(I,J) |
|
./pkg/aim_v23/phy_shtorh.F |
149 |
ZMEDDY |
DO 120 I=1,NLON |
|
./pkg/aim_v23/phy_shtorh.F |
150 |
ZMEDDY |
EDDY(I,J)=FF(I,J)-ZM(J) |
|
./pkg/aim_v23/aim_fields_load.F |
138 |
AIM_FIELDS_LOAD |
aim_albedo(I,J,bi,bj) = aim_albedo(I,J,bi,bj)/100. |
|
./pkg/aim_v23/aim_fields_load.F |
261 |
AIM_FIELDS_LOAD |
aim_albedo(i,j,bi,bj) = aim_albedo(I,J,bi,bj)/100. _d 0 |
|
./pkg/aim_v23/aim_tendency_apply.F |
265 |
AIM_TENDENCY_APPLY_T |
INTEGER I, J |
|
./pkg/aim_v23/aim_tendency_apply.F |
269 |
AIM_TENDENCY_APPLY_T |
DO I=1,sNx |
|
./pkg/aim_v23/aim_tendency_apply.F |
313 |
AIM_TENDENCY_APPLY_S |
INTEGER I, J |
|
./pkg/aim_v23/aim_tendency_apply.F |
317 |
AIM_TENDENCY_APPLY_S |
DO I=1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
163 |
AIM_DYN2AIM |
DO I = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
164 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
169 |
AIM_DYN2AIM |
TA(I2,Katm) = theta(I,J,K,bi,bj)*conv_theta2T |
|
./pkg/aim_v23/aim_dyn2aim.F |
173 |
AIM_DYN2AIM |
QA(I2,Katm) = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/aim_v23/aim_dyn2aim.F |
175 |
AIM_DYN2AIM |
ThA(I2,Katm) = theta(I,J,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
187 |
AIM_DYN2AIM |
DO I = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
188 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
192 |
AIM_DYN2AIM |
& uVel(I,J,K,bi,bj)*uVel(I,J,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
193 |
AIM_DYN2AIM |
& + uVel(I+1,J,K,bi,bj)*uVel(I+1,J,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
194 |
AIM_DYN2AIM |
& + vVel(I,J,K,bi,bj)*vVel(I,J,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
195 |
AIM_DYN2AIM |
& + vVel(I,J+1,K,bi,bj)*vVel(I,J+1,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
236 |
AIM_DYN2AIM |
DO I = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
237 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
65 |
AIM_DYN2AIM |
INTEGER I, J, I2, K, Katm |
|
./pkg/aim_v23/aim_dyn2aim.F |
74 |
AIM_DYN2AIM |
DO I = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
75 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
76 |
AIM_DYN2AIM |
snLat(I2,myThid) = SIN(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
77 |
AIM_DYN2AIM |
csLat(I2,myThid) = COS(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
83 |
AIM_DYN2AIM |
DO I = 1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
84 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
85 |
AIM_DYN2AIM |
kGrd(I2) = (Nr+1) - ksurfC(I,J,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
91 |
AIM_DYN2AIM |
DO I=1,sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
92 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/mom_fluxform/mom_u_del2u.F |
44 |
MOM_U_DEL2U |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
48 |
MOM_U_ADV_WU |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_u_adv_uu.F |
45 |
MOM_U_ADV_UU |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
49 |
MOM_V_ADV_WV |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
50 |
MOM_V_YVISCFLUX |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
50 |
MOM_U_XVISCFLUX |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_u_coriolis.F |
45 |
MOM_U_CORIOLIS |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_v_coriolis.F |
45 |
MOM_V_CORIOLIS |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
51 |
MOM_U_YVISCFLUX |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_v_adv_vv.F |
45 |
MOM_V_ADV_VV |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_v_del2v.F |
42 |
MOM_V_DEL2V |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
51 |
MOM_V_XVISCFLUX |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_u_adv_vu.F |
46 |
MOM_U_ADV_VU |
INTEGER I,J |
|
./pkg/mom_fluxform/mom_v_adv_uv.F |
45 |
MOM_V_ADV_UV |
INTEGER I,J |
|
./pkg/zonal_filt/zonal_filt_init.F |
48 |
ZONAL_FILT_INIT |
INTEGER I, J, bi, bj, nPoints, nWv |
|
./pkg/zonal_filt/zonal_filt_init.F |
52 |
ZONAL_FILT_INIT |
ampfact(Y,I) = min( one, |
|
./pkg/zonal_filt/zonal_filt_init.F |
55 |
ZONAL_FILT_INIT |
& /(sin( PI*float(I)/float(Nx) ) )**zonal_filt_sinpow |
|
./pkg/zonal_filt/zonal_filt_init.F |
72 |
ZONAL_FILT_INIT |
ampFactor(2*I,J,bi,bj) = ampfact( yC(1,J,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
74 |
ZONAL_FILT_INIT |
ampFactor(2*I+1,J,bi,bj) = ampFactor(2*I,J,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_init.F |
75 |
ZONAL_FILT_INIT |
ampFactorV(2*I,J,bi,bj) = ampfact( yG(1,J,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
77 |
ZONAL_FILT_INIT |
ampFactorV(2*I+1,J,bi,bj) = ampFactorV(2*I,J,bi,bj) |
|
./pkg/zonal_filt/zonal_filt_init.F |
80 |
ZONAL_FILT_INIT |
I=Nx/2 |
|
./pkg/zonal_filt/zonal_filt_init.F |
82 |
ZONAL_FILT_INIT |
ampFactor(Nx,J,bi,bj) = ampfact( yC(1,J,bi,bj) , I ) |
|
./pkg/zonal_filt/zonal_filt_init.F |
83 |
ZONAL_FILT_INIT |
ampFactorV(Nx,J,bi,bj) = ampfact( yG(1,J,bi,bj) , I ) |
|
./pkg/zonal_filt/fftpack.F |
1000 |
R8ADB3 |
CR2 = CC(I-1,1,K)+TAUR*TR2 |
|
./pkg/zonal_filt/fftpack.F |
1001 |
R8ADB3 |
CH(I-1,K,1) = CC(I-1,1,K)+TR2 |
|
./pkg/zonal_filt/fftpack.F |
1002 |
R8ADB3 |
TI2 = CC(I,3,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1003 |
R8ADB3 |
CI2 = CC(I,1,K)+TAUR*TI2 |
|
./pkg/zonal_filt/fftpack.F |
1004 |
R8ADB3 |
CH(I,K,1) = CC(I,1,K)+TI2 |
|
./pkg/zonal_filt/fftpack.F |
1005 |
R8ADB3 |
CR3 = TAUI*(CC(I-1,3,K)-CC(IC-1,2,K)) |
|
./pkg/zonal_filt/fftpack.F |
1006 |
R8ADB3 |
CI3 = TAUI*(CC(I,3,K)+CC(IC,2,K)) |
|
./pkg/zonal_filt/fftpack.F |
1011 |
R8ADB3 |
CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2 |
|
./pkg/zonal_filt/fftpack.F |
1012 |
R8ADB3 |
CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2 |
|
./pkg/zonal_filt/fftpack.F |
1013 |
R8ADB3 |
CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3 |
|
./pkg/zonal_filt/fftpack.F |
1014 |
R8ADB3 |
CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3 |
|
./pkg/zonal_filt/fftpack.F |
1021 |
R8ADB4 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
1038 |
R8ADB4 |
DO 103 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1039 |
R8ADB4 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
1040 |
R8ADB4 |
TI1 = CC(I,1,K)+CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1041 |
R8ADB4 |
TI2 = CC(I,1,K)-CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1042 |
R8ADB4 |
TI3 = CC(I,3,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1043 |
R8ADB4 |
TR4 = CC(I,3,K)+CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1044 |
R8ADB4 |
TR1 = CC(I-1,1,K)-CC(IC-1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1045 |
R8ADB4 |
TR2 = CC(I-1,1,K)+CC(IC-1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1046 |
R8ADB4 |
TI4 = CC(I-1,3,K)-CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1047 |
R8ADB4 |
TR3 = CC(I-1,3,K)+CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1048 |
R8ADB4 |
CH(I-1,K,1) = TR2+TR3 |
|
./pkg/zonal_filt/fftpack.F |
1050 |
R8ADB4 |
CH(I,K,1) = TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
1056 |
R8ADB4 |
CH(I-1,K,2) = WA1(I-2)*CR2-WA1(I-1)*CI2 |
|
./pkg/zonal_filt/fftpack.F |
1057 |
R8ADB4 |
CH(I,K,2) = WA1(I-2)*CI2+WA1(I-1)*CR2 |
|
./pkg/zonal_filt/fftpack.F |
1058 |
R8ADB4 |
CH(I-1,K,3) = WA2(I-2)*CR3-WA2(I-1)*CI3 |
|
./pkg/zonal_filt/fftpack.F |
1059 |
R8ADB4 |
CH(I,K,3) = WA2(I-2)*CI3+WA2(I-1)*CR3 |
|
./pkg/zonal_filt/fftpack.F |
1060 |
R8ADB4 |
CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4 |
|
./pkg/zonal_filt/fftpack.F |
1061 |
R8ADB4 |
CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4 |
|
./pkg/zonal_filt/fftpack.F |
107 |
RADB4 |
DO 103 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1080 |
R8ADB5 |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
108 |
RADB4 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
109 |
RADB4 |
TI1 = CC(I,1,K)+CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1103 |
R8ADB5 |
DO 102 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1104 |
R8ADB5 |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
1105 |
R8ADB5 |
TI5 = CC(I,3,K)+CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1106 |
R8ADB5 |
TI2 = CC(I,3,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1107 |
R8ADB5 |
TI4 = CC(I,5,K)+CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1108 |
R8ADB5 |
TI3 = CC(I,5,K)-CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1109 |
R8ADB5 |
TR5 = CC(I-1,3,K)-CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
110 |
RADB4 |
TI2 = CC(I,1,K)-CC(IC,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1110 |
R8ADB5 |
TR2 = CC(I-1,3,K)+CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1111 |
R8ADB5 |
TR4 = CC(I-1,5,K)-CC(IC-1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1112 |
R8ADB5 |
TR3 = CC(I-1,5,K)+CC(IC-1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1113 |
R8ADB5 |
CH(I-1,K,1) = CC(I-1,1,K)+TR2+TR3 |
|
./pkg/zonal_filt/fftpack.F |
1114 |
R8ADB5 |
CH(I,K,1) = CC(I,1,K)+TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
1115 |
R8ADB5 |
CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3 |
|
./pkg/zonal_filt/fftpack.F |
1116 |
R8ADB5 |
CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3 |
|
./pkg/zonal_filt/fftpack.F |
1117 |
R8ADB5 |
CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3 |
|
./pkg/zonal_filt/fftpack.F |
1118 |
R8ADB5 |
CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3 |
|
./pkg/zonal_filt/fftpack.F |
111 |
RADB4 |
TI3 = CC(I,3,K)-CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
112 |
RADB4 |
TR4 = CC(I,3,K)+CC(IC,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1131 |
R8ADB5 |
CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2 |
|
./pkg/zonal_filt/fftpack.F |
1132 |
R8ADB5 |
CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2 |
|
./pkg/zonal_filt/fftpack.F |
1133 |
R8ADB5 |
CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3 |
|
./pkg/zonal_filt/fftpack.F |
1134 |
R8ADB5 |
CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3 |
|
./pkg/zonal_filt/fftpack.F |
1135 |
R8ADB5 |
CH(I-1,K,4) = WA3(I-2)*DR4-WA3(I-1)*DI4 |
|
./pkg/zonal_filt/fftpack.F |
1136 |
R8ADB5 |
CH(I,K,4) = WA3(I-2)*DI4+WA3(I-1)*DR4 |
|
./pkg/zonal_filt/fftpack.F |
1137 |
R8ADB5 |
CH(I-1,K,5) = WA4(I-2)*DR5-WA4(I-1)*DI5 |
|
./pkg/zonal_filt/fftpack.F |
1138 |
R8ADB5 |
CH(I,K,5) = WA4(I-2)*DI5+WA4(I-1)*DR5 |
|
./pkg/zonal_filt/fftpack.F |
113 |
RADB4 |
TR1 = CC(I-1,1,K)-CC(IC-1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1145 |
R8ADBG |
IMPLICIT INTEGER (I-N) |
|
./pkg/zonal_filt/fftpack.F |
114 |
RADB4 |
TR2 = CC(I-1,1,K)+CC(IC-1,4,K) |
|
./pkg/zonal_filt/fftpack.F |
1159 |
R8ADBG |
DO 101 I=1,IDO |
|
./pkg/zonal_filt/fftpack.F |
115 |
RADB4 |
TI4 = CC(I-1,3,K)-CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
1160 |
R8ADBG |
CH(I,K,1) = CC(I,1,K) |
|
./pkg/zonal_filt/fftpack.F |
1164 |
R8ADBG |
103 DO 105 I=1,IDO |
|
./pkg/zonal_filt/fftpack.F |
1166 |
R8ADBG |
CH(I,K,1) = CC(I,1,K) |
|
./pkg/zonal_filt/fftpack.F |
116 |
RADB4 |
TR3 = CC(I-1,3,K)+CC(IC-1,2,K) |
|
./pkg/zonal_filt/fftpack.F |
117 |
RADB4 |
CH(I-1,K,1) = TR2+TR3 |
|
./pkg/zonal_filt/fftpack.F |
1182 |
R8ADBG |
DO 109 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1183 |
R8ADBG |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
1184 |
R8ADBG |
CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1185 |
R8ADBG |
CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1186 |
R8ADBG |
CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1187 |
R8ADBG |
CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1194 |
R8ADBG |
DO 114 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1195 |
R8ADBG |
IC = IDP2-I |
|
./pkg/zonal_filt/fftpack.F |
1197 |
R8ADBG |
CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1198 |
R8ADBG |
CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1199 |
R8ADBG |
CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
119 |
RADB4 |
CH(I,K,1) = TI2+TI3 |
|
./pkg/zonal_filt/fftpack.F |
1200 |
R8ADBG |
CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K) |
|
./pkg/zonal_filt/fftpack.F |
1247 |
R8ADBG |
DO 125 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1248 |
R8ADBG |
CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1249 |
R8ADBG |
CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1250 |
R8ADBG |
CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1251 |
R8ADBG |
CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1258 |
R8ADBG |
DO 130 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
125 |
RADB4 |
CH(I-1,K,2) = WA1(I-2)*CR2-WA1(I-1)*CI2 |
|
./pkg/zonal_filt/fftpack.F |
1260 |
R8ADBG |
CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1261 |
R8ADBG |
CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1262 |
R8ADBG |
CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
1263 |
R8ADBG |
CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC) |
|
./pkg/zonal_filt/fftpack.F |
126 |
RADB4 |
CH(I,K,2) = WA1(I-2)*CI2+WA1(I-1)*CR2 |
|
./pkg/zonal_filt/fftpack.F |
127 |
RADB4 |
CH(I-1,K,3) = WA2(I-2)*CR3-WA2(I-1)*CI3 |
|
./pkg/zonal_filt/fftpack.F |
1282 |
R8ADBG |
DO 137 I=3,IDO,2 |
|
./pkg/zonal_filt/fftpack.F |
1285 |
R8ADBG |
C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J) |
|
./pkg/zonal_filt/fftpack.F |
1286 |
R8ADBG |
C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J) |
|
./pkg/zonal_filt/fftpack.F |
128 |
RADB4 |
CH(I,K,3) = WA2( |