File |
Line number |
Procedure |
Code |
./pkg/layers/LAYERS.h |
126 |
NO PROCEDURE |
_RL layers_afx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,2,nSx,nSy) |
./pkg/layers/LAYERS.h |
89 |
NO PROCEDURE |
& layers_afx, layers_afy, layers_afr, layers_tottend |
./pkg/layers/layers_calc.F |
277 |
LAYERS_CALC |
& layers_afx, myIter, myThid ) |
./pkg/layers/layers_calc.F |
454 |
LAYERS_CALC |
layers_afx (i,j,k,iTracer,bi,bj) = 0. _d 0 |
./pkg/layers/layers_fluxcalc.F |
667 |
LAYERS_DIAPYCNAL |
& (layers_afx(i,j,kci,1,bi,bj)+ |
./pkg/layers/layers_fluxcalc.F |
674 |
LAYERS_DIAPYCNAL |
& (layers_afx(i,j,kci,2,bi,bj)+ |
./pkg/layers/layers_init_varia.F |
88 |
LAYERS_INIT_VARIA |
layers_afx (i,j,kg,iTracer,bi,bj) = 0. _d 0 |
./pkg/layers/layers_save.F |
82 |
LAYERS_FILL |
CALL LAYERS_FILL_FIELD(df, trIdentity, Nr, layers_afx,'U', |
./pkg/layers/layers_thermodynamics.F |
117 |
LAYERS_CALC_RHS |
layers_afx(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) * |
./pkg/layers/layers_thermodynamics.F |
118 |
LAYERS_CALC_RHS |
& tmpfac * ( layers_afx(i+1,j,k,iTracer,bi,bj) - |
./pkg/layers/layers_thermodynamics.F |
119 |
LAYERS_CALC_RHS |
& layers_afx(i,j,k,iTracer,bi,bj) ) |