Changeset 3998 for palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90
- Timestamp:
- May 23, 2019 1:38:11 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90
r3995 r3998 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix in gathering all output strings 28 ! 29 ! 3995 2019-05-22 18:59:54Z suehring 27 30 ! Avoid compiler warnings about unused variable and fix string operation which 28 31 ! is not allowed with PGI compiler … … 275 278 !-- Remove _xy, _xz, or _yz from string 276 279 l = MAX( 3, LEN_TRIM( do2d(av,ivar) ) ) 277 do2d_var(av,ivar)( 0:l-2) = do2d(av,ivar)(0:l-2)280 do2d_var(av,ivar)(1:l-3) = do2d(av,ivar)(1:l-3) 278 281 ! 279 282 !-- Gather 2d output quantity names, check for double occurrence of output quantity … … 285 288 ivar_all = ivar_all + 1 286 289 l = MAX( 3, LEN_TRIM( do2d(av,ivar) ) ) 287 do2d_var(av,ivar)( 0:l-2) = do2d(av,ivar)(0:l-2)290 do2d_var(av,ivar)(1:l-3) = do2d(av,ivar)(1:l-3) 288 291 ENDDO 289 292
Note: See TracChangeset
for help on using the changeset viewer.