Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:
1 edited

Legend:

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

    r2718 r3045  
    2525! -----------------
    2626! $Id$
     27! z_max_do2d removed and output case 108 disabled
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    8891
    8992    USE control_parameters,                                                    &
    90         ONLY:  max_masks, mid, nz_do3d, openfile, run_description_header,      &
    91                z_max_do2d
     93        ONLY:  max_masks, mid, nz_do3d, openfile, run_description_header
    9294               
    9395    USE grid_variables,                                                        &
     
    205207                ENDIF
    206208
    207              CASE ( 108 )
    208 
    209                 nc_stat = NF90_CLOSE( id_set_prt )
    210                 CALL netcdf_handle_error( 'close_file', 51 )
     209!
     210!--           Currently disabled
     211!             CASE ( 108 )
     212
     213!                nc_stat = NF90_CLOSE( id_set_prt )
     214!                CALL netcdf_handle_error( 'close_file', 51 )
    211215
    212216             CASE ( 109 )
Note: See TracChangeset for help on using the changeset viewer.