Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
ElmerCSC
GitHub Repository: ElmerCSC/elmerfem
 Path: blob/devel/elmerice/examples/Inverse_Methods/src/USFs_RonneFilchner.F90
3206 views
1
!#

2
!# A User function for Ronne-Filchner test case;

3
!# to impose Conditional Dirichlet conditions only for Grounded ice and GL

4
!#   VarIn=GroundedMask (-1 : for floating ice; 0 : for GL; 1: for grounded ice)

5
!#   Varout return a positive value for Grounded ice and GL

6
       FUNCTION GM_CONDITION(Model,nodenumber,VarIn) RESULT(VarOut)

7
       USE DefUtils

8
       implicit none

9
       TYPE(Model_t) :: Model

10
       INTEGER :: nodenumber

11
       REAL(kind=dp) :: VarIn,VarOut

12


13
        VarOut=VarIn+0.05

14
       END FUNCTION GM_CONDITION

15


16
!# A User function for Ronne-Filchner test case;

17
!# to impose passive condition for regulrisation of beta in floating

18
!elements

19
!#   VarIn=GroundedMask (-1 : for floating ice; 0 : for GL; 1: for grounded ice)

20
!#   Varout return a positive value for floating ice

21
     FUNCTION BetaRegPassive(Model,nodenumber,VarIn) RESULT(VarOut)

22
       USE DefUtils

23
       implicit none

24
       TYPE(Model_t) :: Model

25
       INTEGER :: nodenumber

26
       REAL(kind=dp) :: VarIn,VarOut

27


28
        VarOut=-VarIn-0.5_dp

29
       END FUNCTION BetaRegPassive

30


31