Changeset 3665 for palm/trunk/SOURCE/netcdf_interface_mod.f90
- Timestamp:
- Jan 10, 2019 8:28:24 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf_interface_mod.f90
r3655 r3665 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Statement added to prevent compiler warning about unused variable 28 ! 29 ! 3655 2019-01-07 16:51:22Z knoop 27 30 ! Move the control parameter "salsa" from salsa_mod to control_parameters 28 31 ! (M. Kurppa) … … 6777 6780 INTEGER, INTENT(IN) :: errno 6778 6781 INTEGER, INTENT(OUT) :: id 6782 INTEGER :: idum !< dummy variable used to avoid compiler warnings about unused variables 6779 6783 LOGICAL, INTENT(IN) :: parallel 6780 6784 6785 ! 6786 !-- Next line is just to avoid compiler warning about unused variable 6787 IF ( parallel ) idum = 0 6781 6788 6782 6789 !
Note: See TracChangeset
for help on using the changeset viewer.