Changeset 1682 for palm/trunk/SOURCE/user_actions.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_actions.f90
r1354 r1682 1 MODULE user_actions_mod 2 1 !> @file user_actions.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: … … 50 49 ! Description: 51 50 ! ------------ 52 ! Execution of user-defined actions before or after single timesteps 53 !------------------------------------------------------------------------------! 51 !> Execution of user-defined actions before or after single timesteps 52 !------------------------------------------------------------------------------! 53 MODULE user_actions_mod 54 54 55 55 56 PRIVATE … … 65 66 66 67 !------------------------------------------------------------------------------! 67 ! Call for all grid points 68 ! Description: 69 ! ------------ 70 !> Call for all grid points 68 71 !------------------------------------------------------------------------------! 69 72 SUBROUTINE user_actions( location ) … … 85 88 IMPLICIT NONE 86 89 87 CHARACTER (LEN=*) :: location ! :88 89 INTEGER(iwp) :: i ! :90 INTEGER(iwp) :: j ! :91 INTEGER(iwp) :: k ! :90 CHARACTER (LEN=*) :: location !< 91 92 INTEGER(iwp) :: i !< 93 INTEGER(iwp) :: j !< 94 INTEGER(iwp) :: k !< 92 95 93 96 CALL cpu_log( log_point(24), 'user_actions', 'start' ) … … 173 176 174 177 !------------------------------------------------------------------------------! 175 ! Call for grid point i,j 178 ! Description: 179 ! ------------ 180 !> Call for grid point i,j 176 181 !------------------------------------------------------------------------------! 177 182 SUBROUTINE user_actions_ij( i, j, location )
Note: See TracChangeset
for help on using the changeset viewer.