Changeset 1353 for palm/trunk/SOURCE/modules.f90
- Timestamp:
- Apr 8, 2014 3:21:23 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/modules.f90
r1329 r1353 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! REAL constants provided with KIND-attribute 23 23 ! 24 24 ! Former revisions: … … 882 882 USE kinds 883 883 884 REAL(wp) :: ddx, ddx2, dx = 1.0 , dx2, ddy, ddy2, dy = 1.0, dy2884 REAL(wp) :: ddx, ddx2, dx = 1.0_wp, dx2, ddy, ddy2, dy = 1.0_wp, dy2 885 885 886 886 REAL(wp), DIMENSION(:), ALLOCATABLE :: ddx2_mg, ddy2_mg
Note: See TracChangeset
for help on using the changeset viewer.