CoCalc -- fbed.f90

GitHub Repository: ElmerCSC/elmerfem
Path: blob/devel/elmerice/Tests/Grounded/PROG/fbed.f90
³²⁰⁶ views

1
FUNCTION fbed(x,y) 
2
USE types
3
IMPLICIT NONE
4
REAL(KIND=dp) :: x, y, fbed
5
REAL(KIND=dp) :: Lxy, fsurf
6

7
Lxy = 100.0    
8

9
fbed = 10.0*(COS(6.0*Pi*x/Lxy)*COS(6.0*Pi*y/Lxy) -1.0)
10

11
END FUNCTION fbed
12

13