- Timestamp:
- 2017-06-02T09:53:43+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/compute_sections.f90
r3632 r8126 681 681 IF( sec%nb_point .ne. 0 )THEN 682 682 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 ) 685 685 ELSE 686 686 sec%slopeSection = 10000._wp
Note: See TracChangeset
for help on using the changeset viewer.