Ignore:
Timestamp:
Aug 12, 2016 3:14:59 PM (5 years ago)
Author:
suehring
Message:

Prescribing scalar flux at model top; several bugfixes concering data output of scalars and output of flight data

File:
1 edited

Legend:

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

    r1818 r1992  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! -Close file containing flight data
     22! -Some tabs removed.
    2223!
    2324! Former revisions:
     
    8586    USE netcdf_interface,                                                      &
    8687        ONLY:  id_set_mask, id_set_pr, id_set_prt, id_set_pts, id_set_sp,      &
    87                id_set_ts, id_set_xy, id_set_xz, id_set_yz, id_set_3d, nc_stat, &
    88                netcdf_data_format, netcdf_handle_error
     88               id_set_ts, id_set_xy, id_set_xz, id_set_yz, id_set_3d,         &
     89               id_set_fl, nc_stat, netcdf_data_format, netcdf_handle_error
    8990               
    9091    USE pegrid                                           
     
    223224                ENDIF
    224225
     226             CASE ( 199 )
     227
     228                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
     229                   nc_stat = NF90_CLOSE( id_set_fl )
     230                   CALL netcdf_handle_error( 'close_file', 353 )
     231                ENDIF
     232
    225233             CASE ( 201:200+2*max_masks )
    226              
     234
    227235                IF ( myid == 0  .OR.  netcdf_data_format > 4 )  THEN
    228236!
     
    237245                   nc_stat = NF90_CLOSE( id_set_mask(mid,av) )
    238246                   CALL netcdf_handle_error( 'close_file', 459 )
    239                
     247
    240248                ENDIF
    241249
Note: See TracChangeset for help on using the changeset viewer.