Changeset 2711 for palm/trunk/SOURCE

Timestamp:

Dec 20, 2017 5:04:49 PM (7 years ago)

Author:

suehring

Message:

Subroutine renamed in order to avoid some double naming

File:

• palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (8 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Rename subroutine close_file to avoid double-naming.  
+! 
+! 2700 2017-12-15 14:12:35Z suehring
 ! Initial revision
 ! 
@@ -470 +473 @@
 !
 !--          Finally, close input file
-             CALL close_file( id_mod )
+             CALL close_input_file( id_mod )
 #endif
           ENDIF
@@ -1092 +1095 @@
 !
 !--          Finally, close input file
-             CALL close_file( id_surf )
+             CALL close_input_file( id_surf )
 #endif
           ENDIF
@@ -1713 +1716 @@
 !
 !--             Close topography input file
-                CALL close_file( id_topo )
+                CALL close_input_file( id_topo )
 #endif
 !
@@ -2174 +2177 @@
 !
 !--          Close input file
-             CALL close_file( id_dynamic )
+             CALL close_input_file( id_dynamic )
 #endif
           ENDIF
@@ -2603 +2606 @@
 !
 !--          Close input file
-             CALL close_file( id_dynamic )
+             CALL close_input_file( id_dynamic )
 #endif
           ENDIF
@@ -3349 +3352 @@
 !> Closes an existing netCDF file.
 !------------------------------------------------------------------------------!
-    SUBROUTINE close_file( id )
+    SUBROUTINE close_input_file( id )
 #if defined( __netcdf )
 
@@ -3361 +3364 @@
        CALL handle_error( 'close', 537 )
 #endif
-    END SUBROUTINE close_file
+    END SUBROUTINE close_input_file
 
 !------------------------------------------------------------------------------!