copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
      integer npolist
      parameter (npolist = 3000)
*
      character*16  radia,fluvert,schmsol,convec,stcond,gwdrag,mixing,
     $              shlcvt(2),pfbtyp,radftp,kfcpcp,upolist(npolist)
      logical dbgmem,wet,drag,chauf,evap,advectke,diffuw,kfcmom_l,
     $        satuco,inilwc,snowmelt,stomate,typsol,incore,rad_filter,
     $        bkgalb,snoalb,cortm,drylaps,agregat,strato,impflx,endphynl
      integer kntrad, moyhr, mxadj, lheat, runlgt,
     $        gnpfb, nsloflux, endphyni
      real hcad, hfad, hmad, hrclip, ktdflt, dzsedi, as, beta, kkl,
     $     kfctrig(4),kfcrad,kfcdepth,kfcdlev,kfcdet,kfctimec,kfctimea,
     $     endphynr
*
      integer physn_c_first(-1:0),physn_c_last
      common /physn_c/ physn_c_first
      common /physn_c/ radia,fluvert,schmsol,convec,stcond,gwdrag,
     $                 mixing,shlcvt,radftp,kfcpcp,upolist
      common /physn_c/ physn_c_last
*
      common /physn_l/ dbgmem,wet,drag,chauf,evap,advectke,snoalb,
     $                 diffuw,kfcmom_l,satuco,inilwc,snowmelt,stomate,
     $                 typsol,incore,rad_filter,bkgalb,cortm,drylaps,
     $                 agregat,impflx,strato,endphynl
      common /physn_i/ kntrad, moyhr, mxadj, lheat, runlgt,
     $                 gnpfb, nsloflux, endphyni
      common /physn_r/ hcad, hfad, hmad, hrclip, ktdflt,dzsedi,
     $                 kfctrig,kfcrad,kfcdepth,kfcdlev,kfcdet,kfctimec,
     $                 kfctimea,as,beta,kkl,endphynr
*
      namelist /physics/ radia,fluvert,schmsol,convec,stcond,
     $                   dbgmem,wet,gwdrag,mixing,shlcvt,drag,chauf,
     $                   evap,advectke,diffuw,satuco,inilwc,snowmelt,
     $                   stomate,typsol,incore,radftp,rad_filter,
     $                   kntrad,mxadj,lheat,runlgt,pfbtyp,impflx,
     $                   hcad,hfad,hmad,hrclip,ktdflt,moyhr,snoalb,
     $                   nsloflux,cortm,dzsedi,kfcmom_l,agregat,
     $                   kfctrig,kfcrad,kfcdepth,kfcdlev,kfcdet,
     $                   kfctimec,kfctimea,strato,kfcpcp,as,beta,kkl