| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1105 |
IRRAD |
w2=taucl(i,j,k,2)*(aww(1,ib)+(aww(2,ib)+(aww(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1108 |
IRRAD |
ww=(w1+w2+w3)/taux |
|
./pkg/fizhi/fizhi_lwrad.F |
1112 |
IRRAD |
g2=w2*(awg(1,ib)+(awg(2,ib)+(awg(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1116 |
IRRAD |
gg=(g1+g2+g3)/(w1+w2+w3) |
|
./pkg/fizhi/fizhi_lwrad.F |
621 |
IRRAD |
_RL w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2 |
|
./pkg/fizhi/fizhi_swrad.F |
1261 |
SOLIR |
_RL taux,reff1,reff2,w1,w2,g1,g2 |
|
./pkg/fizhi/fizhi_swrad.F |
1361 |
SOLIR |
w2=(1.-(awa(ib,1)+(awa(ib,2)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1363 |
SOLIR |
ssaclt(i,j)=(w1+w2)/taux |
|
./pkg/fizhi/fizhi_swrad.F |
1366 |
SOLIR |
g2=(awg(ib,1)+(awg(ib,2)+awg(ib,3)*reff2)*reff2)*w2 |
|
./pkg/fizhi/fizhi_swrad.F |
1367 |
SOLIR |
asyclt(i,j)=(g1+g2)/(w1+w2) |
|
./pkg/flt/flt_runga4.F |
156 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx1,jty1,ktz1,w2,wVel, |
|
./pkg/flt/flt_runga4.F |
175 |
FLT_RUNGA4 |
w2 = w2 + PORT_RAND_NORM()*flt_noise |
|
./pkg/flt/flt_runga4.F |
186 |
FLT_RUNGA4 |
w2 = w2 + w2*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
201 |
FLT_RUNGA4 |
ktz2=kz+0.5*flt_deltaT*w2*scalez |
|
./pkg/flt/flt_runga4.F |
251 |
FLT_RUNGA4 |
ktz3=kz+0.5*flt_deltaT*w2*scalez |
|
./pkg/flt/flt_runga4.F |
304 |
FLT_RUNGA4 |
& * (w1 + 2*w2 + 2*w3 + w4) * scalez |
|
./pkg/flt/flt_runga4.F |
57 |
FLT_RUNGA4 |
_RL w1, w2, w3, w4, ktz1, ktz2, ktz3, kz, scalez |