File |
Line number |
Procedure |
Code |
./pkg/layers/LAYERS.h |
125 |
NO PROCEDURE |
_RL layers_dfr(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,2,nSx,nSy) |
./pkg/layers/LAYERS.h |
88 |
NO PROCEDURE |
& layers_surfflux, layers_dfx, layers_dfy, layers_dfr, |
./pkg/layers/layers_calc.F |
275 |
LAYERS_CALC |
& layers_dfr, myIter, myThid ) |
./pkg/layers/layers_calc.F |
453 |
LAYERS_CALC |
layers_dfr (i,j,k,iTracer,bi,bj) = 0. _d 0 |
./pkg/layers/layers_fluxcalc.F |
656 |
LAYERS_DIAPYCNAL |
& dzfac * Tfac * layers_dfr(i,j,kci,1,bi,bj) |
./pkg/layers/layers_fluxcalc.F |
663 |
LAYERS_DIAPYCNAL |
& dzfac * Sfac * layers_dfr(i,j,kci,2,bi,bj) |
./pkg/layers/layers_init_varia.F |
87 |
LAYERS_INIT_VARIA |
layers_dfr (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
./pkg/layers/layers_save.F |
79 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_dfr,'M', |
./pkg/layers/layers_thermodynamics.F |
113 |
LAYERS_CALC_RHS |
layers_dfr(i,j,k,iTracer,bi,bj) = tmpfac * rkSign * |
./pkg/layers/layers_thermodynamics.F |
114 |
LAYERS_CALC_RHS |
& ( layers_dfr(i,j,kdown,iTracer,bi,bj)*downfac - |
./pkg/layers/layers_thermodynamics.F |
115 |
LAYERS_CALC_RHS |
& layers_dfr(i,j,k,iTracer,bi,bj) ) |