Changeset 652 for codes/icosagcm/devel
- Timestamp:
- 12/28/17 12:42:54 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/devel/src/unstructured/timestep_unstructured.F90
r645 r652 52 52 INTEGER :: ij 53 53 54 CALL init_trace() 54 55 ! CALL CPU_TIME(time1) 55 56 time1=OMP_GET_WTIME() … … 101 102 ! CALL CPU_TIME(time2) 102 103 IF(time2>time1) elapsed = elapsed + time2-time1 104 105 CALL print_trace() 103 106 END SUBROUTINE caldyn_unstructured 104 107 ! … … 127 130 INTEGER :: step, stage, ij 128 131 132 CALL init_trace() 129 133 !CALL CPU_TIME(time1) 130 134 time1=OMP_GET_WTIME() … … 202 206 ! CALL CPU_TIME(time2) 203 207 IF(time2>time1) elapsed = elapsed + time2-time1 208 209 CALL print_trace() 204 210 205 211 END SUBROUTINE ARK_step
Note: See TracChangeset
for help on using the changeset viewer.