!COMPILER-GENERATED INTERFACE MODULE: Mon Jan 21 15:37:24 2019 ! This source file is for reference only and may not completely ! represent the generated interface used by the compiler. MODULE VSM_U_XB__genmod INTERFACE SUBROUTINE VSM_U_XB(UE,VE,H,KS,RHO,TAUWX,TAUWY,THETA,URMS, & &OMEGA,K,DISS,E,ER,FCVISC,FACDEL,WS,FW,FACDF,SWGLM,N,SIGZ,UZ,VZ, & &USTZ,NUTZ,UE_SED,VE_SED) INTEGER(KIND=4), INTENT(IN) :: N REAL(KIND=8), INTENT(IN) :: UE REAL(KIND=8), INTENT(IN) :: VE REAL(KIND=8), INTENT(IN) :: H REAL(KIND=8), INTENT(IN) :: KS REAL(KIND=8), INTENT(IN) :: RHO REAL(KIND=8), INTENT(IN) :: TAUWX REAL(KIND=8), INTENT(IN) :: TAUWY REAL(KIND=8), INTENT(IN) :: THETA REAL(KIND=8), INTENT(IN) :: URMS REAL(KIND=8), INTENT(IN) :: OMEGA REAL(KIND=8), INTENT(IN) :: K REAL(KIND=8), INTENT(IN) :: DISS REAL(KIND=8), INTENT(IN) :: E REAL(KIND=8), INTENT(IN) :: ER REAL(KIND=8), INTENT(IN) :: FCVISC REAL(KIND=8), INTENT(IN) :: FACDEL REAL(KIND=8), INTENT(IN) :: WS REAL(KIND=8), INTENT(IN) :: FW REAL(KIND=8), INTENT(IN) :: FACDF INTEGER(KIND=4), INTENT(IN) :: SWGLM REAL(KIND=8), INTENT(OUT) :: SIGZ(N) REAL(KIND=8), INTENT(OUT) :: UZ(N) REAL(KIND=8), INTENT(OUT) :: VZ(N) REAL(KIND=8), INTENT(OUT) :: USTZ(N) REAL(KIND=8), INTENT(OUT) :: NUTZ(N) REAL(KIND=8), INTENT(OUT) :: UE_SED REAL(KIND=8), INTENT(OUT) :: VE_SED END SUBROUTINE VSM_U_XB END INTERFACE END MODULE VSM_U_XB__genmod