INTERFACE:
subroutine init_internal_pressure() IMPLICIT NONE
Here, some necessary memory is allocated (in case of the compiler option STATIC), and information is written to the log-file of the simulation.
!LOCAL VARIABLES integer :: rc