Changeset 1682 for palm/trunk/SOURCE/local_tremain.f90
- Timestamp:
- Oct 7, 2015 11:56:08 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/local_tremain.f90
r1354 r1682 1 SUBROUTINE local_tremain( remaining_time ) 2 1 !> @file local_tremain.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 ! For different operating systems get the remaining cpu-time of the job50 !> For different operating systems get the remaining cpu-time of the job 52 51 !------------------------------------------------------------------------------! 52 SUBROUTINE local_tremain( remaining_time ) 53 53 54 54 55 USE control_parameters, & … … 64 65 IMPLICIT NONE 65 66 66 REAL(wp) :: remaining_time ! :67 REAL(wp) :: remaining_time !< 67 68 #if defined( __ibm ) 68 INTEGER(idp) :: IRTC ! :69 REAL(wp) :: actual_wallclock_time ! :69 INTEGER(idp) :: IRTC !< 70 REAL(wp) :: actual_wallclock_time !< 70 71 #elif defined( __lc ) 71 INTEGER(idp) :: count ! :72 INTEGER(idp) :: count_rate ! :73 REAL(wp) :: actual_wallclock_time ! :72 INTEGER(idp) :: count !< 73 INTEGER(idp) :: count_rate !< 74 REAL(wp) :: actual_wallclock_time !< 74 75 #endif 75 76
Note: See TracChangeset
for help on using the changeset viewer.