Changeset 1682 for palm/trunk/SOURCE/calc_mean_profile.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/calc_mean_profile.f90
r1366 r1682 1 MODULE calc_mean_profile_mod 2 1 !> @file calc_mean_profile.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: … … 31 30 ! Description: 32 31 ! ------------ 33 ! Calculate the horizontally averaged vertical temperature profile (pr=4 in case34 ! of potential temperature, 44 in case of virtual potential temperature, and 6435 ! in case of density (ocean runs)).32 !> Calculate the horizontally averaged vertical temperature profile (pr=4 in case 33 !> of potential temperature, 44 in case of virtual potential temperature, and 64 34 !> in case of density (ocean runs)). 36 35 !------------------------------------------------------------------------------! 36 MODULE calc_mean_profile_mod 37 37 38 38 39 PRIVATE … … 45 46 CONTAINS 46 47 48 !------------------------------------------------------------------------------! 49 ! Description: 50 ! ------------ 51 !> @todo Missing subroutine description. 52 !------------------------------------------------------------------------------! 47 53 SUBROUTINE calc_mean_profile( var, pr ) 48 54 … … 63 69 IMPLICIT NONE 64 70 65 INTEGER(iwp) :: i ! :66 INTEGER(iwp) :: j ! :67 INTEGER(iwp) :: k ! :68 INTEGER(iwp) :: pr ! :69 INTEGER(iwp) :: omp_get_thread_num ! :70 INTEGER(iwp) :: tn ! :71 INTEGER(iwp) :: i !< 72 INTEGER(iwp) :: j !< 73 INTEGER(iwp) :: k !< 74 INTEGER(iwp) :: pr !< 75 INTEGER(iwp) :: omp_get_thread_num !< 76 INTEGER(iwp) :: tn !< 71 77 72 78 #if defined( __nopointer ) 73 REAL(wp), DIMENSION(:,:,:) :: var ! :79 REAL(wp), DIMENSION(:,:,:) :: var !< 74 80 #else 75 81 REAL(wp), DIMENSION(:,:,:), POINTER :: var
Note: See TracChangeset
for help on using the changeset viewer.