Symbol Description Uses
lsm 8


File Line number Procedure Code
./pkg/cheapaml/cheapaml.F 149 CHEAPAML 
                lsm (i,j) = 1-maskC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 150 CHEAPAML 
                lsm(1,j)   = 1.0
./pkg/cheapaml/cheapaml.F 151 CHEAPAML 
                lsm(snx,j) = 1.0
./pkg/cheapaml/cheapaml.F 152 CHEAPAML 
                lsm(i,1)   = 1.0
./pkg/cheapaml/cheapaml.F 153 CHEAPAML 
                lsm(i,sny) = 1.0
./pkg/cheapaml/cheapaml.F 199 CHEAPAML 
      call HTFLUXICE(snx,sny,lsm,dxd_htf,dyd_htf,tstep,
./pkg/cheapaml/cheapaml.F 210 CHEAPAML 
                if (lsm(i,j).eq.0) then
./pkg/cheapaml/cheapaml.F 97 CHEAPAML 
        integer lsm(snx,sny)