Changeset 1804 for palm/trunk/SOURCE/exchange_horiz.f90
- Timestamp:
- Apr 5, 2016 4:30:18 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/exchange_horiz.f90
r1683 r1804 19 19 ! Current revisions: 20 20 ! ----------------- 21 ! 21 ! Removed code for parameter file check (__check) 22 22 ! 23 23 ! Former revisions: … … 102 102 nxl-nbgp_local:nxr+nbgp_local) :: ar !< 103 103 104 105 #if ! defined( __check )106 104 107 105 CALL cpu_log( log_point_s(2), 'exchange_horiz', 'start' ) … … 290 288 CALL cpu_log( log_point_s(2), 'exchange_horiz', 'stop' ) 291 289 292 #endif293 290 END SUBROUTINE exchange_horiz 294 291 … … 319 316 nxl-nbgp_local:nxr+nbgp_local) :: ar !< treated array 320 317 321 #if ! defined( __check )322 318 323 319 #if defined( __parallel ) … … 386 382 387 383 #endif 388 #endif389 384 390 385
Note: See TracChangeset
for help on using the changeset viewer.