| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_chem.F |
202 |
GET_METHANE_N2O |
_RL hght(Nrphys), slope,pr1,pr2,hpr1,hpr2 |
|
./pkg/fizhi/fizhi_init_chem.F |
262 |
GET_METHANE_N2O |
slope = ( hpr1-hpr2 )/( pr1-pr2 ) |
|
./pkg/fizhi/fizhi_init_chem.F |
263 |
GET_METHANE_N2O |
hght(L2) = hpr2 + ( pres(L2)-pr2 )*slope |
|
./pkg/fizhi/update_chemistry_exports.F |
181 |
INTERP_QZ |
_RL qpr1(irun), qpr2(irun), slope(irun) |
|
./pkg/fizhi/update_chemistry_exports.F |
198 |
INTERP_QZ |
slope(i) = 0 |
|
./pkg/fizhi/update_chemistry_exports.F |
202 |
INTERP_QZ |
slope(i) = ( xlat(i) -watlats(jlat-1) ) |
|
./pkg/fizhi/update_chemistry_exports.F |
210 |
INTERP_QZ |
slope(i) = 1 |
|
./pkg/fizhi/update_chemistry_exports.F |
217 |
INTERP_QZ |
h2o_time_lat(i,k) = qpr1(i) + slope(i)*(qpr2(i)-qpr1(i)) |
|
./pkg/fizhi/update_chemistry_exports.F |
251 |
INTERP_QZ |
slope(i) =(QPR1(i)-QPR2(i)) / (PR1(i)-PR2(i)) |
|
./pkg/fizhi/update_chemistry_exports.F |
329 |
INTERP_OZ |
slope(i) = zero |
|
./pkg/fizhi/update_chemistry_exports.F |
333 |
INTERP_OZ |
slope(i) = ( XLAT(I) -ozlats(jlat-1) ) |
|
./pkg/fizhi/update_chemistry_exports.F |
341 |
INTERP_OZ |
slope(i) = one |
|
./pkg/fizhi/update_chemistry_exports.F |
348 |
INTERP_OZ |
o3int1(i,k) = qpr1(i) + slope(i)*( qpr2(i)-qpr1(i) ) |
|
./pkg/gmredi/gmredi_k3d.F |
655 |
GMREDI_K3D |
slope = sigx/sigz |
|
./pkg/gmredi/gmredi_k3d.F |
656 |
GMREDI_K3D |
IF(ABS(slope).GT.GM_maxSlope) |
|
./pkg/gmredi/gmredi_k3d.F |
657 |
GMREDI_K3D |
& slope = SIGN(GM_maxSlope,slope) |
|
./pkg/gmredi/gmredi_k3d.F |
658 |
GMREDI_K3D |
SlopeX(i,j,k)=-maskW(i,j,k-1,bi,bj)*maskW(i,j,k,bi,bj)*slope |
|
./pkg/gmredi/gmredi_k3d.F |
663 |
GMREDI_K3D |
slope = sigy/sigz |
|
./pkg/gmredi/gmredi_k3d.F |
664 |
GMREDI_K3D |
IF(ABS(slope).GT.GM_maxSlope) |
|
./pkg/gmredi/gmredi_k3d.F |
665 |
GMREDI_K3D |
& slope = SIGN(GM_maxSlope,slope) |
|
./pkg/gmredi/gmredi_k3d.F |
666 |
GMREDI_K3D |
SlopeY(i,j,k)=-maskS(i,j,k-1,bi,bj)*maskS(i,j,k,bi,bj)*slope |
|
./pkg/gmredi/gmredi_k3d.F |
79 |
GMREDI_K3D |
_RL slope |
|
./pkg/seaice/seaice_itd_remap.F |
163 |
SEAICE_ITD_REMAP |
slope = ( dhActual(i,j,k+1) - dhActual(i,j,k) ) |
|
./pkg/seaice/seaice_itd_remap.F |
166 |
SEAICE_ITD_REMAP |
& + slope * ( hLimit(k) - hActualPre(i,j,k) ) |
|
./pkg/seaice/seaice_itd_remap.F |
77 |
SEAICE_ITD_REMAP |
_RL slope, area_reg_sq, hice_reg_sq |