Symbol Description Uses
nlyr maximum number of ice layers 46


File Line number Procedure Code
./pkg/thsice/THSICE_SIZE.h 11 NO PROCEDURE 
      INTEGER nlyr
./pkg/thsice/THSICE_SIZE.h 12 NO PROCEDURE 
      PARAMETER (nlyr = 2)
./pkg/thsice/thsice_calc_thickn.F 152 THSICE_CALC_THICKN 
      _RL  qicen(nlyr)
./pkg/thsice/thsice_calc_thickn.F 191 THSICE_CALC_THICKN 
      _RL  hnew(nlyr)
./pkg/thsice/thsice_calc_thickn.F 236 THSICE_CALC_THICKN 
      rec_nlyr = nlyr
./pkg/thsice/thsice_calc_thickn.F 456 THSICE_CALC_THICKN 
      DO k = 1, nlyr
./pkg/thsice/thsice_calc_thickn.F 478 THSICE_CALC_THICKN 
         DO k = 1, nlyr
./pkg/thsice/thsice_calc_thickn.F 481 THSICE_CALC_THICKN 
     &         + nlyr*(i-1)
./pkg/thsice/thsice_calc_thickn.F 482 THSICE_CALC_THICKN 
     &         + nlyr*sNx*(j-1)
./pkg/thsice/thsice_calc_thickn.F 483 THSICE_CALC_THICKN 
     &         + nlyr*sNx*sNy*act1
./pkg/thsice/thsice_calc_thickn.F 484 THSICE_CALC_THICKN 
     &         + nlyr*sNx*sNy*max1*act2
./pkg/thsice/thsice_calc_thickn.F 485 THSICE_CALC_THICKN 
     &         + nlyr*sNx*sNy*max1*max2*act3
./pkg/thsice/thsice_calc_thickn.F 486 THSICE_CALC_THICKN 
     &         + nlyr*sNx*sNy*max1*max2*max3*act4
./pkg/thsice/thsice_calc_thickn.F 528 THSICE_CALC_THICKN 
         qicen(nlyr) = (hnew(nlyr)*qicen(nlyr)+dhi*qbot) /
./pkg/thsice/thsice_calc_thickn.F 529 THSICE_CALC_THICKN 
     &        (hnew(nlyr)+dhi)
./pkg/thsice/thsice_calc_thickn.F 530 THSICE_CALC_THICKN 
         hnew(nlyr) = hnew(nlyr) + dhi
./pkg/thsice/thsice_calc_thickn.F 532 THSICE_CALC_THICKN 
         DO k = nlyr, 1, -1
./pkg/thsice/thsice_calc_thickn.F 534 THSICE_CALC_THICKN 
          ikey_2 = (nlyr-k+1)
./pkg/thsice/thsice_calc_thickn.F 535 THSICE_CALC_THICKN 
     &         + nlyr*(i-1)
./pkg/thsice/thsice_calc_thickn.F 536 THSICE_CALC_THICKN 
     &         + nlyr*sNx*(j-1)
./pkg/thsice/thsice_calc_thickn.F 537 THSICE_CALC_THICKN 
     &         + nlyr*sNx*sNy*act1
./pkg/thsice/thsice_calc_thickn.F 538 THSICE_CALC_THICKN 
     &         + nlyr*sNx*sNy*max1*act2
./pkg/thsice/thsice_calc_thickn.F 539 THSICE_CALC_THICKN 
     &         + nlyr*sNx*sNy*max1*max2*act3
./pkg/thsice/thsice_calc_thickn.F 540 THSICE_CALC_THICKN 
     &         + nlyr*sNx*sNy*max1*max2*max3*act4
./pkg/thsice/thsice_calc_thickn.F 584 THSICE_CALC_THICKN 
      DO k = 1, nlyr
./pkg/thsice/thsice_calc_thickn.F 595 THSICE_CALC_THICKN 
         DO k = 1, nlyr
./pkg/thsice/thsice_calc_thickn.F 602 THSICE_CALC_THICKN 
         DO k = 1, nlyr
./pkg/thsice/thsice_calc_thickn.F 649 THSICE_CALC_THICKN 
         DO k = 1, nlyr
./pkg/thsice/thsice_calc_thickn.F 652 THSICE_CALC_THICKN 
     &         + nlyr*(i-1)
./pkg/thsice/thsice_calc_thickn.F 653 THSICE_CALC_THICKN 
     &         + nlyr*sNx*(j-1)
./pkg/thsice/thsice_calc_thickn.F 654 THSICE_CALC_THICKN 
     &         + nlyr*sNx*sNy*act1
./pkg/thsice/thsice_calc_thickn.F 655 THSICE_CALC_THICKN 
     &         + nlyr*sNx*sNy*max1*act2
./pkg/thsice/thsice_calc_thickn.F 656 THSICE_CALC_THICKN 
     &         + nlyr*sNx*sNy*max1*max2*act3
./pkg/thsice/thsice_calc_thickn.F 657 THSICE_CALC_THICKN 
     &         + nlyr*sNx*sNy*max1*max2*max3*act4
./pkg/thsice/thsice_calc_thickn.F 703 THSICE_CALC_THICKN 
       DO k = 1, nlyr
./pkg/thsice/thsice_calc_thickn.F 711 THSICE_CALC_THICKN 
         DO k = 1, nlyr
./pkg/thsice/thsice_calc_thickn.F 718 THSICE_CALC_THICKN 
         DO k = 1, nlyr
./pkg/thsice/thsice_calc_thickn.F 768 THSICE_CALC_THICKN 
         DO k=1,nlyr
./pkg/thsice/thsice_calc_thickn.F 783 THSICE_CALC_THICKN 
       DO k = 1, nlyr
./pkg/thsice/thsice_check_conserv.F 38 THSICE_CHECK_CONSERV 
      _RL compact, hIce, hSnow, qicen(nlyr)
./pkg/thsice/thsice_extend.F 102 THSICE_EXTEND 
      _RL qicen(nlyr)
./pkg/thsice/thsice_solve4temp.F 129 THSICE_SOLVE4TEMP 
      _RL qicen(nlyr)
./pkg/thsice/thsice_solve4temp.F 130 THSICE_SOLVE4TEMP 
      _RL Tice (nlyr)