Commit 723375a2 authored by Paul Stryck's avatar Paul Stryck
Browse files

test

parent 9711a304
......@@ -5,20 +5,20 @@
! Hamburg Ship Model Basin (HSVA)
! TU Hamburg-Harburg (TUHH)
! Maritime Research Institute of Netherlands (MARIN)
!
!
! FreSCo
!
! $Id: set_phi.F90 21 2005-06-08 12:50:20Z dieke $
!
! (c) 2004-2006 HSVA,TUHH,MARIN
! Proprietary data. Unauthorized use, distribution,
! or duplication is prohibited. All rights reserved.
! (c) 2004-2006 HSVA,TUHH,MARIN
! Proprietary data. Unauthorized use, distribution,
! or duplication is prohibited. All rights reserved.
!
!***********************************************************************
!
!! module set_phi
! this module can be used to set userdefined values. Use
! -set_phi_initial to set values befor the solution
! -set_phi_initial to set values befor the solution
! algorithm starts
! -set_phi_outot to modyfy values in each outer iteration
! -set_phi_timestep to modyfy values in each timestep
......@@ -26,198 +26,198 @@
!***********************************************************************
MODULE set_phi
!USE boundaries_controls
!USE controls_parameters
USE controls
USE equations
!USE equations_controls
USE fielddata
USE fielddata_pointers
USE fielddata_tools
USE forces
USE geometry
!USE grids_controls
USE logging
USE math
USE movegrid
USE parameters
USE topology
USE tracing
USE common_user_code
USE grids
!USE grids_controls
IMPLICIT NONE
PRIVATE
PUBLIC set_phi_init_set_initial_fields_6_900,&
set_phi_init_setup_lists_3,&
set_phi_init_register_fields_4,&
set_phi_init_after_grid_resize_5,&
set_phi_timestep,&
set_phi_outit,&
set_phi_final,&
set_phi_exit_default_1
!USE boundaries_controls
!USE controls_parameters
USE controls
USE equations
!USE equations_controls
USE fielddata
USE fielddata_pointers
USE fielddata_tools
USE forces
USE geometry
!USE grids_controls
USE logging
USE math
USE movegrid
USE parameters
USE topology
USE tracing
USE common_user_code
USE grids
!USE grids_controls
IMPLICIT NONE
PRIVATE
PUBLIC set_phi_init_set_initial_fields_6_900,&
set_phi_init_setup_lists_3,&
set_phi_init_register_fields_4,&
set_phi_init_after_grid_resize_5,&
set_phi_timestep,&
set_phi_outit,&
set_phi_final,&
set_phi_exit_default_1
CONTAINS
!======================================================================
SUBROUTINE set_phi_init_set_initial_fields_6_900
!=====================================================================
! use this to set initital values. To resolve dependencies between
! several *_inital modules this is called several times. Thus
! do not put ALLOCATE satments here.
!----------------------------------------------------------------------
INTEGER :: icell,iface
!TM: slopeFact gives the magnitude of the slope from tanh function
REAL(dp) :: slopeFact=100.0
CALL tracing_trace_begin(trace_set_phi_init_set_initial_fields_6_900)
DO iface=nIntFaces, nIntFaces+nBndFaces
IF (family_f(iface) == topology_get_ifamily(trim('YMIN1'))) THEN
IF (topo_family(family_f(iface))%velocity_userCode) THEN
! Define Inlet Velocity
! ...
!======================================================================
SUBROUTINE set_phi_init_set_initial_fields_6_900
!=====================================================================
! use this to set initital values. To resolve dependencies between
! several *_inital modules this is called several times. Thus
! do not put ALLOCATE satments here.
!----------------------------------------------------------------------
INTEGER :: icell,iface
!TM: slopeFact gives the magnitude of the slope from tanh function
REAL(dp) :: slopeFact=100.0
CALL tracing_trace_begin(trace_set_phi_init_set_initial_fields_6_900)
DO iface=nIntFaces, nIntFaces+nBndFaces
IF (family_f(iface) == topology_get_ifamily(trim('YMIN1'))) THEN
IF (topo_family(family_f(iface))%velocity_userCode) THEN
! Define Inlet Velocity
! ...
END IF
IF (topo_family(family_f(iface))%temperature_userCode) THEN
! Define Inlet Temperature
! ...
END IF
END IF
IF (topo_family(family_f(iface))%temperature_userCode) THEN
! Define Inlet Temperature
! ...
END DO
IF ( controls_initial%Velocity_userCode )THEN
DO icell=1,nIntCells
! Define (initial) field velocities
! ...
ENDDO
END IF
END IF
END DO
IF ( controls_initial%Velocity_userCode )THEN
DO icell=1,nIntCells
! Define (initial) field velocities
! ...
ENDDO
END IF
CALL tracing_trace_end(trace_set_phi_init_set_initial_fields_6_900)
END SUBROUTINE set_phi_init_set_initial_fields_6_900
!======================================================================
SUBROUTINE set_phi_init_setup_lists_3
!======================================================================
! use this routine to set up linked lists, to get sizes or to allocate fields
!----------------------------------------------------------------------
CALL tracing_trace_begin(trace_set_phi_init_setup_lists_3)
CALL tracing_trace_end(trace_set_phi_init_setup_lists_3)
END SUBROUTINE set_phi_init_setup_lists_3
!======================================================================
SUBROUTINE set_phi_init_register_fields_4
!=====================================================================
! use *_init_register_fields_4 module for fielddata_init_register_fields_4,
! equation_system_register_equation_system ... statments
!----------------------------------------------------------------------
CALL tracing_trace_begin(trace_set_phi_init_register_fields_4)
CALL tracing_trace_end(trace_set_phi_init_register_fields_4)
END SUBROUTINE set_phi_init_register_fields_4
!======================================================================
SUBROUTINE set_phi_init_after_grid_resize_5
!=====================================================================
! use *_init_after_grid_resize_5 module for all *_get_pointer statments
!----------------------------------------------------------------------
CALL tracing_trace_begin(trace_set_phi_init_after_grid_resize_5)
CALL tracing_trace_end(trace_set_phi_init_after_grid_resize_5)
END SUBROUTINE set_phi_init_after_grid_resize_5
!======================================================================
SUBROUTINE set_phi_timestep(timestep,simultime)
!======================================================================
! this routine is executed after each timestep
!----------------------------------------------------------------------
IMPLICIT NONE
INTEGER :: timestep
REAL(dp) :: simultime
CALL tracing_trace_begin(trace_set_phi_timestep)
CALL tracing_trace_end(trace_set_phi_timestep)
END SUBROUTINE set_phi_timestep
!======================================================================
SUBROUTINE set_phi_outit(out_iter)
!======================================================================
! this routine is executed after each outer iteration
!----------------------------------------------------------------------
IMPLICIT NONE
INTEGER :: out_iter
CALL tracing_trace_begin(trace_set_phi_outit)
CALL tracing_trace_end(trace_set_phi_outit)
END SUBROUTINE set_phi_outit
!======================================================================
SUBROUTINE set_phi_adoutit(out_iter)
!======================================================================
! this routine is executed after each outer iteration
!----------------------------------------------------------------------
IMPLICIT NONE
INTEGER :: out_iter
CALL tracing_trace_begin(trace_set_phi_adoutit)
CALL tracing_trace_end(trace_set_phi_adoutit)
END SUBROUTINE set_phi_adoutit
!======================================================================
SUBROUTINE set_phi_final
!======================================================================
! this routine is executed only once after the computation has stoped
! due to max no of iteration, truncation error or stopfile. It is not
! executed when killfile is used
!----------------------------------------------------------------------
CALL tracing_trace_begin(trace_set_phi_final)
CALL tracing_trace_end(trace_set_phi_final)
END SUBROUTINE set_phi_final
!======================================================================
SUBROUTINE set_phi_exit_default_1
!=====================================================================
! use *_exit_default_1 module for DEALLOCATE statments etc.
!----------------------------------------------------------------------
CALL tracing_trace_begin(trace_set_phi_exit_default_1)
CALL tracing_trace_end(trace_set_phi_exit_default_1)
END SUBROUTINE set_phi_exit_default_1
WRITE(*,*) "foo"
CALL tracing_trace_end(trace_set_phi_init_set_initial_fields_6_900)
END SUBROUTINE set_phi_init_set_initial_fields_6_900
!======================================================================
SUBROUTINE set_phi_init_setup_lists_3
!======================================================================
! use this routine to set up linked lists, to get sizes or to allocate fields
!----------------------------------------------------------------------
CALL tracing_trace_begin(trace_set_phi_init_setup_lists_3)
CALL tracing_trace_end(trace_set_phi_init_setup_lists_3)
END SUBROUTINE set_phi_init_setup_lists_3
!======================================================================
SUBROUTINE set_phi_init_register_fields_4
!=====================================================================
! use *_init_register_fields_4 module for fielddata_init_register_fields_4,
! equation_system_register_equation_system ... statments
!----------------------------------------------------------------------
CALL tracing_trace_begin(trace_set_phi_init_register_fields_4)
CALL tracing_trace_end(trace_set_phi_init_register_fields_4)
END SUBROUTINE set_phi_init_register_fields_4
!======================================================================
SUBROUTINE set_phi_init_after_grid_resize_5
!=====================================================================
! use *_init_after_grid_resize_5 module for all *_get_pointer statments
!----------------------------------------------------------------------
CALL tracing_trace_begin(trace_set_phi_init_after_grid_resize_5)
CALL tracing_trace_end(trace_set_phi_init_after_grid_resize_5)
END SUBROUTINE set_phi_init_after_grid_resize_5
!======================================================================
SUBROUTINE set_phi_timestep(timestep,simultime)
!======================================================================
! this routine is executed after each timestep
!----------------------------------------------------------------------
IMPLICIT NONE
INTEGER :: timestep
REAL(dp) :: simultime
CALL tracing_trace_begin(trace_set_phi_timestep)
CALL tracing_trace_end(trace_set_phi_timestep)
END SUBROUTINE set_phi_timestep
!======================================================================
SUBROUTINE set_phi_outit(out_iter)
!======================================================================
! this routine is executed after each outer iteration
!----------------------------------------------------------------------
IMPLICIT NONE
INTEGER :: out_iter
CALL tracing_trace_begin(trace_set_phi_outit)
CALL tracing_trace_end(trace_set_phi_outit)
END SUBROUTINE set_phi_outit
!======================================================================
SUBROUTINE set_phi_adoutit(out_iter)
!======================================================================
! this routine is executed after each outer iteration
!----------------------------------------------------------------------
IMPLICIT NONE
INTEGER :: out_iter
CALL tracing_trace_begin(trace_set_phi_adoutit)
CALL tracing_trace_end(trace_set_phi_adoutit)
END SUBROUTINE set_phi_adoutit
!======================================================================
SUBROUTINE set_phi_final
!======================================================================
! this routine is executed only once after the computation has stoped
! due to max no of iteration, truncation error or stopfile. It is not
! executed when killfile is used
!----------------------------------------------------------------------
CALL tracing_trace_begin(trace_set_phi_final)
CALL tracing_trace_end(trace_set_phi_final)
END SUBROUTINE set_phi_final
!======================================================================
SUBROUTINE set_phi_exit_default_1
!=====================================================================
! use *_exit_default_1 module for DEALLOCATE statments etc.
!----------------------------------------------------------------------
CALL tracing_trace_begin(trace_set_phi_exit_default_1)
CALL tracing_trace_end(trace_set_phi_exit_default_1)
END SUBROUTINE set_phi_exit_default_1
END MODULE set_phi
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment