Changeset 1320 for palm/trunk/SOURCE/print_1d.f90
- Timestamp:
- Mar 20, 2014 8:40:49 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/print_1d.f90
r1319 r1320 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! ONLY-attribute added to USE-statements, 23 ! kind-parameters added to all INTEGER and REAL declaration statements, 24 ! kinds are defined in new module kinds, 25 ! old module precision_kind is removed, 26 ! revision history before 2012 removed, 27 ! comment fields (!:) to be used for variable explanations added to 28 ! all variable declaration statements 23 29 ! 24 30 ! Former revisions: … … 35 41 ! RCS Log replace by Id keyword, revision history cleaned up 36 42 ! 37 ! Revision 1.11 2006/02/23 12:50:43 raasch38 ! Preliminary no output of time-averaged data39 !40 43 ! Revision 1.1 1997/09/19 07:45:22 raasch 41 44 ! Initial revision … … 47 50 !------------------------------------------------------------------------------! 48 51 49 USE arrays_3d 50 USE control_parameters 51 USE cpulog 52 USE indices 52 USE arrays_3d, & 53 ONLY: zu, zw 54 55 USE control_parameters, & 56 ONLY: run_description_header, simulated_time_chr 57 58 USE cpulog, & 59 ONLY: cpu_log, log_point 60 61 USE indices, & 62 ONLY: nzb, nzt 63 64 USE kinds 65 53 66 USE pegrid 54 USE statistics 67 68 USE statistics, & 69 ONLY: flow_statistics_called, hom, region, statistic_regions 55 70 56 71 IMPLICIT NONE 57 72 58 73 59 CHARACTER (LEN=20) :: period_chr 60 INTEGER :: k, sr 74 CHARACTER (LEN=20) :: period_chr !: 75 76 INTEGER(iwp) :: k !: 77 INTEGER(iwp) :: sr !: 61 78 62 79
Note: See TracChangeset
for help on using the changeset viewer.