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


File Line number Procedure Code
./pkg/bulk_force/bulkf_formula_lanl.F 10 BULKF_FORMULA_LANL 
     I                           iceornot, windread )
./pkg/bulk_force/bulkf_formula_lanl.F 119 BULKF_FORMULA_LANL 
              if (iceornot.gt.0) lath=Lvap+Lfresh
./pkg/bulk_force/bulkf_formula_lanl.F 192 BULKF_FORMULA_LANL 
              if (iceornot.eq.0) then
./pkg/bulk_force/bulkf_formula_lanl.F 196 BULKF_FORMULA_LANL 
               if (iceornot.eq.2) then
./pkg/bulk_force/bulkf_formula_lanl.F 33 BULKF_FORMULA_LANL 
      integer iceornot       ! 0=open water, 1=ice cover
./pkg/bulk_force/bulkf_forcing.F 105 BULKF_FORCING 
     &            iceornot, readwindstress)
./pkg/bulk_force/bulkf_forcing.F 68 BULKF_FORCING 
      integer iceornot
./pkg/bulk_force/bulkf_forcing.F 84 BULKF_FORCING 
                   iceornot=2
./pkg/bulk_force/bulkf_forcing.F 86 BULKF_FORCING 
                   iceornot=1
./pkg/bulk_force/bulkf_forcing.F 90 BULKF_FORCING 
                 iceornot=0
./pkg/bulk_force/bulkf_forcing.F 94 BULKF_FORCING 
               iceornot=0
./pkg/thsice/thsice_solve4temp.F 116 THSICE_SOLVE4TEMP 
      INTEGER iceornot
./pkg/thsice/thsice_solve4temp.F 189 THSICE_SOLVE4TEMP 
              iceornot=2
./pkg/thsice/thsice_solve4temp.F 191 THSICE_SOLVE4TEMP 
              iceornot=1
./pkg/thsice/thsice_solve4temp.F 194 THSICE_SOLVE4TEMP 
     I                        iceornot, Tsf,
./pkg/thsice/thsice_solve4temp.F 223 THSICE_SOLVE4TEMP 
                 iceornot=2
./pkg/thsice/thsice_solve4temp.F 225 THSICE_SOLVE4TEMP 
                 iceornot=1
./pkg/thsice/thsice_solve4temp.F 228 THSICE_SOLVE4TEMP 
     I                        iceornot, Tsf,
./pkg/thsice/thsice_get_bulkf.F 10 THSICE_GET_BULKF 
     I                         iceornot, Tsf,
./pkg/thsice/thsice_get_bulkf.F 43 THSICE_GET_BULKF 
      INTEGER iceornot
./pkg/thsice/thsice_get_bulkf.F 71 THSICE_GET_BULKF 
     I        iceornot, readwindstress)