SURFEX v8.1
General documentation of Surfex
fjfns.func.h
Go to the documentation of this file.
1 !--Statement Function---
2 REAL(KIND=JPRB) :: ZFRIZ, AAA
3  ZFRIZ(AAA)=INT(AAA)
INTERFACE SUBROUTINE FACILO_MT PUNDF USE OPTIONAL ::LDUNDF ! OUT REAL(KIND=JPDBLR)