New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 14387 for vendors/PPR/src/p5e.h90 – NEMO

Ignore:
Timestamp:
2021-02-03T16:51:56+01:00 (3 years ago)
Author:
smasson
Message:

PPR: suppress real*8 <-> real*16 compilation errors or implicit conversions, see #2617

File:
1 edited

Legend:

Unmodified
Added
Removed

  • vendors/PPR/src/p5e.h90

    r14212 r14387  
    8282         
    8383        integer, parameter :: NSIZ = +6 
    84         real*8 , parameter :: ZERO = 1.d-14    
     84        real*8 , parameter :: ZERO = 1.e-14    
    8585 
    8686        head = +4 ; tail = npos - 3 
    … …  
    121121 
    122122                edge(ivar,ipos) = & 
    123         &     + ( 1.d0 / 60.d0) * &  
     123        &     + ( 1.e0 / 60.e0) * &  
    124124        &       fdat(1,ivar,ipos-3) & 
    125         &     - ( 8.d0 / 60.d0) * & 
     125        &     - ( 8.e0 / 60.e0) * & 
    126126        &       fdat(1,ivar,ipos-2) & 
    127         &     + (37.d0 / 60.d0) * & 
     127        &     + (37.e0 / 60.e0) * & 
    128128        &       fdat(1,ivar,ipos-1) & 
    129         &     + (37.d0 / 60.d0) * & 
     129        &     + (37.e0 / 60.e0) * & 
    130130        &       fdat(1,ivar,ipos+0) & 
    131         &     - ( 8.d0 / 60.d0) * & 
     131        &     - ( 8.e0 / 60.e0) * & 
    132132        &       fdat(1,ivar,ipos+1) & 
    133         &     + ( 1.d0 / 60.d0) * & 
     133        &     + ( 1.e0 / 60.e0) * & 
    134134        &       fdat(1,ivar,ipos+2) 
    135135             
    136136                dfdx(ivar,ipos) = & 
    137         &     - ( 1.d0 / 90.d0) * &  
     137        &     - ( 1.e0 / 90.e0) * &  
    138138        &       fdat(1,ivar,ipos-3) & 
    139         &     + ( 5.d0 / 36.d0) * & 
     139        &     + ( 5.e0 / 36.e0) * & 
    140140        &       fdat(1,ivar,ipos-2) & 
    141         &     - (49.d0 / 36.d0) * & 
     141        &     - (49.e0 / 36.e0) * & 
    142142        &       fdat(1,ivar,ipos-1) & 
    143         &     + (49.d0 / 36.d0) * & 
     143        &     + (49.e0 / 36.e0) * & 
    144144        &       fdat(1,ivar,ipos+0) & 
    145         &     - ( 5.d0 / 36.d0) * & 
     145        &     - ( 5.e0 / 36.e0) * & 
    146146        &       fdat(1,ivar,ipos+1) & 
    147         &     + ( 1.d0 / 90.d0) * & 
     147        &     + ( 1.e0 / 90.e0) * & 
    148148        &       fdat(1,ivar,ipos+2) 
    149149 
    … …  
    185185        &              +  delh(-1) ) / xhat 
    186186            xmap(-1) = -  delh(-1)   / xhat 
    187             xmap(+0) = +  0.d0 
     187            xmap(+0) = +  0.e0 
    188188            xmap(+1) = +  delh(+0)   / xhat 
    189189            xmap(+2) = +( delh(+0) & 
Note: See TracChangeset for help on using the changeset viewer.