| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_init_fixed.F |
100 |
LAYERS_INIT_FIXED |
ELSE IF ( (ZZc(kk) .GE. Zc(Nr)) .OR. (k .EQ. Nr) ) THEN |
|
./pkg/layers/layers_init_fixed.F |
104 |
LAYERS_INIT_FIXED |
ELSE IF ( (ZZc(kk) .GE. Zc(k)) |
|
./pkg/layers/layers_init_fixed.F |
105 |
LAYERS_INIT_FIXED |
& .AND. (ZZc(kk) .LT. Zc(Nr)) ) THEN |
|
./pkg/layers/layers_init_fixed.F |
107 |
LAYERS_INIT_FIXED |
DO WHILE (ZZc(kk) .GE. Zc(k+1)) |
|
./pkg/layers/layers_init_fixed.F |
112 |
LAYERS_INIT_FIXED |
MapFact(kk) = 1.0 - (( ZZc(kk) - Zc(k) ) / drC(k+1)) |
|
./pkg/layers/layers_init_fixed.F |
117 |
LAYERS_INIT_FIXED |
& ', ZZc(kk)=', ZZc(kk),' , Zc(k)=',Zc(k) |
|
./pkg/layers/layers_init_fixed.F |
123 |
LAYERS_INIT_FIXED |
IF ( ZZc(kk).LT.Zf(MapIndex(kk)+1) ) THEN |
|
./pkg/layers/layers_init_fixed.F |
135 |
LAYERS_INIT_FIXED |
& '// ZZc=', ZZc(kk), |
|
./pkg/layers/layers_init_fixed.F |
38 |
LAYERS_INIT_FIXED |
_RL ZZc(FineGridMax) |
|
./pkg/layers/layers_init_fixed.F |
85 |
LAYERS_INIT_FIXED |
ZZc(1) = 0.5 _d 0 * dZZf(1) |
|
./pkg/layers/layers_init_fixed.F |
89 |
LAYERS_INIT_FIXED |
ZZc(kk-1) = 0.5 _d 0 * (ZZf(kk) + ZZf(kk-1)) |
|
./pkg/layers/layers_init_fixed.F |
96 |
LAYERS_INIT_FIXED |
IF ( ZZc(kk) .LT. Zc(1) ) THEN |