Changeset 1320 for palm/trunk/SOURCE/user_spectra.f90
- Timestamp:
- Mar 20, 2014 8:40:49 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_spectra.f90
r1310 r1320 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! kind-parameters added to all INTEGER and REAL declaration statements, 23 ! kinds are defined in new module kinds, 24 ! old module precision_kind is removed, 25 ! revision history before 2012 removed, 26 ! comment fields (!:) to be used for variable explanations added to 27 ! all variable declaration statements 22 28 ! 23 29 ! … … 28 34 ! 1036 2012-10-22 13:43:42Z raasch 29 35 ! code put under GPL (PALM 3.9) 30 !31 ! 274 2009-03-26 15:11:21Z heinze32 ! Output of messages replaced by message handling routine.33 36 ! 34 37 ! 211 2008-11-11 04:46:24Z raasch … … 43 46 44 47 USE arrays_3d 48 45 49 USE control_parameters 50 46 51 USE indices 52 53 USE kinds 54 47 55 USE spectrum 56 48 57 USE statistics 58 49 59 USE user 50 60 … … 53 63 CHARACTER (LEN=*) :: mode 54 64 55 INTEGER :: i, j, k, m, pr 65 INTEGER(iwp) :: i !: 66 INTEGER(iwp) :: j !: 67 INTEGER(iwp) :: k !: 68 INTEGER(iwp) :: m !: 69 INTEGER(iwp) :: pr !: 56 70 57 71 … … 75 89 76 90 CASE DEFAULT 77 message_string = 'Spectra of ' // &91 message_string = 'Spectra of ' // & 78 92 TRIM( data_output_sp(m) ) // ' can not be calculated' 79 93 CALL message( 'user_spectra', 'UI0010', 0, 0, 0, 6, 0 ) … … 93 107 94 108 CASE DEFAULT 95 message_string = 'Spectra of ' // &109 message_string = 'Spectra of ' // & 96 110 TRIM( data_output_sp(m) ) // ' are not defined' 97 111 CALL message( 'user_spectra', 'UI0011', 0, 0, 0, 6, 0 )
Note: See TracChangeset
for help on using the changeset viewer.