Changeset 1682 for palm/trunk/SOURCE/user_module.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_module.f90
r1321 r1682 1 MODULE user 2 1 !> @file user_module.f90 3 2 !--------------------------------------------------------------------------------! 4 3 ! This file is part of PALM. … … 20 19 ! Current revisions: 21 20 ! ----------------- 22 ! 21 ! Code annotations made doxygen readable 23 22 ! 24 23 ! Former revisions: … … 43 42 ! Description: 44 43 ! ------------ 45 ! Declaration of user-defined variables. This module may only be used46 ! in the user-defined routines (contained in user_interface.f90).44 !> Declaration of user-defined variables. This module may only be used 45 !> in the user-defined routines (contained in user_interface.f90). 47 46 !------------------------------------------------------------------------------! 47 MODULE user 48 48 49 49 50 USE kinds … … 51 52 IMPLICIT NONE 52 53 53 INTEGER(iwp) :: dots_num_palm ! :54 INTEGER(iwp) :: user_idummy ! :54 INTEGER(iwp) :: dots_num_palm !< 55 INTEGER(iwp) :: user_idummy !< 55 56 56 LOGICAL :: user_defined_namelist_found = .FALSE. ! :57 LOGICAL :: user_defined_namelist_found = .FALSE. !< 57 58 58 REAL(wp) :: user_rdummy ! :59 REAL(wp) :: user_rdummy !< 59 60 60 61 ! 61 62 !-- Sample for user-defined output 62 ! REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: u2 ! :user defined array63 ! REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: u2_av ! :user defined array64 ! REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: ustvst ! :user defined array63 ! REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: u2 !< user defined array 64 ! REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: u2_av !< user defined array 65 ! REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: ustvst !< user defined array 65 66 66 67 SAVE
Note: See TracChangeset
for help on using the changeset viewer.