| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_swrad.F |
464 |
SWRIO |
. flux,fluxclr,fdirir,fdifir,dirpar,difpar, |
|
./pkg/fizhi/fizhi_swrad.F |
474 |
SWRIO |
dtsw (i,L) = alf*( flux (i,L)-flux (i,L+1) )/pk(i,L) |
|
./pkg/fizhi/fizhi_swrad.F |
482 |
SWRIO |
call PASTE ( flux (1,1),osr ,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
485 |
SWRIO |
call PASTE ( flux (1,lm+1),radswg,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
495 |
SWRIO |
tstrip(i) = 1.0 - flux(i,lm+1)/ |
|
./pkg/fizhi/fizhi_swrad.F |
82 |
SWRIO |
_RL flux(istrip,lm+1) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
147 |
GAD_PPM_ADV_R |
& flux,myThid) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
153 |
GAD_PPM_ADV_R |
flux(ix,iy,ir) = 0.0 _d +0 |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
43 |
GAD_PPM_ADV_R |
_RL flux(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
8 |
GAD_PPM_ADV_R |
O flux,myThid ) |
|
./pkg/generic_advdiff/gad_ppm_adv_r.F |
92 |
GAD_PPM_ADV_R |
flux(ix,iy,+1) = 0.0 _d +0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
135 |
GAD_PPM_ADV_X |
& flux,myThid) |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
141 |
GAD_PPM_ADV_X |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
43 |
GAD_PPM_ADV_X |
_RL flux(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
72 |
GAD_PPM_ADV_X |
flux( +1-OLx+0,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
73 |
GAD_PPM_ADV_X |
flux( +1-OLx+1,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
74 |
GAD_PPM_ADV_X |
flux( +1-OLx+2,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
75 |
GAD_PPM_ADV_X |
flux( +1-OLx+3,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
76 |
GAD_PPM_ADV_X |
flux(sNx+OLx-0,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
77 |
GAD_PPM_ADV_X |
flux(sNx+OLx-1,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
78 |
GAD_PPM_ADV_X |
flux(sNx+OLx-2,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_x.F |
8 |
GAD_PPM_ADV_X |
O flux,myThid ) |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
135 |
GAD_PPM_ADV_Y |
& flux,myThid) |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
141 |
GAD_PPM_ADV_Y |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
43 |
GAD_PPM_ADV_Y |
_RL flux(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
72 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
73 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
74 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
75 |
GAD_PPM_ADV_Y |
flux(ix, +1-OLy+3) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
76 |
GAD_PPM_ADV_Y |
flux(ix,sNy+OLy-0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
77 |
GAD_PPM_ADV_Y |
flux(ix,sNy+OLy-1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
78 |
GAD_PPM_ADV_Y |
flux(ix,sNy+OLy-2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_adv_y.F |
8 |
GAD_PPM_ADV_Y |
O flux,myThid ) |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
122 |
GAD_PPM_FLX_R |
flux(ix,iy,ir) = + wfac(ix,iy,ir) * intF |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
41 |
GAD_PPM_FLX_R |
_RL flux(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
71 |
GAD_PPM_FLX_R |
flux(ix,iy,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_r.F |
8 |
GAD_PPM_FLX_R |
& flux,myThid ) |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
131 |
GAD_PPM_FLX_X |
flux(ix,iy) = + ufac(ix,iy) * intF |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
41 |
GAD_PPM_FLX_X |
_RL flux(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
70 |
GAD_PPM_FLX_X |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_x.F |
8 |
GAD_PPM_FLX_X |
& ufac,fhat,flux,myThid) |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
131 |
GAD_PPM_FLX_Y |
flux(ix,iy) = + vfac(ix,iy) * intF |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
41 |
GAD_PPM_FLX_Y |
_RL flux(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
70 |
GAD_PPM_FLX_Y |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_ppm_flx_y.F |
8 |
GAD_PPM_FLX_Y |
& vfac,fhat,flux,myThid ) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
144 |
GAD_PQM_ADV_R |
& flux,myThid) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
150 |
GAD_PQM_ADV_R |
flux(ix,iy,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
43 |
GAD_PQM_ADV_R |
_RL flux(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
8 |
GAD_PQM_ADV_R |
O flux,myThid ) |
|
./pkg/generic_advdiff/gad_pqm_adv_r.F |
92 |
GAD_PQM_ADV_R |
flux(ix,iy,+1) = 0.0 _d +0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
133 |
GAD_PQM_ADV_X |
& flux,myThid) |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
139 |
GAD_PQM_ADV_X |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
43 |
GAD_PQM_ADV_X |
_RL flux(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
73 |
GAD_PQM_ADV_X |
flux( +1-OLx+0,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
74 |
GAD_PQM_ADV_X |
flux( +1-OLx+1,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
75 |
GAD_PQM_ADV_X |
flux( +1-OLx+2,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
76 |
GAD_PQM_ADV_X |
flux( +1-OLx+3,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
77 |
GAD_PQM_ADV_X |
flux(sNx+OLx-0,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
78 |
GAD_PQM_ADV_X |
flux(sNx+OLx-1,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
79 |
GAD_PQM_ADV_X |
flux(sNx+OLx-2,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_x.F |
8 |
GAD_PQM_ADV_X |
O flux,myThid ) |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
133 |
GAD_PQM_ADV_Y |
& flux,myThid) |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
139 |
GAD_PQM_ADV_Y |
flux(ix,iy) = 0.0 _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
43 |
GAD_PQM_ADV_Y |
_RL flux(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
73 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
74 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
75 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
76 |
GAD_PQM_ADV_Y |
flux(ix, +1-OLy+3) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
77 |
GAD_PQM_ADV_Y |
flux(ix,sNy+OLy-0) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
78 |
GAD_PQM_ADV_Y |
flux(ix,sNy+OLy-1) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
79 |
GAD_PQM_ADV_Y |
flux(ix,sNy+OLy-2) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_adv_y.F |
8 |
GAD_PQM_ADV_Y |
O flux,myThid ) |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
134 |
GAD_PQM_FLX_R |
flux(ix,iy,ir) = + wfac(ix,iy,ir) * intF |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
41 |
GAD_PQM_FLX_R |
_RL flux(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
71 |
GAD_PQM_FLX_R |
flux(ix,iy,ir) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_r.F |
8 |
GAD_PQM_FLX_R |
& fhat,flux,myThid) |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
143 |
GAD_PQM_FLX_X |
flux(ix,iy) = + ufac(ix,iy) * intF |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
41 |
GAD_PQM_FLX_X |
_RL flux(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
70 |
GAD_PQM_FLX_X |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_x.F |
8 |
GAD_PQM_FLX_X |
& ufac,fhat,flux,myThid) |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
143 |
GAD_PQM_FLX_Y |
flux(ix,iy) = + vfac(ix,iy) * intF |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
41 |
GAD_PQM_FLX_Y |
_RL flux(1-OLx:sNx+OLx, |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
70 |
GAD_PQM_FLX_Y |
flux(ix,iy) = 0. _d 0 |
|
./pkg/generic_advdiff/gad_pqm_flx_y.F |
8 |
GAD_PQM_FLX_Y |
& vfac,fhat,flux,myThid) |