Skip to content
Snippets Groups Projects
Commit 7f7278aa authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 02/03/2022: micro cleaning (remove read_xker_* from mesonh) + mode_qsatmx_tab in common

parent cd330ce4
No related branches found
No related tags found
No related merge requests found
MODULE MODE_QSATMX_TAB
IMPLICIT NONE
CONTAINS
FUNCTION QSATMX_TAB(P,T,FICE)
USE PARKIND1, ONLY : JPRB
USE MODD_CST ,ONLY : XEPSILO
USE MODE_TIWMX, ONLY : ESATI,ESATW
IMPLICIT NONE
REAL :: QSATMX_TAB
REAL, INTENT(IN) :: P,T,FICE
REAL :: ZES
ZES = ESATI(T)*FICE + ESATW(T)*(1.-FICE)
IF(ZES >= P)THEN ! temp > boiling point, condensation not possible.
! Then this function lacks physical meaning,
! here set to one
QSATMX_TAB = 1.
ELSE
QSATMX_TAB = XEPSILO*ZES/(P-ZES) !r
ENDIF
END FUNCTION QSATMX_TAB
END MODULE MODE_QSATMX_TAB
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment