Changeset 3649 for palm/trunk/SOURCE/module_interface.f90
- Timestamp:
- Jan 2, 2019 4:52:21 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/module_interface.f90
r3648 r3649 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Initialize strings, in order to avoid compiler warnings for non-initialized 28 ! characters with intent(out) attribute 29 ! 30 ! 3648 2019-01-02 16:35:46Z suehring 27 31 ! Rename subroutines for surface-data output 28 32 ! … … 547 551 CHARACTER (LEN=*), INTENT(OUT) :: grid_y !< netcdf dimension in y-direction 548 552 CHARACTER (LEN=*), INTENT(OUT) :: grid_z !< netcdf dimension in z-direction 549 553 ! 554 !--As long as no action is done in this subroutine, initial strings with 555 !--intent(out) attribute, in order to avoid compiler warnings. 556 found = .FALSE. 557 grid_x = 'none' 558 grid_y = 'none' 559 grid_z = 'none' 550 560 551 561 END SUBROUTINE module_interface_define_netcdf_grid
Note: See TracChangeset
for help on using the changeset viewer.