Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
ElmerCSC
GitHub Repository: ElmerCSC/elmerfem
 Path: blob/devel/elmerice/Tests/Calving3D_lset_parMMG/PROG/DummySolver.F90
3206 views
1


2
RECURSIVE SUBROUTINE DummySolver( Model,Solver,Timestep,TransientSimulation )

3
  USE DefUtils

4
 

5
  IMPLICIT NONE

6


7


8
  !------------------------------------------------------------------------------

9
  !    External variables

10
  !------------------------------------------------------------------------------

11
  TYPE(Model_t)  :: Model

12
  TYPE(Solver_t), TARGET :: Solver

13
  LOGICAL :: TransientSimulation

14
  REAL(KIND=dp) :: Timestep

15
  !------------------------------------------------------------------------------

16
  !    Local variables

17
  !------------------------------------------------------------------------------

18
  TYPE(Variable_t), POINTER :: Var

19
  LOGICAL :: CalvingOccurs, Found

20


21
  PRINT *,"Calving 3D Test Solver"

22
  PRINT *,"***********************************"

23


24
  Var => Solver % Variable

25
  IF (.NOT. ASSOCIATED(Var)) THEN

26
     CALL FATAL('DummySolver','No Variable associated')

27
  END IF

28


29
  CalvingOccurs = ListGetLogical(Model % Simulation, 'CalvingOccurs', Found)

30
  IF(.NOT. Found) CalvingOccurs = .FALSE.

31


32
  IF(CalvingOccurs) THEN

33
    Var % Norm = 1

34
  ELSE

35
    Var % Norm = 0

36
  END IF

37
END SUBROUTINE DummySolver

38


39