Changeset 8127 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/compute_sections.f90
- Timestamp:
- 2017-06-02T09:54:18+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/compute_sections.f90
r3632 r8127 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 686 ELSE 686 687 sec%slopeSection = 10000._wp
Note: See TracChangeset
for help on using the changeset viewer.