File |
Line number |
Procedure |
Code |
./pkg/layers/LAYERS.h |
19 |
NO PROCEDURE |
INTEGER layers_num(layers_maxNum), layers_krho(layers_maxNum) |
./pkg/layers/LAYERS.h |
20 |
NO PROCEDURE |
COMMON /LAYERS_PARM_I/ layers_num, layers_krho |
./pkg/layers/layers_calc.F |
124 |
LAYERS_CALC |
IF ( layers_num(iLa) .EQ. 1 ) THEN |
./pkg/layers/layers_calc.F |
144 |
LAYERS_CALC |
ELSEIF ( layers_num(iLa) .EQ. 2 ) THEN |
./pkg/layers/layers_calc.F |
164 |
LAYERS_CALC |
ELSEIF ( layers_num(iLa) .EQ. 3 ) THEN |
./pkg/layers/layers_calc.F |
229 |
LAYERS_CALC |
& .AND. layers_num(iLa).NE.0 ) THEN |
./pkg/layers/layers_calc.F |
255 |
LAYERS_CALC |
IF ( layers_num(iLa).EQ.3 ) THEN |
./pkg/layers/layers_calc.F |
303 |
LAYERS_CALC |
IF ( useDiagnostics .AND. layers_num(iLa).NE.0 ) THEN |
./pkg/layers/layers_calc.F |
306 |
LAYERS_CALC |
IF ( layers_num(iLa).EQ.3 ) THEN |
./pkg/layers/layers_calc.F |
423 |
LAYERS_CALC |
IF ( layers_num(iLa) .EQ. 3 ) |
./pkg/layers/layers_check.F |
45 |
LAYERS_CHECK |
IF ( layers_num(iLa).NE.0 ) THEN |
./pkg/layers/layers_check.F |
50 |
LAYERS_CHECK |
CALL WRITE_0D_I( layers_num(iLa), INDEX_NONE, tmpName(1:15), |
./pkg/layers/layers_check.F |
60 |
LAYERS_CHECK |
IF ( layers_num(iLa).EQ.3 ) |
./pkg/layers/layers_check.F |
74 |
LAYERS_CHECK |
IF ( layers_num(iLa).NE.0 ) THEN |
./pkg/layers/layers_check.F |
87 |
LAYERS_CHECK |
IF ( layers_num(iLa).EQ.3 ) THEN |
./pkg/layers/layers_diagnostics_init.F |
64 |
LAYERS_DIAGNOSTICS_INIT |
IF ( layers_num(iLa).NE.0 ) THEN |
./pkg/layers/layers_diagnostics_init.F |
67 |
LAYERS_DIAGNOSTICS_INIT |
IF ( layers_num(iLa).EQ.3 ) THEN |
./pkg/layers/layers_fluxcalc.F |
629 |
LAYERS_DIAPYCNAL |
IF ( layers_num(iLa) .EQ. 3 ) THEN |
./pkg/layers/layers_init_fixed.F |
146 |
LAYERS_INIT_FIXED |
IF ( layers_num(iLa).NE.0 ) THEN |
./pkg/layers/layers_init_fixed.F |
156 |
LAYERS_INIT_FIXED |
IF ( layers_num(iLa).NE.0 ) THEN |
./pkg/layers/layers_output.F |
112 |
LAYERS_OUTPUT |
IF ( layers_num(1).EQ.3 ) |
./pkg/layers/layers_output.F |
144 |
LAYERS_OUTPUT |
IF ( layers_num(1).EQ.3 ) |
./pkg/layers/layers_output.F |
174 |
LAYERS_OUTPUT |
IF ( layers_num(1).EQ.3 ) |
./pkg/layers/layers_readparms.F |
149 |
LAYERS_READPARMS |
layers_num(iLa) = 0 |
./pkg/layers/layers_readparms.F |
150 |
LAYERS_READPARMS |
IF ( layers_name(iLa).EQ.'TH ' ) layers_num(iLa) = 1 |
./pkg/layers/layers_readparms.F |
151 |
LAYERS_READPARMS |
IF ( layers_name(iLa).EQ.'SLT' ) layers_num(iLa) = 2 |
./pkg/layers/layers_readparms.F |
152 |
LAYERS_READPARMS |
IF ( layers_name(iLa).EQ.'RHO' ) layers_num(iLa) = 3 |
./pkg/layers/layers_readparms.F |
154 |
LAYERS_READPARMS |
& layers_num(iLa).EQ.0 ) THEN |
./pkg/layers/layers_readparms.F |
166 |
LAYERS_READPARMS |
IF ( layers_num(iLa).NE.0 ) THEN |