Changeset 1682 for palm/trunk/SOURCE/user_data_output_mask.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/user_data_output_mask.f90
r1321 r1682 1 SUBROUTINE user_data_output_mask( av, variable, found, local_pf ) 2 1 !> @file user_data_output_mask.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: … … 38 37 ! Description: 39 38 ! ------------ 40 ! Resorts the user-defined output quantity with indices (k,j,i) to a41 ! temporary array with indices (i,j,k) for masked data output.39 !> Resorts the user-defined output quantity with indices (k,j,i) to a 40 !> temporary array with indices (i,j,k) for masked data output. 42 41 !------------------------------------------------------------------------------! 42 SUBROUTINE user_data_output_mask( av, variable, found, local_pf ) 43 43 44 44 45 USE control_parameters … … 52 53 IMPLICIT NONE 53 54 54 CHARACTER (LEN=*) :: variable ! :55 CHARACTER (LEN=*) :: variable !< 55 56 56 INTEGER(iwp) :: av ! :57 INTEGER(iwp) :: i ! :58 INTEGER(iwp) :: j ! :59 INTEGER(iwp) :: k ! :57 INTEGER(iwp) :: av !< 58 INTEGER(iwp) :: i !< 59 INTEGER(iwp) :: j !< 60 INTEGER(iwp) :: k !< 60 61 61 LOGICAL :: found ! :62 LOGICAL :: found !< 62 63 63 64 REAL(wp), & 64 65 DIMENSION(mask_size_l(mid,1),mask_size_l(mid,2),mask_size_l(mid,3)) :: & 65 local_pf ! :66 local_pf !< 66 67 67 68
Note: See TracChangeset
for help on using the changeset viewer.