| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cg3d.F |
143 |
INI_CG3D |
tmpFac = nh_Fac*rVel2wUnit(k)*rVel2wUnit(k) |
|
./model/src/ini_cg3d.F |
52 |
INI_CG3D |
_RL tmpFac, nh_Fac, igwFac |
|
./model/src/ini_cg3d.F |
94 |
INI_CG3D |
nh_Fac = 0. |
|
./model/src/ini_cg3d.F |
97 |
INI_CG3D |
& .AND. nh_Am2.NE.0. ) nh_Fac = 1. _d 0 / nh_Am2 |
|
./model/src/timestep_wvel.F |
49 |
TIMESTEP_WVEL |
_RL tmpFac, nh_Fac, igwFac |
|
./model/src/timestep_wvel.F |
60 |
TIMESTEP_WVEL |
nh_Fac = 0. |
|
./model/src/timestep_wvel.F |
61 |
TIMESTEP_WVEL |
IF ( nh_Am2.NE.0. ) nh_Fac = 1. _d 0 / nh_Am2 |
|
./model/src/timestep_wvel.F |
97 |
TIMESTEP_WVEL |
tmpFac = nh_Fac + igwFac*wUnit2rVel(k)*wUnit2rVel(k) |