Changeset 1682 for palm/trunk/SOURCE/compute_vpt.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/compute_vpt.f90
r1354 r1682 1 SUBROUTINE compute_vpt 2 1 !> @file compute_vpt.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: … … 49 48 ! Description: 50 49 ! ------------- 51 ! Computation of the virtual potential temperature50 !> Computation of the virtual potential temperature 52 51 !------------------------------------------------------------------------------! 52 SUBROUTINE compute_vpt 53 53 54 54 55 USE arrays_3d, & … … 68 69 IMPLICIT NONE 69 70 70 INTEGER(iwp) :: k ! :71 INTEGER(iwp) :: k !< 71 72 72 73 IF ( .NOT. cloud_physics .AND. .NOT. cloud_droplets ) THEN
Note: See TracChangeset
for help on using the changeset viewer.