module gases_h implicit none !======================================================================C ! ! GASES_H ! ! THIS A F90-ALLOCATABLE VERSION FOR gases.h -- AS 12/2011 ! !======================================================================C !!! THOSE ARE SET AND ALLOCATED IN su_gases.F90 integer :: ngasmx integer :: vgas character*3,allocatable,DIMENSION(:) :: gnom ! name of the gas real,allocatable,DIMENSION(:) :: gfrac end module gases_h