!!****if* source/pathToUnits/MyUnit/Impl2/MyUnit_init !! !! NAME !! MyUnit_init !! !! SYNOPSIS !! MyUnit_init(integer(in) :: exampleDummyArg) !! !! DESCRIPTION !! !! Put the description of the MyUnit_init here. !! !! !! ARGUMENTS !! !! exampleDummyArg - explain argument !! !! NOTES !! !! This file contains implementation of the initialization function !! of MyUnit specific to Impl2. !! !!*** subroutine MyUnit_init(exampleDummyArg) use MyUnit_data use RuntimeParameters_interface, ONLY : RuntimeParameters_get integer, intent(in) :: exampleDummyArg !! block of calls to get the values of the runtime paramters !! these variables are stored in MyUnit_data call RuntimeParameters_get("nend", mu_var1) call RuntimeParameters_get("dtmax", mu_var2) call RuntimeParameters_get("shock_burning", mu_var3) !! Any other initialization that may be needed return end subroutine MyUnit_init