Changeset 4475
- Timestamp:
- Mar 26, 2020 4:28:19 PM (5 years ago)
- Location:
- palm/trunk/UTIL/inifor/src
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/inifor/src/inifor_control.f90
r3997 r4475 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Change output format in routine report to allow for better message formatting 29 ! 30 ! 3997 2019-05-23 12:35:57Z eckhard 28 31 ! Added warnings counter 29 32 ! … … 126 129 127 130 IF ( .NOT. suppress_message ) THEN 128 PRINT *,"inifor: " // TRIM(message) // " [ " // TRIM(routine) // " ]"129 WRITE(u, *) TRIM(message) // " [ " // TRIM(routine) // " ]"131 WRITE(*, '(A)') "inifor: " // TRIM(message) // " [ " // TRIM(routine) // " ]" 132 WRITE(u, '(A)') TRIM(message) // " [ " // TRIM(routine) // " ]" 130 133 ENDIF 131 134 -
palm/trunk/UTIL/inifor/src/inifor_grid.f90
r4074 r4475 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Bugfix: check if namelist file could be opened without error 29 ! 30 ! 4074 2019-07-05 13:05:19Z eckhard 28 31 ! Changed default initialization mode from 'volume' to 'profile' 29 32 ! Pass hhl_file to cosmo_grid() instead of entire INIFOR configuration … … 491 494 ! 492 495 !-- Read in namelist parameters 493 OPEN(10, FILE=cfg%namelist_file, STATUS='old') 496 OPEN(10, FILE=cfg%namelist_file, STATUS='old', IOSTAT=iostat) 497 IF ( iostat /= 0 ) THEN 498 message = "Failed to open file '" // & 499 TRIM( cfg%namelist_file ) // "'. " 500 CALL inifor_abort( 'setup_parameters', message ) 501 ENDIF 502 494 503 READ(10, NML=inipar, IOSTAT=iostat) ! nx, ny, nz, dx, dy, dz 495 504 IF ( iostat > 0 ) THEN -
palm/trunk/UTIL/inifor/src/inifor_util.f90
r3866 r4475 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Bugfix: use explicit loop in 'reverse' subroutine instead of implicit loop 29 ! 30 ! 3866 2019-04-05 14:25:01Z eckhard 28 31 ! Use PALM's working precision 29 32 ! Improved coding style … … 269 272 SUBROUTINE reverse(input_arr) 270 273 274 INTEGER :: i 275 INTEGER :: lbound_3rd_dimension 276 INTEGER :: ubound_3rd_dimension 277 271 278 REAL(wp), INTENT(INOUT) :: input_arr(:,:,:) 272 279 273 input_arr = input_arr(:,:,size(input_arr, 3):1:-1) 280 lbound_3rd_dimension = LBOUND(input_arr, 3) 281 ubound_3rd_dimension = UBOUND(input_arr, 3) 282 283 DO i = lbound_3rd_dimension, ubound_3rd_dimension 284 input_arr(:,:,i) = input_arr(:,:, & 285 ubound_3rd_dimension - ( i - lbound_3rd_dimension )) 286 ENDDO 274 287 275 288 END SUBROUTINE reverse
Note: See TracChangeset
for help on using the changeset viewer.