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 RSIF(P,T)IMPLICIT NONEREAL,INTENT(IN)::P,TREAL::ESI,XREAL,PARAMETER::C0=.609868993E03REAL,PARAMETER::C1=.499320233E02REAL,PARAMETER::C2=.184672631E01REAL,PARAMETER::C3=.402737184E-1REAL,PARAMETER::C4=.565392987E-3REAL,PARAMETER::C5=.521693933E-5REAL,PARAMETER::C6=.307839583E-7REAL,PARAMETER::C7=.105785160E-9REAL,PARAMETER::C8=.161444444E-12X=MAX(-80.,T-273.16)ESI=C0+X*(C1+X*(C2+X*(C3+X*(C4+X*(C5+X*(C6+X*(C7+X*C8)))))))RSIF=.622*ESI/(P-ESI)! 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.! ESI = EXP(9.550426 - 5723.265/T + 3.53068*ALOG(T) - 0.00728332*T)END FUNCTION RSIF