1007        NoPressure, NoSalinity,ConstantPorosity,GivenGWFlux, DIM, ComputeDt,CallerSolverName)  argument
1026     CHARACTER(LEN=MAX_NAME_LEN) :: CallerSolverName  local
1035     SolverName='PermaFrost(AssignVars <-'//TRIM(CallerSolverName)//')'
1056     IF (TRIM(CallerSolverName) == "PermafrostHeatEquation") THEN
1079       IF (ComputeDt .AND. (TRIM(CallerSolverName) == "PermafrostHeatEquation")) THEN
1096     IF (TRIM(CallerSolverName) == "PermafrostGroundWaterFlow") THEN
1122       IF (ComputeDt .AND. (TRIM(CallerSolverName) == 'PermafrostGroundWaterFlow')) THEN
1158     IF (TRIM(CallerSolverName) == 'PermafrostSoluteTransport') THEN
1178       IF (ComputeDt .AND. (TRIM(CallerSolverName) == "PermafrostSoluteTransport")) THEN
1254        NoSalinity,NoPressure,CallerSolverName,DIM)  argument
1264     CHARACTER(LEN=MAX_NAME_LEN) :: CallerSolverName  local
1280        PorosityName,CallerSolverName,DIM)  argument
1295     CHARACTER(LEN=MAX_NAME_LEN) :: PorosityName, CallerSolverName  local
1303     SolverName='PermaFrost(ReadVars <-'//TRIM(CallerSolverName)//')'