Changeset 1320 for palm/trunk/SOURCE/user_data_output_dvrp.f90
- Timestamp:
- Mar 20, 2014 8:40:49 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_data_output_dvrp.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 ! 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 23 28 ! 24 29 ! Former revisions: … … 28 33 ! 1036 2012-10-22 13:43:42Z raasch 29 34 ! code put under GPL (PALM 3.9) 30 !31 ! 258 2009-03-13 12:36:03Z heinze32 ! Output of messages replaced by message handling routine.33 ! Clipping implemented34 35 ! 35 36 ! 211 2008-11-11 04:46:24Z raasch … … 42 43 43 44 USE control_parameters 45 44 46 USE dvrp_variables 47 45 48 USE indices 49 50 USE kinds 51 46 52 USE pegrid 53 47 54 USE user 48 55 49 56 IMPLICIT NONE 50 57 51 CHARACTER (LEN=*) :: output_variable 58 CHARACTER (LEN=*) :: output_variable !: 52 59 53 INTEGER :: i, j, k 60 INTEGER(iwp) :: i !: 61 INTEGER(iwp) :: j !: 62 INTEGER(iwp) :: k !: 54 63 55 REAL , DIMENSION(nxl_dvrp:nxr_dvrp+1,nys_dvrp:nyn_dvrp+1,nzb:nz_do3d) ::&56 local_pf64 REAL(wp), DIMENSION(nxl_dvrp:nxr_dvrp+1,nys_dvrp:nyn_dvrp+1,nzb:nz_do3d) :: & 65 local_pf !: 57 66 58 67 !
Note: See TracChangeset
for help on using the changeset viewer.