Symbol Description Uses
iceornot 0=open water, 1=ice cover 42



File Line number Procedure Code
./pkg/thsice/thsice_get_bulkf.F 103 THSICE_GET_BULKF
     I        iceornot, myThid )
./pkg/thsice/thsice_get_bulkf.F 109 THSICE_GET_BULKF
     I        iceornot, i,j,bi,bj,myThid )
./pkg/thsice/thsice_get_bulkf.F 13 THSICE_GET_BULKF
     I                         iceornot, Tsf,
./pkg/thsice/thsice_get_bulkf.F 47 THSICE_GET_BULKF
      INTEGER iceornot
./pkg/thsice/thsice_get_bulkf.F 81 THSICE_GET_BULKF
     I             iceornot, myThid )
./pkg/thsice/thsice_get_exf.F 13 THSICE_GET_EXF
     I                         iceornot, tsfCel,
./pkg/thsice/thsice_get_exf.F 160 THSICE_GET_EXF
      IF ( iceornot.EQ.0 ) THEN
./pkg/thsice/thsice_get_exf.F 304 THSICE_GET_EXF
          IF ( iceornot.EQ.0 ) THEN
./pkg/thsice/thsice_get_exf.F 306 THSICE_GET_EXF
          ELSEIF (iceornot.EQ.2) THEN
./pkg/thsice/thsice_get_exf.F 53 THSICE_GET_EXF
      INTEGER iceornot
./pkg/thsice/thsice_solve4temp.F 172 THSICE_SOLVE4TEMP
      INTEGER iceornot
./pkg/thsice/thsice_solve4temp.F 335 THSICE_SOLVE4TEMP
              iceornot=2
./pkg/thsice/thsice_solve4temp.F 337 THSICE_SOLVE4TEMP
              iceornot=1
./pkg/thsice/thsice_solve4temp.F 341 THSICE_SOLVE4TEMP
     I                         iceornot, Tsf,
./pkg/thsice/thsice_solve4temp.F 346 THSICE_SOLVE4TEMP
     I                         iceornot, Tsf,
./pkg/thsice/thsice_solve4temp.F 384 THSICE_SOLVE4TEMP
                 iceornot=2
./pkg/thsice/thsice_solve4temp.F 386 THSICE_SOLVE4TEMP
                 iceornot=1
./pkg/thsice/thsice_solve4temp.F 390 THSICE_SOLVE4TEMP
     I                            iceornot, Tsf,
./pkg/thsice/thsice_solve4temp.F 395 THSICE_SOLVE4TEMP
     I                            iceornot, Tsf,
./pkg/bulk_force/bulkf_forcing.F 116 BULKF_FORCING
     I            iceornot, myThid )
./pkg/bulk_force/bulkf_forcing.F 132 BULKF_FORCING
     I            iceornot, i,j,bi,bj,myThid )
./pkg/bulk_force/bulkf_forcing.F 64 BULKF_FORCING
      INTEGER ks, iceornot
./pkg/bulk_force/bulkf_forcing.F 76 BULKF_FORCING
      iceornot = 0
./pkg/bulk_force/bulkf_forcing.F 93 BULKF_FORCING
     I            iceornot, myThid )
./pkg/bulk_force/bulkf_formula_aim.F 132 BULKF_FORMULA_AIM
      IF ( iceornot.GE.1 ) ALHevp = ALHC + ALHF
./pkg/bulk_force/bulkf_formula_aim.F 14 BULKF_FORMULA_AIM
     I                   iceornot, myThid )
./pkg/bulk_force/bulkf_formula_aim.F 78 BULKF_FORMULA_AIM
      INTEGER iceornot
./pkg/bulk_force/bulkf_formula_lanl.F 137 BULKF_FORMULA_LANL
              if (iceornot.gt.0) lath=Lvap+Lfresh
./pkg/bulk_force/bulkf_formula_lanl.F 13 BULKF_FORMULA_LANL
     I                           iceornot, myThid )
./pkg/bulk_force/bulkf_formula_lanl.F 205 BULKF_FORMULA_LANL
              if (iceornot.eq.0) then
./pkg/bulk_force/bulkf_formula_lanl.F 208 BULKF_FORMULA_LANL
              elseif (iceornot.eq.2) then
./pkg/bulk_force/bulkf_formula_lanl.F 51 BULKF_FORMULA_LANL
      INTEGER iceornot       ! 0=open water, 1=sea-ice, 2=sea-ice with snow
./pkg/bulk_force/bulkf_formula_lay.F 13 BULKF_FORMULA_LAY
     I                           iceornot, i,j,bi,bj,myThid )
./pkg/bulk_force/bulkf_formula_lay.F 156 BULKF_FORMULA_LAY
              IF ( iceornot.EQ.0 ) THEN
./pkg/bulk_force/bulkf_formula_lay.F 245 BULKF_FORMULA_LAY
              IF ( iceornot.EQ.0 ) THEN
./pkg/bulk_force/bulkf_formula_lay.F 248 BULKF_FORMULA_LAY
              ELSEIF (iceornot.EQ.2) THEN
./pkg/bulk_force/bulkf_formula_lay.F 56 BULKF_FORMULA_LAY
      INTEGER iceornot       ! 0=open water, 1=sea-ice, 2=sea-ice with snow
./pkg/cheapaml/cheapaml.F 163 CHEAPAML
                   iceornot=2
./pkg/cheapaml/cheapaml.F 165 CHEAPAML
                   iceornot=1
./pkg/cheapaml/cheapaml.F 168 CHEAPAML
                 iceornot=0
./pkg/cheapaml/cheapaml.F 171 CHEAPAML
               iceornot=0
./pkg/cheapaml/cheapaml.F 64 CHEAPAML
      integer iceornot