Changeset 14212


Ignore:
Timestamp:
2020-12-18T12:19:49+01:00 (9 months 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).

Location:
vendors/PPR/src
Files:
1 added
1 deleted
17 edited

Legend:

Unmodified
Added
Removed
  • vendors/PPR/src/bfun1d.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! BFUN1D.f90: poly. basis-functions for reconstruction. 
     30    ! BFUN1D.h90: poly. basis-functions for reconstruction. 
    3131    ! 
    3232    ! Darren Engwirda  
  • vendors/PPR/src/ffsl1d.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! FFSL1D.f90: upwind-biased flux-reconstruction scheme. 
     30    ! FFSL1D.h90: upwind-biased flux-reconstruction scheme. 
    3131    ! 
    3232    ! Darren Engwirda  
  • vendors/PPR/src/inv.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! INV.f90: block-wise solution of small linear systems. 
     30    ! INV.h90: block-wise solution of small linear systems. 
    3131    ! 
    3232    ! Darren Engwirda  
  • vendors/PPR/src/oscl1d.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! OSCL1D.f90: "oscillation-indicators" for WENO interp. 
     30    ! OSCL1D.h90: "oscillation-indicators" for WENO interp. 
    3131    ! 
    3232    ! Darren Engwirda  
  • vendors/PPR/src/p1e.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! P1E.f90: set edge estimates via degree-1 polynomials. 
     30    ! P1E.h90: set edge estimates via degree-1 polynomials. 
    3131    ! 
    3232    ! Darren Engwirda  
  • vendors/PPR/src/p3e.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! P3E.f90: set edge estimates via degree-3 polynomials. 
     30    ! P3E.h90: set edge estimates via degree-3 polynomials. 
    3131    ! 
    3232    ! Darren Engwirda  
  • vendors/PPR/src/p5e.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! P5E.f90: set edge estimates via degree-5 polynomials. 
     30    ! P5E.h90: set edge estimates via degree-5 polynomials. 
    3131    ! 
    3232    ! Darren Engwirda  
  • vendors/PPR/src/pbc.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! PBC.f90: setup polynomial B.C.'s at domain endpoints. 
     30    ! PBC.h90: setup polynomial B.C.'s at domain endpoints. 
    3131    ! 
    3232    ! Darren Engwirda  
  • vendors/PPR/src/pcm.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! PCM.f90: 1d piecewise constant reconstruction . 
     30    ! PCM.h90: 1d piecewise constant reconstruction . 
    3131    ! 
    3232    ! Darren Engwirda  
  • vendors/PPR/src/plm.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! PLM.f90: a 1d, slope-limited piecewise linear method. 
     30    ! PLM.h90: a 1d, slope-limited piecewise linear method. 
    3131    ! 
    3232    ! Darren Engwirda  
  • vendors/PPR/src/ppm.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! PPM.f90: 1d slope-limited, piecewise parabolic recon. 
     30    ! PPM.h90: 1d slope-limited, piecewise parabolic recon. 
    3131    ! 
    3232    ! Darren Engwirda  
     
    4545        &               fdat,fhat,edge,oscl, & 
    4646        &               dmin,ilim,wlim,halo) 
    47  
    4847 
    4948    ! 
  • vendors/PPR/src/pqm.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! PQM.f90: a 1d slope-limited, piecewise quartic recon. 
     30    ! PQM.h90: a 1d slope-limited, piecewise quartic recon. 
    3131    ! 
    3232    ! Darren Engwirda  
  • vendors/PPR/src/rcon1d.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! RCON1D.f90: conservative, polynomial reconstructions. 
     30    ! RCON1D.h90: conservative, polynomial reconstructions. 
    3131    ! 
    3232    ! Darren Engwirda  
     
    102102    !-------------------------- compute edge values/slopes ! 
    103103 
    104         __TIC__ 
    105104 
    106105        if ( (opts%cell_meth.eq.ppm_method) & 
     
    142141        end if 
    143142         
    144         __TOC__(tCPU,edge_time) 
    145143 
    146144    !-------------------------- compute oscil. derivatives ! 
    147145 
    148         __TIC__ 
    149146 
    150147        if (opts%cell_lims.eq.weno_limit) then 
     
    157154        end if 
    158155     
    159         __TOC__(time,oscl_time) 
    160156 
    161157    !-------------------------- compute grid-cell profiles ! 
    162158 
    163         __TIC__ 
    164159 
    165160        select case (opts%cell_meth) 
     
    201196        end select 
    202197 
    203         __TOC__(tCPU,cell_time) 
    204198 
    205199    end subroutine 
  • vendors/PPR/src/rmap1d.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! RMAP1D.f90: high-order integral re-mapping operators. 
     30    ! RMAP1D.h90: high-order integral re-mapping operators. 
    3131    ! 
    3232    ! Darren Engwirda  
     
    148148    !------------- remap FDAT from XPOS to XNEW using FHAT ! 
    149149 
    150         __TIC__ 
    151150 
    152151        select case(opts%cell_meth) 
     
    185184        end select 
    186185         
    187         __TOC__(tCPU,rmap_time) 
    188186         
    189187        return 
     
    245243        integer, parameter :: INTB = -1   ! integral basis   
    246244 
     245    !------------------------------------- initializations ! 
     246 
     247        vvlo(+1:+5) = 0.d0 
     248        vvhi(+1:+5) = 0.d0 
     249 
    247250    !------------- remap FDAT from XPOS to XNEW using FHAT ! 
    248251 
  • vendors/PPR/src/root1d.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! ROOT1D.f90: find the "roots" of degree-k polynomials. 
     30    ! ROOT1D.h90: find the "roots" of degree-k polynomials. 
    3131    ! 
    3232    ! Darren Engwirda  
  • vendors/PPR/src/util1d.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! UTIL1D.f90: util. func. for 1-dim. grid manipulation. 
     30    ! UTIL1D.h90: util. func. for 1-dim. grid manipulation. 
    3131    ! 
    3232    ! Darren Engwirda  
  • vendors/PPR/src/weno1d.h90

    r13926 r14212  
    2828 
    2929    !     
    30     ! WENO1D.f90: WENO-style slope-limiting for 1d reconst. 
     30    ! WENO1D.h90: WENO-style slope-limiting for 1d reconst. 
    3131    ! 
    3232    ! Darren Engwirda  
Note: See TracChangeset for help on using the changeset viewer.