Changeset 1320 for palm/trunk/SOURCE/palm.f90
- Timestamp:
- Mar 20, 2014 8:40:49 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/palm.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: … … 59 65 ! 849 2012-03-15 10:35:09Z raasch 60 66 ! write_particles renamed lpm_write_restart_file 61 !62 ! 759 2011-09-15 13:58:31Z raasch63 ! Splitting of parallel I/O, cpu measurement for write_3d_binary and opening64 ! of unit 14 moved to here65 !66 ! 495 2010-03-02 00:40:15Z raasch67 ! Particle data for restart runs are only written if write_binary=.T..68 !69 ! 215 2008-11-18 09:54:31Z raasch70 ! Initialization of coupled runs modified for MPI-1 and moved to external71 ! subroutine init_coupling72 !73 ! 197 2008-09-16 15:29:03Z raasch74 ! Workaround for getting information about the coupling mode75 !76 ! 108 2007-08-24 15:10:38Z letzel77 ! Get coupling mode from environment variable, change location of debug output78 !79 ! 75 2007-03-22 09:54:05Z raasch80 ! __vtk directives removed, write_particles is called only in case of particle81 ! advection switched on, open unit 9 for debug output,82 ! setting of palm version moved from modules to here83 !84 ! RCS Log replace by Id keyword, revision history cleaned up85 !86 ! Revision 1.10 2006/08/04 14:53:12 raasch87 ! Distibution of run description header removed, call of header moved behind88 ! init_3d_model89 !90 ! Revision 1.2 2001/01/25 07:15:06 raasch91 ! Program name changed to PALM, module test_variables removed.92 ! Initialization of dvrp logging as well as exit of dvrp moved to new93 ! subroutines init_dvrp_logging and close_dvrp (file init_dvrp.f90)94 67 ! 95 68 ! Revision 1.1 1997/07/24 11:23:35 raasch … … 108 81 109 82 110 USE arrays_3d 111 USE constants 112 USE control_parameters 113 USE cpulog 114 USE dvrp_variables 115 USE grid_variables 116 USE indices 117 USE ls_forcing_mod 118 USE model_1d 119 USE nudge_mod 120 USE particle_attributes 83 USE control_parameters, & 84 ONLY: coupling_char, coupling_mode, do2d_at_begin, do3d_at_begin, & 85 io_blocks, io_group, large_scale_forcing, nudging, & 86 simulated_time, simulated_time_chr, version, write_binary 87 88 USE cpulog, & 89 ONLY: cpu_log, log_point, cpu_statistics 90 91 USE kinds 92 93 USE ls_forcing_mod, & 94 ONLY: init_ls_forcing 95 96 USE nudge_mod, & 97 ONLY: init_nudge 98 99 USE particle_attributes, & 100 ONLY: particle_advection 101 121 102 USE pegrid 122 USE spectrum123 USE statistics124 103 125 104 #if defined( __openacc ) … … 131 110 ! 132 111 !-- Local variables 133 CHARACTER (LEN=9) :: time_to_string134 INTEGER :: i112 CHARACTER(LEN=9) :: time_to_string !: 113 INTEGER(iwp) :: i !: 135 114 #if defined( __openacc ) 136 REAL , DIMENSION(100) :: acc_dum115 REAL(wp), DIMENSION(100) :: acc_dum !: 137 116 #endif 138 117
Note: See TracChangeset
for help on using the changeset viewer.