Changeset 14212 for vendors/PPR/src/rcon1d.h90

Timestamp:

2020-12-18T12:19:49+01:00 (3 years ago)

Author:

jchanut

Message:

#2222, update PPR library to circumvent issues found with cpp directives: remove timing instructions. Changed main module extension in .F90 to comply with FCM rules (no effect).

File:

• vendors/PPR/src/rcon1d.h90 (modified) (5 diffs)

vendors/PPR/src/rcon1d.h90

@@ -28 +28 @@
 
     !    
-    ! RCON1D.f90: conservative, polynomial reconstructions.
+    ! RCON1D.h90: conservative, polynomial reconstructions.
     !
     ! Darren Engwirda 
@@ -102 +102 @@
     !-------------------------- compute edge values/slopes !
 
-        __TIC__
 
         if ( (opts%cell_meth.eq.ppm_method) &
@@ -142 +141 @@
         end if
         
-        __TOC__(tCPU,edge_time)
 
     !-------------------------- compute oscil. derivatives !
 
-        __TIC__
 
         if (opts%cell_lims.eq.weno_limit) then
@@ -157 +154 @@
         end if
     
-        __TOC__(time,oscl_time)
 
     !-------------------------- compute grid-cell profiles !
 
-        __TIC__
 
         select case (opts%cell_meth)
@@ -201 +196 @@
         end select
 
-        __TOC__(tCPU,cell_time)
 
     end subroutine