| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
3389 |
TRBLEN |
_RL rf1,rf2,e5,d4,d1,rfc,ricr,alpha,dzcnv,xl0cnv,xl0min |
|
./pkg/fizhi/fizhi_turb.F |
3652 |
TRBITP |
_RL rf1,rf2,e5,d4,d1,rfc,ricr |
|
./pkg/fizhi/fizhi_turb.F |
3739 |
TRBL20 |
_RL b1,b2,d3,rf1,rf2,d3b2,d2,e5,d4,d1,d1half,d2half |
|
./pkg/fizhi/fizhi_utils.F |
222 |
QSAT |
_RL d0, d1, d2, d3, d4, d5, d6 |
|
./pkg/fizhi/fizhi_utils.F |
278 |
QSAT |
parameter ( d1 = 0.401390832e+00 * esfac ) |
|
./pkg/fizhi/fizhi_utils.F |
347 |
QSAT |
qx = d0+T*(d1+T*(d2+T*(d3+T*(d4+T*(d5+T*d6))))) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
106 |
GAD_DST3_ADV_R |
psiM=d0+d1*thetaM |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
116 |
GAD_DST3_ADV_R |
& *( tracer(i,j, k ) + (d0*Rj+d1*Rjp) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
118 |
GAD_DST3_ADV_R |
& *( tracer(i,j,km1) - (d0*Rj+d1*Rjm) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
61 |
GAD_DST3_ADV_R |
_RL Rjm,Rj,Rjp,cfl,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
90 |
GAD_DST3_ADV_R |
d1=(1.-cfl*cfl)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3_adv_r.F |
98 |
GAD_DST3_ADV_R |
psiP=d0+d1*thetaP |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
105 |
GAD_DST3_ADV_X |
psiM=d0+d1*thetaM |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
115 |
GAD_DST3_ADV_X |
& *( Tracer(i-1,j) + (d0*Rj+d1*Rjm) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
117 |
GAD_DST3_ADV_X |
& *( Tracer( i ,j) - (d0*Rj+d1*Rjp) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
61 |
GAD_DST3_ADV_X |
_RL Rjm,Rj,Rjp,uCFL,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
89 |
GAD_DST3_ADV_X |
d1=(1.-uCFL*uCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3_adv_x.F |
97 |
GAD_DST3_ADV_X |
psiP=d0+d1*thetaP |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
104 |
GAD_DST3_ADV_Y |
psiM=d0+d1*thetaM |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
114 |
GAD_DST3_ADV_Y |
& *( Tracer(i,j-1) + (d0*Rj+d1*Rjm) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
116 |
GAD_DST3_ADV_Y |
& *( Tracer(i, j ) - (d0*Rj+d1*Rjp) ) |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
60 |
GAD_DST3_ADV_Y |
_RL Rjm,Rj,Rjp,vCFL,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
88 |
GAD_DST3_ADV_Y |
d1=(1.-vCFL*vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3_adv_y.F |
96 |
GAD_DST3_ADV_Y |
psiP=d0+d1*thetaP |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
106 |
GAD_DST3FL_ADV_R |
psiP=d0+d1*thetaP |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
109 |
GAD_DST3FL_ADV_R |
psiM=d0+d1*thetaM |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
56 |
GAD_DST3FL_ADV_R |
_RL Rjm,Rj,Rjp,wCFL,d0,d1 |
|
./pkg/generic_advdiff/gad_dst3fl_adv_r.F |
83 |
GAD_DST3FL_ADV_R |
d1=(1. _d 0 -wCFL*wCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
37 |
GAD_DST3FL_ADV_X |
_RL Rjm,Rj,Rjp,uCFL,d0,d1,psiP,psiM,thetaP,thetaM |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
65 |
GAD_DST3FL_ADV_X |
d1=(1. _d 0 -uCFL*uCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
88 |
GAD_DST3FL_ADV_X |
psiP=d0+d1*thetaP |
|
./pkg/generic_advdiff/gad_dst3fl_adv_x.F |
91 |
GAD_DST3FL_ADV_X |
psiM=d0+d1*thetaM |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
37 |
GAD_DST3FL_ADV_Y |
_RL Rjm,Rj,Rjp,vCFL,d0,d1,psiP,psiM,thetaP,thetaM |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
61 |
GAD_DST3FL_ADV_Y |
d1=(1. _d 0 -vCFL*vCFL)*oneSixth |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
84 |
GAD_DST3FL_ADV_Y |
psiP=d0+d1*thetaP |
|
./pkg/generic_advdiff/gad_dst3fl_adv_y.F |
87 |
GAD_DST3FL_ADV_Y |
psiM=d0+d1*thetaM |
|
./model/src/convective_weights.F |
55 |
CONVECTIVE_WEIGHTS |
_RL dS,d1,d2 |
|
./model/src/convective_weights.F |
65 |
CONVECTIVE_WEIGHTS |
d1 = _hFacC(i,j,k-1,bi,bj)*drF(k-1) |
|
./model/src/convective_weights.F |
67 |
CONVECTIVE_WEIGHTS |
dS = d1+d2 |
|
./model/src/convective_weights.F |
69 |
CONVECTIVE_WEIGHTS |
weightB(i,j) = d1/dS |
|
./pkg/openad/ad_s_different_multiple.F |
40 |
OAD_S_DIFFERENT_MULTIPLE |
_RL v1, v2, v3, v4, d1, d2, d3 |
|
./pkg/openad/ad_s_different_multiple.F |
58 |
OAD_S_DIFFERENT_MULTIPLE |
d1 = v1-v4 |
|
./pkg/openad/ad_s_different_multiple.F |
61 |
OAD_S_DIFFERENT_MULTIPLE |
IF ( ABS(d1) .LT. ABS(d2) .AND. ABS(d1) .LE. ABS(d3) ) |
|
./pkg/openad/seawater.F |
156 |
SW_ADTG |
_RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2 |
|
./pkg/openad/seawater.F |
175 |
SW_ADTG |
d1 = 2.7759 _d -12 |
|
./pkg/openad/seawater.F |
183 |
SW_ADTG |
& + ( (c0 + (c1 + (c2 + c3*T)*T)*T) + (d0 + d1*T)*(S-sref) )*P |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
123 |
STREAMICE_ADV_FLUX_FL_X |
d1 = (1.-cfl**2)/6.0 |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
124 |
STREAMICE_ADV_FLUX_FL_X |
psi = d0+d1*Cr |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
176 |
STREAMICE_ADV_FLUX_FL_X |
d1 = (1.-cfl**2)/6.0 |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
177 |
STREAMICE_ADV_FLUX_FL_X |
psi = d0+d1*Cr |
|
./pkg/streamice/streamice_adv_flux_fl_x.F |
43 |
STREAMICE_ADV_FLUX_FL_X |
_RL uface, phi, cfl, Cr, rdenom, d0, d1, psi |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
126 |
STREAMICE_ADV_FLUX_FL_Y |
d1 = (1.-cfl**2)/6.0 |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
127 |
STREAMICE_ADV_FLUX_FL_Y |
psi = d0+d1*Cr |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
178 |
STREAMICE_ADV_FLUX_FL_Y |
d1 = (1.-cfl**2)/6.0 |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
179 |
STREAMICE_ADV_FLUX_FL_Y |
psi = d0+d1*Cr |
|
./pkg/streamice/streamice_adv_flux_fl_y.F |
43 |
STREAMICE_ADV_FLUX_FL_Y |
_RL vface, phi, cfl, Cr, rdenom, d0, d1, psi |
|
./eesupp/src/diff_phase_multiple.F |
41 |
NO PROCEDURE |
_RL v1, v2, v3, v4, d1, d2, d3 |
|
./eesupp/src/diff_phase_multiple.F |
62 |
NO PROCEDURE |
d1 = v1-v4 |
|
./eesupp/src/diff_phase_multiple.F |
65 |
NO PROCEDURE |
IF ( ABS(d1) .LT. ABS(d2) .AND. ABS(d1) .LE. ABS(d3) ) |
|
./model/src/seawater.F |
148 |
NO PROCEDURE |
_RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2 |
|
./model/src/seawater.F |
167 |
NO PROCEDURE |
d1 = 2.7759 _d -12 |
|
./model/src/seawater.F |
175 |
NO PROCEDURE |
& + ( (c0 + (c1 + (c2 + c3*T)*T)*T) + (d0 + d1*T)*(S-sref) )*P |
|
./eesupp/src/different_multiple.F |
40 |
NO PROCEDURE |
_RL v1, v2, v3, v4, d1, d2, d3 |
|
./eesupp/src/different_multiple.F |
58 |
NO PROCEDURE |
d1 = v1-v4 |
|
./eesupp/src/different_multiple.F |
61 |
NO PROCEDURE |
IF ( ABS(d1) .LT. ABS(d2) .AND. ABS(d1) .LE. ABS(d3) ) |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
54 |
CHEAPAML_GAD_DST3FL_ADV_R |
_RL Rjm,Rj,Rjp,wCFL,d0,d1 |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
72 |
CHEAPAML_GAD_DST3FL_ADV_R |
d1=(1. _d 0 -wCFL*wCFL)*oneSixth |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
78 |
CHEAPAML_GAD_DST3FL_ADV_R |
psiP=d0+d1*thetaP |
|
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F |
81 |
CHEAPAML_GAD_DST3FL_ADV_R |
psiM=d0+d1*thetaM |