MODULE grid_param
  INTEGER  :: iim_glo=40
  INTEGER  :: jjm_glo
  INTEGER,PARAMETER  :: nb_face=10
  INTEGER  :: llm=19
  INTEGER  :: nqtot

CONTAINS

  SUBROUTINE init_grid_param
  USE IOIPSL
  IMPLICIT NONE
    CALL getin('nbp',iim_glo)
    jjm_glo=iim_glo
    CALL getin('llm',llm)
    
    nqtot=1
    CALL getin('nqtot',nqtot)
    
  END SUBROUTINE  init_grid_param

END MODULE grid_param