Ignore:
Timestamp:
Jun 6, 2019 12:16:46 PM (5 years ago)
Author:
schwenkel
Message:

Modularization of all lagrangian particle model code components

File:
1 edited

Legend:

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

    r3994 r4017  
    116116        ONLY:  netcdf_precision, output_for_t0
    117117
    118     USE particle_attributes,                                                   &
    119         ONLY:  curvature_solution_effects, iran_part
    120 
    121118    USE pegrid,                                                                &
    122119        ONLY:  collective_wait, hor_index_bounds, myid, numprocs
     
    324321       WRITE ( 14 )  current_timestep_number
    325322
    326        CALL wrd_write_string( 'curvature_solution_effects' )
    327        WRITE ( 14 )  curvature_solution_effects
    328 
    329323       CALL wrd_write_string( 'cycle_mg' )
    330324       WRITE ( 14 )  cycle_mg
     
    371365       CALL wrd_write_string( 'dt_run_control_1d' )
    372366       WRITE ( 14 )  dt_run_control_1d
    373 
    374        CALL wrd_write_string( 'dvrp_filecount' )
    375        WRITE ( 14 )  dvrp_filecount
    376367
    377368       CALL wrd_write_string( 'dx' )
     
    707698       WRITE ( 14 )  time_dots
    708699
    709        CALL wrd_write_string( 'time_dvrp' )
    710        WRITE ( 14 )  time_dvrp
    711 
    712700       CALL wrd_write_string( 'time_radiation' )
    713701       WRITE ( 14 )  time_radiation
     
    935923       ENDIF
    936924
    937        CALL wrd_write_string( 'iran' )
    938        WRITE ( 14 )  iran, iran_part
    939 
    940925       CALL wrd_write_string( 'kh' )
    941926       WRITE ( 14 )  kh
Note: See TracChangeset for help on using the changeset viewer.