00001 module def_teos_parameter 00002 use phys_constant !nnteos 00003 implicit none 00004 real(8) :: enei(0:nnteos), prei(0:nnteos), rhoi(0:nnteos), qi(0:nnteos), hi(0:nnteos) 00005 real(8) :: rhocgs(0:nnteos), precgs(0:nnteos), enecgs(0:nnteos) 00006 real(8) :: rhoini_cgs, rhoini_gcm1, emdini_gcm1 !used in TOV solver 00007 integer :: nphase 00008 end module def_teos_parameter