File |
Line number |
Procedure |
Code |
./model/src/ini_cg3d.F |
144 |
INI_CG3D |
& + igwFac*dBdrRef(k)*deltaTMom*dTtracerLev(k) |
./model/src/ini_cg3d.F |
52 |
INI_CG3D |
_RL tmpFac, nh_Fac, igwFac |
./model/src/ini_cg3d.F |
95 |
INI_CG3D |
igwFac = 0. |
./model/src/ini_cg3d.F |
98 |
INI_CG3D |
IF ( implicitIntGravWave ) igwFac = 1. _d 0 |
./model/src/timestep_wvel.F |
49 |
TIMESTEP_WVEL |
_RL tmpFac, nh_Fac, igwFac |
./model/src/timestep_wvel.F |
54 |
TIMESTEP_WVEL |
igwFac = 0. _d 0 |
./model/src/timestep_wvel.F |
55 |
TIMESTEP_WVEL |
IF ( implicitIntGravWave ) igwFac = 1. _d 0 |
./model/src/timestep_wvel.F |
97 |
TIMESTEP_WVEL |
tmpFac = nh_Fac + igwFac*wUnit2rVel(k)*wUnit2rVel(k) |