File |
Line number |
Procedure |
Code |
./verification/advect_xz/code/ini_theta.F |
114 |
INI_THETA |
Tfreezing=-1.9 _d 0 |
./verification/advect_xz/code/ini_theta.F |
121 |
INI_THETA |
IF (theta(I,J,k,bi,bj) .LT. Tfreezing) THEN |
./verification/advect_xz/code/ini_theta.F |
122 |
INI_THETA |
theta(I,J,K,bi,bj) = Tfreezing |
./verification/advect_xz/code/ini_theta.F |
48 |
INI_THETA |
_RL Tfreezing |
./model/src/ini_theta.F |
103 |
INI_THETA |
Tfreezing=-1.9 _d 0 |
./model/src/ini_theta.F |
110 |
INI_THETA |
IF (theta(I,J,k,bi,bj) .LT. Tfreezing) THEN |
./model/src/ini_theta.F |
111 |
INI_THETA |
theta(I,J,K,bi,bj) = Tfreezing |
./model/src/ini_theta.F |
47 |
INI_THETA |
_RL Tfreezing |
./verification/advect_xy/code/ini_theta.F |
114 |
INI_THETA |
Tfreezing=-1.9 _d 0 |
./verification/advect_xy/code/ini_theta.F |
121 |
INI_THETA |
IF (theta(I,J,k,bi,bj) .LT. Tfreezing) THEN |
./verification/advect_xy/code/ini_theta.F |
122 |
INI_THETA |
theta(I,J,K,bi,bj) = Tfreezing |
./verification/advect_xy/code/ini_theta.F |
48 |
INI_THETA |
_RL Tfreezing |
./model/src/freeze.F |
38 |
FREEZE |
_RL Tfreezing |
./model/src/freeze.F |
41 |
FREEZE |
Tfreezing=-1.9 _d 0 |
./model/src/freeze.F |
46 |
FREEZE |
IF (gT(i,j,k,bi,bj) .LT. Tfreezing) THEN |
./model/src/freeze.F |
47 |
FREEZE |
gT(i,j,k,bi,bj)=Tfreezing |
./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 |