Symbol Description Uses
layers_num 28


File Line number Procedure Code
./pkg/layers/LAYERS.h 11 NO PROCEDURE 
      INTEGER layers_num(layers_maxNum), layers_krho(layers_maxNum)
./pkg/layers/LAYERS.h 12 NO PROCEDURE 
      COMMON /LAYERS_PARM_I/ layers_num,layers_krho,
./pkg/layers/layers_calc.F 108 LAYERS_CALC 
       ELSEIF ( layers_num(iLa) .EQ. 2 ) THEN
./pkg/layers/layers_calc.F 123 LAYERS_CALC 
       ELSEIF ( layers_num(iLa) .EQ. 3 ) THEN
./pkg/layers/layers_calc.F 164 LAYERS_CALC 
     &    .AND. layers_num(iLa).NE.0 ) THEN
./pkg/layers/layers_calc.F 185 LAYERS_CALC 
          IF ( layers_num(1).EQ.3 ) THEN
./pkg/layers/layers_calc.F 242 LAYERS_CALC 
       IF ( useDiagnostics .AND. layers_num(iLa).NE.0 ) THEN
./pkg/layers/layers_calc.F 345 LAYERS_CALC 
          IF ( layers_num(iLa) .EQ. 3 )
./pkg/layers/layers_calc.F 93 LAYERS_CALC 
       IF ( layers_num(iLa) .EQ. 1 ) THEN
./pkg/layers/layers_check.F 44 LAYERS_CHECK 
      IF ( layers_num(iLa).NE.0 ) THEN
./pkg/layers/layers_check.F 46 LAYERS_CHECK 
       CALL WRITE_0D_I( layers_num(iLa), INDEX_NONE, 'layers_num =',
./pkg/layers/layers_check.F 55 LAYERS_CHECK 
       IF ( layers_num(iLa).EQ.3)
./pkg/layers/layers_diagnostics_init.F 59 LAYERS_DIAGNOSTICS_INIT 
       IF ( layers_num(iLa).NE.0 ) THEN
./pkg/layers/layers_init_fixed.F 146 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 140 LAYERS_OUTPUT 
         IF ( layers_num(1).EQ.3 )
./pkg/layers/layers_output.F 170 LAYERS_OUTPUT 
          IF ( layers_num(1).EQ.3 )
./pkg/layers/layers_readparms.F 100 LAYERS_READPARMS 
          layers_num(iLa) = 0
./pkg/layers/layers_readparms.F 113 LAYERS_READPARMS 
     &       ( layers_num(iLa).EQ.1 ) ) THEN
./pkg/layers/layers_readparms.F 115 LAYERS_READPARMS 
          layers_num(iLa)=1
./pkg/layers/layers_readparms.F 117 LAYERS_READPARMS 
     &       ( layers_num(iLa).EQ.2 ) ) THEN
./pkg/layers/layers_readparms.F 119 LAYERS_READPARMS 
          layers_num(iLa)=2
./pkg/layers/layers_readparms.F 121 LAYERS_READPARMS 
     &       ( layers_num(iLa).EQ.3 ) ) THEN
./pkg/layers/layers_readparms.F 123 LAYERS_READPARMS 
          layers_num(iLa)=3
./pkg/layers/layers_readparms.F 126 LAYERS_READPARMS 
          layers_num(iLa)=0
./pkg/layers/layers_readparms.F 134 LAYERS_READPARMS 
       IF ( layers_num(iLa).NE.0 ) THEN
./pkg/layers/layers_readparms.F 55 LAYERS_READPARMS 
        layers_num(iLa) = 0
./pkg/layers/layers_readparms.F 93 LAYERS_READPARMS 
        layers_num(1) = LAYER_nb