1414
1515! -----------------------------------------------------------------------------
1616
17- module fctest_atlas_nabla_EdgeBasedFiniteVolume_Fixture
17+ module fctest_atlas_fvm_nabla_Fxt
1818use atlas_module
1919use , intrinsic :: iso_c_binding
2020implicit none
@@ -45,8 +45,8 @@ module fctest_atlas_nabla_EdgeBasedFiniteVolume_Fixture
4545
4646 type :: timer_type
4747 private
48- integer * 8 :: clck_counts_start, clck_counts_stop, clck_rate
49- integer * 8 :: counted = 0
48+ integer ( 8 ) :: clck_counts_start, clck_counts_stop, clck_rate
49+ integer ( 8 ) :: counted = 0
5050 logical :: paused = .True.
5151 contains
5252 procedure , public :: start = > timer_start
@@ -67,7 +67,8 @@ function timer_elapsed(self) result(time)
6767 real (c_double) :: time
6868 if (.not. self% paused) then
6969 call system_clock ( self% clck_counts_stop, self% clck_rate )
70- time = real (self% counted + self% clck_counts_stop - self% clck_counts_start,c_double)/ real (self% clck_rate,c_double)
70+ time = real (self% counted + self% clck_counts_stop - self% clck_counts_start,c_double) &
71+ & / real (self% clck_rate,c_double)
7172 else if (self% counted .ge. 0 ) then
7273 time = real (self% counted,c_double)/ real (self% clck_rate,c_double)
7374 else
@@ -210,7 +211,7 @@ SUBROUTINE FV_GRADIENT(PVAR,PGRAD)
210211INTEGER (KIND= JPIM) :: JNODE,JEDGE,JLEV,INEDGES,IP1,IP2,IEDGE,INODES
211212REAL (KIND= JPRB) :: ZAVG,ZSIGN,ZMETRIC_X,ZMETRIC_Y
212213REAL (KIND= JPRB), ALLOCATABLE :: ZAVG_S(:,:,:)
213-
214+ INTEGER (KIND = JPIM) :: NFLEVG
214215REAL (KIND= JPRB) :: SCALE, DEG2RAD
215216DEG2RAD = RPI/ 180 .
216217SCALE = DEG2RAD* DEG2RAD* RA
@@ -219,7 +220,7 @@ SUBROUTINE FV_GRADIENT(PVAR,PGRAD)
219220
220221! IF (LHOOK) CALL DR_HOOK('FV_GRADIENT',0,ZHOOK_HANDLE)
221222
222- ASSOCIATE( NFLEVG= > nlev)
223+ NFLEVG= nlev
223224
224225! write(0,*) 'enter fv_gradient'
225226! write(0,*) 'shape pvar ',shape(pvar)
@@ -253,7 +254,8 @@ SUBROUTINE FV_GRADIENT(PVAR,PGRAD)
253254! $OMP END PARALLEL DO
254255
255256INODES = SIZE (ZLONLAT)/ 2
256- ! $OMP PARALLEL DO SCHEDULE(STATIC) PRIVATE(JNODE,JLEV,JEDGE,IEDGE,ZSIGN,ZMETRIC_X,ZMETRIC_Y,INODE2EDGE,INODE2EDGE_SIZE)
257+ ! $OMP PARALLEL DO SCHEDULE(STATIC) &
258+ ! $OMP& PRIVATE(JNODE,JLEV,JEDGE,IEDGE,ZSIGN,ZMETRIC_X,ZMETRIC_Y,INODE2EDGE,INODE2EDGE_SIZE)
257259DO JNODE= 1 ,INODES
258260
259261 DO JLEV= 1 ,NFLEVG
@@ -278,19 +280,17 @@ SUBROUTINE FV_GRADIENT(PVAR,PGRAD)
278280ENDDO
279281! $OMP END PARALLEL DO
280282
281- END ASSOCIATE
282-
283283! IF (LHOOK) CALL DR_HOOK('FV_GRADIENT',1,ZHOOK_HANDLE)
284284END SUBROUTINE FV_GRADIENT
285285
286286
287287
288288
289- end module fctest_atlas_nabla_EdgeBasedFiniteVolume_Fixture
289+ end module fctest_atlas_fvm_nabla_Fxt
290290
291291! -----------------------------------------------------------------------------
292292
293- TESTSUITE_WITH_FIXTURE(fctest_atlas_nabla_EdgeBasedFiniteVolume,fctest_atlas_nabla_EdgeBasedFiniteVolume_Fixture )
293+ TESTSUITE_WITH_FIXTURE(fctest_atlas_fvm_nabla,fctest_atlas_fvm_nabla_Fxt )
294294
295295! -----------------------------------------------------------------------------
296296
0 commit comments