c     COMMON-BLOCKS FOR the topography and OGW parameterization
      include 'param_grid_60.f'  
c     Numbers of level,  longit., lat.    
c-----------
      common /strinc0/ B,C,sigma
      common /strinc1/ teta,ilatb,ilatt,alatb,alatt,ilonl,ilonr,
     * alonr,E,igs1,igs2,alonl
      common /topogra/ mu

      real igs1,igs2,alatb,alatt,alonl,alonr
      integer ilatt,ilatb,ilonl,ilonr,coun

      real B,C,sigma,teta,E,mu 
      dimension B(igit,nb),C(igit,nb),sigma(igit,nb),
     *  E(igit,nb),mu(igit,nb),teta(igit,nb)

      common /strinc2/ Khsqt,TT,DD,Kh,Qm,u1_gl

      real TT,DD,Qm,Khsqt,Kh,u1_gl
      dimension Qm(igit,nb),TT(igit,nb),DD(igit,nb),
     * Khsqt(igit,nb),Kh(igit,nb),u1_gl(igit,nb)