Ignore:
Timestamp:
Dec 20, 2017 5:04:49 PM (4 years ago)
Author:
suehring
Message:

Subroutine renamed in order to avoid some double naming

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/netcdf_data_input_mod.f90

    r2700 r2711  
    2525! -----------------
    2626! $Id$
     27! Rename subroutine close_file to avoid double-naming. 
     28!
     29! 2700 2017-12-15 14:12:35Z suehring
    2730! Initial revision
    2831!
     
    470473!
    471474!--          Finally, close input file
    472              CALL close_file( id_mod )
     475             CALL close_input_file( id_mod )
    473476#endif
    474477          ENDIF
     
    10921095!
    10931096!--          Finally, close input file
    1094              CALL close_file( id_surf )
     1097             CALL close_input_file( id_surf )
    10951098#endif
    10961099          ENDIF
     
    17131716!
    17141717!--             Close topography input file
    1715                 CALL close_file( id_topo )
     1718                CALL close_input_file( id_topo )
    17161719#endif
    17171720!
     
    21742177!
    21752178!--          Close input file
    2176              CALL close_file( id_dynamic )
     2179             CALL close_input_file( id_dynamic )
    21772180#endif
    21782181          ENDIF
     
    26032606!
    26042607!--          Close input file
    2605              CALL close_file( id_dynamic )
     2608             CALL close_input_file( id_dynamic )
    26062609#endif
    26072610          ENDIF
     
    33493352!> Closes an existing netCDF file.
    33503353!------------------------------------------------------------------------------!
    3351     SUBROUTINE close_file( id )
     3354    SUBROUTINE close_input_file( id )
    33523355#if defined( __netcdf )
    33533356
     
    33613364       CALL handle_error( 'close', 537 )
    33623365#endif
    3363     END SUBROUTINE close_file
     3366    END SUBROUTINE close_input_file
    33643367
    33653368!------------------------------------------------------------------------------!
Note: See TracChangeset for help on using the changeset viewer.