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 8126 for trunk/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/compute_sections.f90 – NEMO

Ignore:
Timestamp:
2017-06-02T09:53:43+02:00 (7 years ago)
Author:
cbricaud
Message:

fix in trunk ticket #1906

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/compute_sections.f90

    r3632 r8126  
    681681     IF( sec%nb_point .ne. 0 )THEN 
    682682        IF (  sec%listPoint(sec%nb_point)%I .NE.  sec%listPoint(1)%I ) THEN 
    683            sec%slopeSection = ( sec%listPoint(sec%nb_point)%J - sec%listPoint(1)%J ) /  & 
    684                               ( sec%listPoint(sec%nb_point)%I - sec%listPoint(1)%I )       
     683           sec%slopeSection = REAL( ( sec%listPoint(sec%nb_point)%J - sec%listPoint(1)%J ) , wp )/  & 
     684                              REAL( ( sec%listPoint(sec%nb_point)%I - sec%listPoint(1)%I ) , wp )      
    685685        ELSE 
    686686           sec%slopeSection = 10000._wp 
Note: See TracChangeset for help on using the changeset viewer.