| File |
Line number |
Procedure |
Code |
|
./pkg/frazil/frazil_calc_rhs.F |
43 |
FRAZIL_CALC_RHS |
_RL Tfreezing, Tresid, pLoc, sLoc, tLoc |
|
./pkg/frazil/frazil_calc_rhs.F |
88 |
FRAZIL_CALC_RHS |
Tfreezing = (a0 + a1*sqrt(sLoc) + a2*sLoc) * sLoc + b*pLoc |
|
./pkg/frazil/frazil_calc_rhs.F |
90 |
FRAZIL_CALC_RHS |
IF (tLoc .LT. Tfreezing) THEN |
|
./pkg/frazil/frazil_calc_rhs.F |
93 |
FRAZIL_CALC_RHS |
Tresid = ( Tfreezing - tloc ) |
|
./model/src/freeze_surface.F |
42 |
FREEZE_SURFACE |
_RL Tfreezing |
|
./model/src/freeze_surface.F |
51 |
FREEZE_SURFACE |
Tfreezing = -1.9 _d 0 |
|
./model/src/freeze_surface.F |
58 |
FREEZE_SURFACE |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./model/src/freeze_surface.F |
60 |
FREEZE_SURFACE |
& ( Tfreezing - theta(i,j,k,bi,bj) ) |
|
./model/src/freeze_surface.F |
62 |
FREEZE_SURFACE |
theta(i,j,k,bi,bj) = Tfreezing |
|
./model/src/ini_theta.F |
134 |
INI_THETA |
Tfreezing=-1.9 _d 0 |
|
./model/src/ini_theta.F |
140 |
INI_THETA |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./model/src/ini_theta.F |
141 |
INI_THETA |
theta(i,j,k,bi,bj) = Tfreezing |
|
./model/src/ini_theta.F |
52 |
INI_THETA |
_RL Tfreezing |
|
./verification/advect_xy/code/ini_theta.F |
132 |
INI_THETA |
Tfreezing=-1.9 _d 0 |
|
./verification/advect_xy/code/ini_theta.F |
139 |
INI_THETA |
IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN |
|
./verification/advect_xy/code/ini_theta.F |
140 |
INI_THETA |
theta(i,j,k,bi,bj) = Tfreezing |
|
./verification/advect_xy/code/ini_theta.F |
48 |
INI_THETA |
_RL Tfreezing |