| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_fluxcalc.F |
123 |
LAYERS_FLUXCALC |
DO kg=1,Nlayers |
|
./pkg/layers/layers_fluxcalc.F |
127 |
LAYERS_FLUXCALC |
UH(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
129 |
LAYERS_FLUXCALC |
Hw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
133 |
LAYERS_FLUXCALC |
VH(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
135 |
LAYERS_FLUXCALC |
Hs(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
313 |
LAYERS_FLUXCALC |
DO kg=1,Nlayers |
|
./pkg/layers/layers_fluxcalc.F |
317 |
LAYERS_FLUXCALC |
IF (Hw(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
318 |
LAYERS_FLUXCALC |
PIw(i,j,kg,bi,bj) = 1. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
319 |
LAYERS_FLUXCALC |
U(i,j,kg,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
320 |
LAYERS_FLUXCALC |
& UH(i,j,kg,bi,bj) / Hw(i,j,kg,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
324 |
LAYERS_FLUXCALC |
IF (Hs(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
325 |
LAYERS_FLUXCALC |
PIs(i,j,kg,bi,bj) = 1. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
326 |
LAYERS_FLUXCALC |
V(i,j,kg,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
327 |
LAYERS_FLUXCALC |
& VH(i,j,kg,bi,bj) / Hs(i,j,kg,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
407 |
LAYERS_DIAPYCNAL |
INTEGER i,j,k,kk,kg,kci,kloc |
|
./pkg/layers/layers_fluxcalc.F |
436 |
LAYERS_DIAPYCNAL |
DO kg=1,Nlayers |
|
./pkg/layers/layers_fluxcalc.F |
439 |
LAYERS_DIAPYCNAL |
TtendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
440 |
LAYERS_DIAPYCNAL |
TtendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
441 |
LAYERS_DIAPYCNAL |
TtendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
442 |
LAYERS_DIAPYCNAL |
StendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
443 |
LAYERS_DIAPYCNAL |
StendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
444 |
LAYERS_DIAPYCNAL |
StendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
445 |
LAYERS_DIAPYCNAL |
Hc(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
446 |
LAYERS_DIAPYCNAL |
PIc(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
523 |
LAYERS_DIAPYCNAL |
DO kg=1,Nlayers |
|
./pkg/layers/layers_fluxcalc.F |
526 |
LAYERS_DIAPYCNAL |
IF (Hc(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
527 |
LAYERS_DIAPYCNAL |
PIc(i,j,kg,bi,bj) = 1. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
90 |
LAYERS_FLUXCALC |
INTEGER i,j,k,kk,kg,kci,kp1,kloc |
|
./pkg/layers/layers_init_varia.F |
28 |
LAYERS_INIT_VARIA |
INTEGER i,j,kg,bi,bj |
|
./pkg/layers/layers_init_varia.F |
38 |
LAYERS_INIT_VARIA |
DO kg=1,Nlayers |
|
./pkg/layers/layers_init_varia.F |
43 |
LAYERS_INIT_VARIA |
layers_UH (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
45 |
LAYERS_INIT_VARIA |
layers_Hw (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
46 |
LAYERS_INIT_VARIA |
layers_PIw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
47 |
LAYERS_INIT_VARIA |
layers_U (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
52 |
LAYERS_INIT_VARIA |
layers_VH (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
54 |
LAYERS_INIT_VARIA |
layers_Hs (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
55 |
LAYERS_INIT_VARIA |
layers_PIs(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
56 |
LAYERS_INIT_VARIA |
layers_V (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
61 |
LAYERS_INIT_VARIA |
layers_TtendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
62 |
LAYERS_INIT_VARIA |
layers_TtendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
63 |
LAYERS_INIT_VARIA |
layers_TtendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
64 |
LAYERS_INIT_VARIA |
layers_StendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
65 |
LAYERS_INIT_VARIA |
layers_StendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
66 |
LAYERS_INIT_VARIA |
layers_StendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
73 |
LAYERS_INIT_VARIA |
DO kg=1,Nr |
|
./pkg/layers/layers_init_varia.F |
76 |
LAYERS_INIT_VARIA |
prho(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
84 |
LAYERS_INIT_VARIA |
DO kg=1,Nr |
|
./pkg/layers/layers_init_varia.F |
87 |
LAYERS_INIT_VARIA |
layers_surfflux(i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
88 |
LAYERS_INIT_VARIA |
layers_dfx (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
89 |
LAYERS_INIT_VARIA |
layers_dfy (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
90 |
LAYERS_INIT_VARIA |
layers_dfr (i,j,kg,iTracer,bi,bj) = 0. _d 0 |