Skip to content

Commit abebda6

Browse files
committed
Update for new computation environment routines.
1 parent 5a8fe83 commit abebda6

File tree

1 file changed

+4
-2
lines changed

1 file changed

+4
-2
lines changed

src/fortran/nonlinear_poisson_equation.F90

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -60,6 +60,7 @@ PROGRAM NONLINEAR_POISSON_EQUATION
6060

6161
TYPE(cmfe_BasisType) :: Basis
6262
TYPE(cmfe_BoundaryConditionsType) :: BoundaryConditions
63+
TYPE(cmfe_ComputationEnvironmentType) :: computationEnvironment
6364
TYPE(cmfe_CoordinateSystemType) :: CoordinateSystem,WorldCoordinateSystem
6465
TYPE(cmfe_DecompositionType) :: Decomposition
6566
TYPE(cmfe_EquationsType) :: Equations
@@ -142,8 +143,9 @@ PROGRAM NONLINEAR_POISSON_EQUATION
142143
CALL cmfe_OutputSetOn("nonlinear_poisson_equation",Err)
143144

144145
!Get the computational nodes information
145-
CALL cmfe_ComputationalNumberOfNodesGet(NumberOfComputationalNodes,Err)
146-
CALL cmfe_ComputationalNodeNumberGet(ComputationalNodeNumber,Err)
146+
CALL cmfe_ComputationEnvironment_Initialise(computationEnvironment,err)
147+
CALL cmfe_ComputationEnvironment_NumberOfWorldNodesGet(computationEnvironment,numberOfComputationalNodes,err)
148+
CALL cmfe_ComputationEnvironment_WorldNodeNumberGet(computationEnvironment,computationalNodeNumber,err)
147149

148150
!-----------------------------------------------------------------------------------------------------------
149151
! COORDINATE SYSTEM

0 commit comments

Comments
 (0)