| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1108 |
IRRAD |
ww=(w1+w2+w3)/taux |
|
./pkg/fizhi/fizhi_lwrad.F |
1122 |
IRRAD |
taux=taux*(1.-ww*ff) |
|
./pkg/fizhi/fizhi_lwrad.F |
621 |
IRRAD |
_RL w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2 |
|
./pkg/flt/flt_runga2.F |
115 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(ix,jy,kz,ww,wVel,4,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
132 |
FLT_RUNGA2 |
ww = ww + ww*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
149 |
FLT_RUNGA2 |
ktz=kz+0.5*flt_deltaT*ww*scalez |
|
./pkg/flt/flt_runga2.F |
57 |
FLT_RUNGA2 |
_RL ww, w1, ktz, kz, scalez |