Symbol Description Uses
compact Flag to control use of repeat symbol for same valued 48


File Line number Procedure Code
./pkg/thsice/thsice_calc_thickn.F 12 THSICE_CALC_THICKN 
     U                     compact, hi, hs, Tsf, qicen, qleft,
./pkg/thsice/thsice_calc_thickn.F 142 THSICE_CALC_THICKN 
        if (hi.gt.hihig.and. compact.le.iceMaskmax) then
./pkg/thsice/thsice_calc_thickn.F 330 THSICE_CALC_THICKN 
         compact = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 418 THSICE_CALC_THICKN 
         compact = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 477 THSICE_CALC_THICKN 
     &                  compact,hi,(qicen(1)+qicen(2))*0.5, hs
./pkg/thsice/thsice_calc_thickn.F 483 THSICE_CALC_THICKN 
      if (hi.le.0. _d 0) compact=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 518 THSICE_CALC_THICKN 
      if (compact.gt.0. _d 0.and.extend.gt.0. _d 0) then
./pkg/thsice/thsice_calc_thickn.F 525 THSICE_CALC_THICKN 
           compact=(1. _d 0-extend/rqh)*compact
./pkg/thsice/thsice_calc_thickn.F 529 THSICE_CALC_THICKN 
           compact=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 57 THSICE_CALC_THICKN 
      _RL compact
./pkg/thsice/thsice_check_conserv.F 10 THSICE_CHECK_CONSERV 
     I             iceFrac, compact, hIce, hSnow, qicen,
./pkg/thsice/thsice_check_conserv.F 38 THSICE_CHECK_CONSERV 
      _RL compact, hIce, hSnow, qicen(nlyr)
./pkg/thsice/thsice_check_conserv.F 66 THSICE_CHECK_CONSERV 
     &     + compact*( rhos*hSnow*qsnow
./pkg/thsice/thsice_check_conserv.F 70 THSICE_CHECK_CONSERV 
     &     - compact*( rhos*hSnow + rhoi*hIce )
./pkg/thsice/thsice_check_conserv.F 72 THSICE_CHECK_CONSERV 
     &     - compact* rhoi*hIce*saltice
./pkg/thsice/thsice_extend.F 104 THSICE_EXTEND 
            compact = iceFraction + newIceFrac
./pkg/thsice/thsice_extend.F 106 THSICE_EXTEND 
            snowThick = snowThick*iceFraction/compact
./pkg/thsice/thsice_extend.F 11 THSICE_EXTEND 
     U                  sst, compact, iceThick, snowThick, qicen,
./pkg/thsice/thsice_extend.F 49 THSICE_EXTEND 
      _RL compact
./pkg/thsice/thsice_extend.F 79 THSICE_EXTEND 
        iceFraction = compact
./pkg/thsice/thsice_extend.F 83 THSICE_EXTEND 
        IF ( compact.LE.0. _d 0 ) THEN
./pkg/thsice/thsice_extend.F 98 THSICE_EXTEND 
            compact = newIceFrac
./pkg/thsice/thsice_step_fwd.F 194 THSICE_STEP_FWD 
        compact= iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 196 THSICE_STEP_FWD 
        IF (dBug .AND. (frzmltMxL.GT.0. .OR. compact.GT.0.) ) THEN
./pkg/thsice/thsice_step_fwd.F 199 THSICE_STEP_FWD 
     &                  compact, iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 219 THSICE_STEP_FWD 
     U          compact, hIce, hSnow, Tsf, qicen, flx2oc,
./pkg/thsice/thsice_step_fwd.F 245 THSICE_STEP_FWD 
     &   compact,flx2oc,fsalt,frw2oc
./pkg/thsice/thsice_step_fwd.F 249 THSICE_STEP_FWD 
     I            icFrac, compact, hIce, hSnow, qicen,
./pkg/thsice/thsice_step_fwd.F 276 THSICE_STEP_FWD 
     &                        compact,hIce,hSnow,Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 296 THSICE_STEP_FWD 
          icFrac = compact
./pkg/thsice/thsice_step_fwd.F 301 THSICE_STEP_FWD 
     U               oceTs, compact, hIce, hSnow, qicen,
./pkg/thsice/thsice_step_fwd.F 306 THSICE_STEP_FWD 
     &                 ,compact,flx2oc,fsalt,frw2oc
./pkg/thsice/thsice_step_fwd.F 311 THSICE_STEP_FWD 
     I            icFrac, compact, hIce, hSnow, qicen,
./pkg/thsice/thsice_step_fwd.F 317 THSICE_STEP_FWD 
          IF ( compact.GT.0. _d 0 .AND. icFrac.EQ.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 333 THSICE_STEP_FWD 
     &                        compact,hIce,hSnow,Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 337 THSICE_STEP_FWD 
        IF ( compact .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_step_fwd.F 338 THSICE_STEP_FWD 
          iceMask(i,j,bi,bj)=compact
./pkg/thsice/thsice_step_fwd.F 89 THSICE_STEP_FWD 
      _RL compact, hIce, hSnow, Tsf, Tice(nlyr), qicen(nlyr)
./eesupp/src/print.F 141 PRINT_LIST_I 
     &                         markEnd, compact, ioUnit )
./eesupp/src/print.F 176 PRINT_LIST_I 
      LOGICAL compact
./eesupp/src/print.F 217 PRINT_LIST_I 
       IF ( .NOT. compact .OR. (xNew .NE. xOld) ) THEN
./eesupp/src/print.F 262 PRINT_LIST_L 
     &                         compact, ioUnit )
./eesupp/src/print.F 297 PRINT_LIST_L 
      LOGICAL compact
./eesupp/src/print.F 338 PRINT_LIST_L 
       IF ( .NOT. compact .OR. (xNew .NEQV. xOld) ) THEN
./eesupp/src/print.F 382 PRINT_LIST_R8 
     &    markEnd, compact, ioUnit )
./eesupp/src/print.F 417 PRINT_LIST_R8 
      LOGICAL compact
./eesupp/src/print.F 458 PRINT_LIST_R8 
       IF ( .NOT. compact .OR. (xNew .NE. xOld) ) THEN