| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1107 |
IRRAD |
w3=taucl(i,j,k,3)*0.54 |
|
./pkg/fizhi/fizhi_lwrad.F |
1108 |
IRRAD |
ww=(w1+w2+w3)/taux |
|
./pkg/fizhi/fizhi_lwrad.F |
1114 |
IRRAD |
g3=w3*0.95 |
|
./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/flt/flt_runga4.F |
206 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx2,jty2,ktz2,w3,wVel, |
|
./pkg/flt/flt_runga4.F |
225 |
FLT_RUNGA4 |
w3 = w3 + PORT_RAND_NORM()*flt_noise |
|
./pkg/flt/flt_runga4.F |
236 |
FLT_RUNGA4 |
w3 = w3 + w3*(PORT_RAND(seed)-0.5)*flt_noise |
|
./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 |