| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
769 |
NO PROCEDURE |
& freeSurfFac, implicSurfPress, implicDiv2Dflow, implicitNHPress, |
|
./model/inc/PARAMS.h |
814 |
NO PROCEDURE |
_RL freeSurfFac |
|
./pkg/monitor/mon_ke.F |
325 |
MON_KE |
totAMu = totAMu + freeSurfFac*totAMs |
|
./model/src/cg3d.F |
121 |
CG3D |
surfFac = freeSurfFac |
|
./model/src/cg3d_ex0.F |
113 |
CG3D_EX0 |
surfFac = freeSurfFac |
|
./model/src/config_summary.F |
314 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( freeSurfFac, INDEX_NONE,'freeSurfFac =', |
|
./model/src/ini_cg2d.F |
211 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/ini_cg3d.F |
221 |
INI_CG3D |
& - freeSurfFac*recip_Bo(i,j,bi,bj) |
|
./model/src/ini_parms.F |
199 |
INI_PARMS |
& implicitFreeSurface, rigidLid, freeSurfFac, |
|
./model/src/ini_parms.F |
430 |
INI_PARMS |
IF ( implicitFreeSurface ) freeSurfFac = 1. _d 0 |
|
./model/src/ini_parms.F |
431 |
INI_PARMS |
IF ( rigidLid ) freeSurfFac = 0. _d 0 |
|
./model/src/pre_cg3d.F |
111 |
PRE_CG3D |
& +freeSurfFac*tmpSurf |
|
./model/src/pre_cg3d.F |
124 |
PRE_CG3D |
tmpVar(i,j) = freeSurfFac |
|
./model/src/pre_cg3d.F |
142 |
PRE_CG3D |
tmpFac = freeSurfFac*deepFac2F(1) |
|
./model/src/pre_cg3d.F |
151 |
PRE_CG3D |
& +freeSurfFac*etaN(i,j,bi,bj)/deltaTfreesurf |
|
./model/src/pre_cg3d.F |
79 |
PRE_CG3D |
tmpFac = freeSurfFac*mass2rUnit*implicDiv2DFlow |
|
./model/src/solve_for_pressure.F |
130 |
SOLVE_FOR_PRESSURE |
tmpFac = freeSurfFac*mass2rUnit*implicDiv2DFlow |
|
./model/src/solve_for_pressure.F |
160 |
SOLVE_FOR_PRESSURE |
& freeSurfFac*deltaTFreeSurf*mass2rUnit*sumEmP/globalArea |
|
./model/src/solve_for_pressure.F |
189 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
194 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
210 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/solve_for_pressure.F |
220 |
SOLVE_FOR_PRESSURE |
& -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/update_cg2d.F |
115 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/update_cg2d.F |
126 |
UPDATE_CG2D |
& +freeSurfFac*cg2dNorm*recip_Bo(i,j,bi,bj) |