Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
ElmerCSC
GitHub Repository: ElmerCSC/elmerfem
 Path: blob/devel/elmerice/examples/Test_MshGlacierSynthetic/fsurf.F90
3206 views
1
FUNCTION fsurf(x,y) 

2
USE types

3
IMPLICIT NONE

4
REAL(KIND=dp) :: x, y, fsurf

5


6
fsurf = - x * TAN(0.5d0*Pi/180.0d0)  

7


8
END FUNCTION fsurf

9


10