unit2IUf Function

  1. mod_surfile.f90
  2. surfile
  3. unit2IUf

public function unit2IUf(string) result(met)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: string

Return Value real(kind=R8)


Called by

proc~~unit2iuf~~CalledByGraph proc~unit2iuf unit2IUf proc~unit2iuc unit2IUc proc~unit2iuc->proc~unit2iuf proc~trans_surf_tab trans_surf_tab proc~trans_surf_tab->proc~unit2iuc proc~build_surf build_surf proc~build_surf->proc~unit2iuc proc~read_surf read_surf proc~read_surf->proc~trans_surf_tab

Contents

Source Code

unit2IUf

Source Code

   function unit2IUf(string) result (met)
   implicit none
   real(kind=R8) :: met
   character(*), intent(in) :: string
      select case(string)
         case('m ')
            met = 1.e+00_R8
         case('cm')
            met = 1.e-02_R8
         case('mm')
            met = 1.e-03_R8
         case('µm')
            met = 1.e-06_R8
         case('nm')
            met = 1.e-09_R8
         case('pm')
            met = 1.e-12_R8
         case('Pa')
            met = 1.e+00_R8
         case('MP')
            met = 1.e+06_R8
         case('GP')
            met = 1.e+09_R8
         case default
            met = 1.e+00_R8
      endselect
   return
   endfunction unit2IUf