Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Source Code
REAL FUNCTION RSLF(P,T)IMPLICIT NONEREAL,INTENT(IN)::P,TREAL::ESL,XREAL,PARAMETER::C0=.611583699E03REAL,PARAMETER::C1=.444606896E02REAL,PARAMETER::C2=.143177157E01REAL,PARAMETER::C3=.264224321E-1REAL,PARAMETER::C4=.299291081E-3REAL,PARAMETER::C5=.203154182E-5REAL,PARAMETER::C6=.702620698E-8REAL,PARAMETER::C7=.379534310E-11REAL,PARAMETER::C8=-.321582393E-13X=MAX(-80.,T-273.16)! ESL=612.2*EXP(17.67*X/(T-29.65))ESL=C0+X*(C1+X*(C2+X*(C3+X*(C4+X*(C5+X*(C6+X*(C7+X*C8)))))))RSLF=.622*ESL/(P-ESL)! ALTERNATIVE! ; Source: Murphy and Koop, Review of the vapour pressure of ice and! supercooled water for atmospheric applications, Q. J. R.! Meteorol. Soc (2005), 131, pp. 1539-1565.! ESL = EXP(54.842763 - 6763.22 / T - 4.210 * ALOG(T) + 0.000367 * T! + TANH(0.0415 * (T - 218.8)) * (53.878 - 1331.22! / T - 9.44523 * ALOG(T) + 0.014025 * T))END FUNCTION RSLF