Changeset 1320 for palm/trunk/SOURCE/user_3d_data_averaging.f90
- Timestamp:
- Mar 20, 2014 8:40:49 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_3d_data_averaging.f90
r1310 r1320 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! kind-parameters added to all INTEGER and REAL declaration statements, 23 ! kinds are defined in new module kinds, 24 ! revision history before 2012 removed, 25 ! comment fields (!:) to be used for variable explanations added to 26 ! all variable declaration statements 23 27 ! 24 28 ! Former revisions: … … 39 43 40 44 USE control_parameters 45 41 46 USE indices 47 48 USE kinds 49 42 50 USE user 43 51 44 52 IMPLICIT NONE 45 53 46 CHARACTER (LEN=*) :: mode, variable 54 CHARACTER (LEN=*) :: mode !: 55 CHARACTER (LEN=*) :: variable !: 47 56 48 INTEGER :: i, j, k 49 57 INTEGER(iwp) :: i !: 58 INTEGER(iwp) :: j !: 59 INTEGER(iwp) :: k !: 50 60 51 61 IF ( mode == 'allocate' ) THEN
Note: See TracChangeset
for help on using the changeset viewer.