oas_vardefMod.F90 Source File

module oas_vardefMod
  implicit none
  save

#ifdef COUP_OAS_PFL
  integer :: oas_psi_id, oas_et_loss_id, oas_sat_id
#endif

#ifdef COUP_OAS_ICON
  INTEGER               :: oas_comp_id
  CHARACTER(len=4)      :: oas_comp_name="eCLM"
!  TYPE :: t_oas_field
!    CHARACTER(len = 8)  :: clpname
!    INTEGER             :: vid
!  END TYPE t_oas_field
!  TYPE(t_oas_field), DIMENSION(8)  :: oas_snd_meta
!  TYPE(t_oas_field), DIMENSION(11)  :: oas_rcv_meta
  integer ::   oas_id_t      ! temperature (K)
  integer ::   oas_id_u      ! u wind (m/s)
  integer ::   oas_id_v      ! v wind (m/s)
  integer ::   oas_id_qv     ! specific water vapor content ()
  integer ::   oas_id_ht     ! thickness of lowest level (m)
  integer ::   oas_id_pr     ! surface pressure (Pa)
  integer ::   oas_id_rs     ! direct shortwave downward radiation (W/m2)
  integer ::   oas_id_fs     ! diffuse shortwave downward radiation (W/m2)
  integer ::   oas_id_lw     ! longwave downward radiation (W/m2) 
  integer ::   oas_id_cr     ! rain precipitation      (kg/m2*s)
  integer ::   oas_id_gr     ! snow precipitation      (kg/m2*s)

  integer ::   oas_id_it      ! radiation temperature (K)
  integer ::   oas_id_ad      ! direct albedo (%)
  integer ::   oas_id_ai      ! diffuse albedo (%)
  integer ::   oas_id_tx      ! momentum flux x (N/m2)
  integer ::   oas_id_ty      ! momentum flux y (N/m2)
  integer ::   oas_id_sh      ! sensible heat flux (W/m2)
  integer ::   oas_id_lh      ! latent heat flux (W/m2)
  integer ::   oas_id_st      ! surface temperature (K)
#endif

end module oas_vardefMod