| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga2.F |
161 |
FLT_RUNGA2 |
call FLT_TRILINEAR(xt,yt,zt,w1,wVel,4,bi,bj) |
|
./pkg/flt/flt_runga2.F |
177 |
FLT_RUNGA2 |
w1 = w1 + port_rand_norm()*flt_noise |
|
./pkg/flt/flt_runga2.F |
188 |
FLT_RUNGA2 |
w1 = w1 + w1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
211 |
FLT_RUNGA2 |
& + deltaTmom*w1*scalez |
|
./pkg/flt/flt_runga2.F |
52 |
FLT_RUNGA2 |
_RL ww, w1, zt, zz, scalez |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1254 |
SOLIR |
_RL taux,reff1,reff2,w1,w2,g1,g2 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1352 |
SOLIR |
w1=(1.-(aia(ib,1)+(aia(ib,2)+ |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1356 |
SOLIR |
ssaclt(i,j)=(w1+w2)/taux |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1358 |
SOLIR |
g1=(aig(ib,1)+(aig(ib,2)+aig(ib,3)*reff1)*reff1)*w1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1360 |
SOLIR |
asyclt(i,j)=(g1+g2)/(w1+w2) |
|
./pkg/fizhi/fizhi_swrad.F |
1253 |
SOLIR |
_RL taux,reff1,reff2,w1,w2,g1,g2 |
|
./pkg/fizhi/fizhi_swrad.F |
1351 |
SOLIR |
w1=(1.-(aia(ib,1)+(aia(ib,2)+ |
|
./pkg/fizhi/fizhi_swrad.F |
1355 |
SOLIR |
ssaclt(i,j)=(w1+w2)/taux |
|
./pkg/fizhi/fizhi_swrad.F |
1357 |
SOLIR |
g1=(aig(ib,1)+(aig(ib,2)+aig(ib,3)*reff1)*reff1)*w1 |
|
./pkg/fizhi/fizhi_swrad.F |
1359 |
SOLIR |
asyclt(i,j)=(g1+g2)/(w1+w2) |
|
./pkg/fizhi/fizhi_lwrad.F |
1103 |
IRRAD |
w1=taucl(i,j,k,1)*(aiw(1,ib)+(aiw(2,ib)+(aiw(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1108 |
IRRAD |
ww=(w1+w2+w3)/taux |
|
./pkg/fizhi/fizhi_lwrad.F |
1110 |
IRRAD |
g1=w1*(aig(1,ib)+(aig(2,ib)+(aig(3,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1116 |
IRRAD |
gg=(g1+g2+g3)/(w1+w2+w3) |
|
./pkg/fizhi/fizhi_lwrad.F |
1412 |
IRRAD |
w1=-8.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1421 |
IRRAD |
* w1,p1,dwe,dpe,h11,h12,h13,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1425 |
IRRAD |
* w1,p1,dwe,dpe,h21,h22,h23,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1430 |
IRRAD |
* w1,p1,dwe,dpe,h81,h82,h83,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1450 |
IRRAD |
w1=-4.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1455 |
IRRAD |
* w1,p1,dwe,dpe,c1,c2,c3,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1469 |
IRRAD |
w1=-6.0 |
|
./pkg/fizhi/fizhi_lwrad.F |
1474 |
IRRAD |
* w1,p1,dwe,dpe,o1,o2,o3,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
2464 |
TABLUP |
subroutine TABLUP(k1,k2,m,n,np,nx,nh,nt,sabs,spre,stem,w1,p1, |
|
./pkg/fizhi/fizhi_lwrad.F |
2507 |
TABLUP |
_RL w1,p1,dwe,dpe |
|
./pkg/fizhi/fizhi_lwrad.F |
2531 |
TABLUP |
we=(log10(x1)-w1)/dwe |
|
./pkg/fizhi/fizhi_lwrad.F |
2534 |
TABLUP |
we=max(we,w1-2.*dwe) |
|
./pkg/fizhi/fizhi_lwrad.F |
621 |
IRRAD |
_RL w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2 |