| File |
Line number |
Procedure |
Code |
|
./pkg/layers/LAYERS.h |
26 |
NO PROCEDURE |
_RL layers_UFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
28 |
NO PROCEDURE |
_RL layers_HU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
37 |
NO PROCEDURE |
_RL layers_VFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
39 |
NO PROCEDURE |
_RL layers_HV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
55 |
NO PROCEDURE |
_RL layers_UFlux_T(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
57 |
NO PROCEDURE |
_RL layers_HU_T(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
66 |
NO PROCEDURE |
_RL layers_VFlux_T(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy) |
|
./pkg/layers/LAYERS.h |
68 |
NO PROCEDURE |
_RL layers_HV_T(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nlayers,nSx,nSy) |
|
./pkg/layers/LAYERS_SIZE.h |
16 |
NO PROCEDURE |
INTEGER Nlayers, FineGridFact, FineGridMax |
|
./pkg/layers/LAYERS_SIZE.h |
17 |
NO PROCEDURE |
PARAMETER( Nlayers = 20 ) |
|
./pkg/layers/layers_calc.F |
130 |
LAYERS_CALC |
IF (TatU .GE. layers_G(Nlayers)) THEN |
|
./pkg/layers/layers_calc.F |
132 |
LAYERS_CALC |
kgu(i,j) = Nlayers |
|
./pkg/layers/layers_calc.F |
201 |
LAYERS_CALC |
IF (TatV .GE. layers_G(Nlayers)) THEN |
|
./pkg/layers/layers_calc.F |
203 |
LAYERS_CALC |
kgv(i,j) = Nlayers |
|
./pkg/layers/layers_calc.F |
266 |
LAYERS_CALC |
CALL TIMEAVE_CUMULATE( layers_UFlux_T, layers_UFlux, Nlayers, |
|
./pkg/layers/layers_calc.F |
269 |
LAYERS_CALC |
CALL TIMEAVE_CUMULATE( layers_HU_T, layers_HU, Nlayers, |
|
./pkg/layers/layers_calc.F |
274 |
LAYERS_CALC |
CALL TIMEAVE_CUMULATE( layers_VFlux_T, layers_VFlux, Nlayers, |
|
./pkg/layers/layers_calc.F |
277 |
LAYERS_CALC |
CALL TIMEAVE_CUMULATE( layers_HV_T, layers_HV, Nlayers, |
|
./pkg/layers/layers_calc.F |
79 |
LAYERS_CALC |
kgu(i,j) = Nlayers |
|
./pkg/layers/layers_calc.F |
80 |
LAYERS_CALC |
kgv(i,j) = Nlayers |
|
./pkg/layers/layers_calc.F |
85 |
LAYERS_CALC |
DO kg=1,Nlayers |
|
./pkg/layers/layers_check.F |
42 |
LAYERS_CHECK |
CALL WRITE_1D_RL(layers_G,Nlayers+1, INDEX_K,'layers_G =', |
|
./pkg/layers/layers_init_fixed.F |
140 |
LAYERS_INIT_FIXED |
CALL WRITE_GLVEC_RL( 'layers_G', ' ', layers_G, 1+Nlayers, |
|
./pkg/layers/layers_init_varia.F |
34 |
LAYERS_INIT_VARIA |
DO kg=1,Nlayers |
|
./pkg/layers/layers_init_varia.F |
61 |
LAYERS_INIT_VARIA |
CALL TIMEAVE_RESET(layers_UFlux_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_init_varia.F |
63 |
LAYERS_INIT_VARIA |
CALL TIMEAVE_RESET(layers_HU_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_init_varia.F |
68 |
LAYERS_INIT_VARIA |
CALL TIMEAVE_RESET(layers_VFlux_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_init_varia.F |
70 |
LAYERS_INIT_VARIA |
CALL TIMEAVE_RESET(layers_HV_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
106 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_UFlux_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
108 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_HU_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
113 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_VFlux_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
115 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_HV_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
133 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
136 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
142 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
145 |
LAYERS_OUTPUT |
& Nlayers, bi, bj, myThid ) |
|
./pkg/layers/layers_output.F |
155 |
LAYERS_OUTPUT |
CALL WRITE_FLD_3D_RL( 'layers_UFlux-tave.', suff, Nlayers, |
|
./pkg/layers/layers_output.F |
158 |
LAYERS_OUTPUT |
CALL WRITE_FLD_3D_RL( 'layers_HU-tave.', suff, Nlayers, |
|
./pkg/layers/layers_output.F |
163 |
LAYERS_OUTPUT |
CALL WRITE_FLD_3D_RL( 'layers_VFlux-tave.', suff, Nlayers, |
|
./pkg/layers/layers_output.F |
166 |
LAYERS_OUTPUT |
CALL WRITE_FLD_3D_RL( 'layers_HV-tave.', suff, Nlayers, |
|
./pkg/layers/layers_output.F |
180 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_UFlux_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
182 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_HU_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
187 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_VFlux_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
189 |
LAYERS_OUTPUT |
CALL TIMEAVE_RESET(layers_HV_T,Nlayers,bi,bj,myThid) |
|
./pkg/layers/layers_output.F |
71 |
LAYERS_OUTPUT |
CALL WRITE_FLD_3D_RL( 'layers_UFlux.', suff, Nlayers, |
|
./pkg/layers/layers_output.F |
74 |
LAYERS_OUTPUT |
CALL WRITE_FLD_3D_RL( 'layers_HU.', suff, Nlayers, |
|
./pkg/layers/layers_output.F |
79 |
LAYERS_OUTPUT |
CALL WRITE_FLD_3D_RL( 'layers_VFlux.', suff, Nlayers, |
|
./pkg/layers/layers_output.F |
82 |
LAYERS_OUTPUT |
CALL WRITE_FLD_3D_RL( 'layers_HV.', suff, Nlayers, |
|
./pkg/layers/layers_readparms.F |
43 |
LAYERS_READPARMS |
DO k=1,Nlayers+1 |
|
./pkg/layers/layers_readparms.F |
69 |
LAYERS_READPARMS |
DO k=1,Nlayers+1 |