hydro/utils/module_version.F

   1 module module_version
   2
   3 implicit none
   4
   5 character (len=512), parameter :: wrfHydroVersion=WRF_HYDRO_VERSION
   6 character (len=512), parameter :: nwmVersion=NWM_VERSION
   7
   8 private :: wrfHydroVersion, nwmVersion
   9 public  :: get_model_version, get_code_version, get_nwm_version
  10
  11 contains
  12
  13 function get_model_version()
  14 character (len=512) :: get_model_version
  15
  16 #ifdef NWM_META
  17    get_model_version="NWM " // NWM_VERSION
  18 #else
  19    get_model_version="WRF-Hydro " // WRF_HYDRO_VERSION
  20 #endif
  21
  22 end function get_model_version
  23
  24 function get_code_version()
  25 character (len=512) :: get_code_version
  26
  27 get_code_version=WRF_HYDRO_VERSION
  28
  29 end function get_code_version
  30
  31 function get_nwm_version()
  32 character (len=512) :: get_nwm_version
  33
  34 get_nwm_version=NWM_VERSION
  35
  36 end function get_nwm_version
  37
  38 end module module_version