dimension dxd(nx,ny),dyd(ny),lsm(nx,ny),lsm_aml(nx,ny)
     *     ,aml_cice(nx,ny), aml_hice(nx,ny), aml_thice(nx,ny)
     *     ,aml_sst(nx,ny), aml_sss(nx,ny), aml_u(nx,ny), aml_v(nx,ny)
     *     ,aml_cldf(nx,ny), aml_wspd(nx,ny), aml_qisw(nx,ny), aml_ppi(nx,ny)
     *     ,aml_rlh(nx,ny), aml_sh(nx,ny), aml_qlw(nx,ny), aml_qsw(nx,ny)
     *     ,aml_pp(nx,ny), aml_qios(nx,ny), aml_brne(nx,ny)
     *     ,rlc0ice(nx,ny), cpc0ice(nx,ny), qlwice1(nx,ny), qlwice2(nx,ny)
      pointer (p_dxd,dxd), (p_dyd, dyd), (p_lsm, lsm), (p_lsm_aml, lsm_aml)
     *        ,(p_aml_cice, aml_cice), (p_aml_hice, aml_hice)
     *        ,(p_aml_thice, aml_thice)
     *        ,(p_aml_sst, aml_sst), (p_aml_sss, aml_sss)
     *        ,(p_aml_cldf, aml_cldf), (p_aml_wspd, aml_wspd)
     *        ,(p_aml_u, aml_u), (p_aml_v, aml_v)
     *        ,(p_aml_qisw, aml_qisw), (p_aml_ppi, aml_ppi)
     *        ,(p_aml_rlh, aml_rlh), (p_aml_sh, aml_sh)
     *        ,(p_aml_qlw, aml_qlw), (p_aml_qsw, aml_qsw)
     *        ,(p_aml_pp, aml_pp),(p_aml_qios, aml_qios)
     *        ,(p_aml_brne, aml_brne)
     * 	      ,(p_rlc0ice,rlc0ice), (p_cpc0ice,cpc0ice)
     *        ,(p_qlwice1,qlwice1), (p_qlwice2,qlwice2)
      common /amlice_common/ p_dxd, p_dyd, p_lsm, p_lsm_aml
     *          ,p_aml_cice, p_aml_hice, p_aml_thice
     *          ,p_aml_sst, p_aml_sss, p_aml_u, p_aml_v
     *          ,p_aml_cldf, p_aml_wspd, p_aml_qisw, p_aml_ppi
     *          ,p_aml_rlh, p_aml_sh, p_aml_qlw, p_aml_qsw
     *          ,p_aml_pp, p_aml_qios, p_aml_brne
     * 	        ,p_rlc0ice, p_cpc0ice, p_qlwice1, p_qlwice2