| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_fluxcalc.F |
108 |
LAYERS_FLUXCALC |
INTEGER i,j,k,kk,kg,kci,kp1,kloc |
|
./pkg/layers/layers_fluxcalc.F |
142 |
LAYERS_FLUXCALC |
DO kg=1,Nlayers |
|
./pkg/layers/layers_fluxcalc.F |
146 |
LAYERS_FLUXCALC |
UH (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
148 |
LAYERS_FLUXCALC |
Hw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
149 |
LAYERS_FLUXCALC |
PIw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
150 |
LAYERS_FLUXCALC |
Uw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
154 |
LAYERS_FLUXCALC |
VH (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
156 |
LAYERS_FLUXCALC |
Hs(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
157 |
LAYERS_FLUXCALC |
PIs(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
158 |
LAYERS_FLUXCALC |
Vs(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
347 |
LAYERS_FLUXCALC |
DO kg=1,Nlayers |
|
./pkg/layers/layers_fluxcalc.F |
351 |
LAYERS_FLUXCALC |
IF (Hw(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
352 |
LAYERS_FLUXCALC |
PIw(i,j,kg,bi,bj) = 1. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
353 |
LAYERS_FLUXCALC |
Uw(i,j,kg,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
354 |
LAYERS_FLUXCALC |
& UH(i,j,kg,bi,bj) / Hw(i,j,kg,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
358 |
LAYERS_FLUXCALC |
IF (Hs(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
359 |
LAYERS_FLUXCALC |
PIs(i,j,kg,bi,bj) = 1. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
360 |
LAYERS_FLUXCALC |
Vs(i,j,kg,bi,bj) = |
|
./pkg/layers/layers_fluxcalc.F |
361 |
LAYERS_FLUXCALC |
& VH(i,j,kg,bi,bj) / Hs(i,j,kg,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
454 |
LAYERS_DIAPYCNAL |
INTEGER i,j,k,kk,kg,kci,kloc |
|
./pkg/layers/layers_fluxcalc.F |
492 |
LAYERS_DIAPYCNAL |
DO kg=1,Nlayers-1 |
|
./pkg/layers/layers_fluxcalc.F |
495 |
LAYERS_DIAPYCNAL |
TtendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
496 |
LAYERS_DIAPYCNAL |
TtendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
497 |
LAYERS_DIAPYCNAL |
TtendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
498 |
LAYERS_DIAPYCNAL |
TtendAdvh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
499 |
LAYERS_DIAPYCNAL |
TtendAdvr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
500 |
LAYERS_DIAPYCNAL |
Ttendtot(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
501 |
LAYERS_DIAPYCNAL |
StendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
502 |
LAYERS_DIAPYCNAL |
StendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
503 |
LAYERS_DIAPYCNAL |
StendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
504 |
LAYERS_DIAPYCNAL |
StendAdvh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
505 |
LAYERS_DIAPYCNAL |
StendAdvr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
506 |
LAYERS_DIAPYCNAL |
Stendtot(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
507 |
LAYERS_DIAPYCNAL |
Hcw(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
512 |
LAYERS_DIAPYCNAL |
DO kg=1,Nlayers |
|
./pkg/layers/layers_fluxcalc.F |
515 |
LAYERS_DIAPYCNAL |
Hc(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
516 |
LAYERS_DIAPYCNAL |
PIc(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_fluxcalc.F |
692 |
LAYERS_DIAPYCNAL |
DO kg=1,Nlayers |
|
./pkg/layers/layers_fluxcalc.F |
695 |
LAYERS_DIAPYCNAL |
IF (Hc(i,j,kg,bi,bj) .GT. 0.) THEN |
|
./pkg/layers/layers_fluxcalc.F |
696 |
LAYERS_DIAPYCNAL |
PIc(i,j,kg,bi,bj) = 1. _d 0 |
|
./pkg/layers/layers_init_varia.F |
30 |
LAYERS_INIT_VARIA |
INTEGER i,j,kg |
|
./pkg/layers/layers_init_varia.F |
39 |
LAYERS_INIT_VARIA |
DO kg=1,Nlayers |
|
./pkg/layers/layers_init_varia.F |
42 |
LAYERS_INIT_VARIA |
layers_Hc (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
43 |
LAYERS_INIT_VARIA |
layers_PIc(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
47 |
LAYERS_INIT_VARIA |
DO kg=1,Nlayers-1 |
|
./pkg/layers/layers_init_varia.F |
50 |
LAYERS_INIT_VARIA |
layers_Hc (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
51 |
LAYERS_INIT_VARIA |
layers_TtendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
52 |
LAYERS_INIT_VARIA |
layers_TtendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
53 |
LAYERS_INIT_VARIA |
layers_TtendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
54 |
LAYERS_INIT_VARIA |
layers_TtendAdvh (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
55 |
LAYERS_INIT_VARIA |
layers_TtendAdvr (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
56 |
LAYERS_INIT_VARIA |
layers_StendSurf (i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
57 |
LAYERS_INIT_VARIA |
layers_StendDiffh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
58 |
LAYERS_INIT_VARIA |
layers_StendDiffr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
59 |
LAYERS_INIT_VARIA |
layers_StendAdvh(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
60 |
LAYERS_INIT_VARIA |
layers_StendAdvr(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
65 |
LAYERS_INIT_VARIA |
DO kg=1,Nr |
|
./pkg/layers/layers_init_varia.F |
68 |
LAYERS_INIT_VARIA |
layers_alpha(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
69 |
LAYERS_INIT_VARIA |
layers_beta(i,j,kg,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
81 |
LAYERS_INIT_VARIA |
DO kg=1,Nr |
|
./pkg/layers/layers_init_varia.F |
84 |
LAYERS_INIT_VARIA |
layers_tottend (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
85 |
LAYERS_INIT_VARIA |
layers_dfx (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
86 |
LAYERS_INIT_VARIA |
layers_dfy (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
87 |
LAYERS_INIT_VARIA |
layers_dfr (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
88 |
LAYERS_INIT_VARIA |
layers_afx (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
89 |
LAYERS_INIT_VARIA |
layers_afy (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
90 |
LAYERS_INIT_VARIA |
layers_afr (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
|
./pkg/layers/layers_init_varia.F |
92 |
LAYERS_INIT_VARIA |
layers_sw (i,j,kg,1 ,bi,bj) = 0. _d 0 |