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/read_restart_data_mod.f90

    r4009 r4017  
    155155    USE netcdf_interface,                                                      &
    156156        ONLY:  netcdf_precision, output_for_t0
    157 
    158     USE particle_attributes,                                                   &
    159         ONLY:  curvature_solution_effects, iran_part
    160157
    161158    USE pegrid
     
    410407             CASE ( 'current_timestep_number' )
    411408                READ ( 13 )  current_timestep_number
    412              CASE ( 'curvature_solution_effects' )
    413                 READ ( 13 )  curvature_solution_effects
    414409             CASE ( 'cycle_mg' )
    415410                READ ( 13 )  cycle_mg
     
    442437             CASE ( 'dt_run_control_1d' )
    443438                READ ( 13 )  dt_run_control_1d
    444              CASE ( 'dvrp_filecount' )
    445                 READ ( 13 )  dvrp_filecount
    446439             CASE ( 'dx' )
    447440                READ ( 13 )  dx
     
    676669             CASE ( 'time_dots' )
    677670                READ ( 13 )  time_dots
    678              CASE ( 'time_dvrp' )
    679                 READ ( 13 )  time_dvrp
    680671             CASE ( 'time_radiation' )
    681672                READ ( 13 )  time_radiation
     
    13491340                      tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    13501341
    1351                 CASE ( 'iran' ) ! matching random numbers is still unresolved issue
    1352                    IF ( k == 1 )  READ ( 13 )  iran, iran_part
    1353 
    13541342                CASE ( 'kh' )
    13551343                   IF ( k == 1 )  READ ( 13 )  tmp_3d
     
    14071395                      tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    14081396
    1409                 CASE ( 'pc_av' )
    1410                    IF ( .NOT. ALLOCATED( pc_av ) )  THEN
    1411                       ALLOCATE( pc_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    1412                    ENDIF
    1413                    IF ( k == 1 )  READ ( 13 )  tmp_3d
    1414                    pc_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) =                              &
    1415                       tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    1416 
    1417                 CASE ( 'pr_av' )
    1418                    IF ( .NOT. ALLOCATED( pr_av ) )  THEN
    1419                       ALLOCATE( pr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    1420                    ENDIF
    1421                    IF ( k == 1 )  READ ( 13 )  tmp_3d
    1422                    pr_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) =                              &
    1423                       tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    1424 
    14251397                CASE ( 'pt' )
    14261398                   IF ( k == 1 )  READ ( 13 )  tmp_3d
     
    14681440                   IF ( k == 1 )  READ ( 13 )  tmp_3d
    14691441                   ql_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) =                              &
    1470                       tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    1471 
    1472                 CASE ( 'ql_c_av' )
    1473                    IF ( .NOT. ALLOCATED( ql_c_av ) )  THEN
    1474                       ALLOCATE( ql_c_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    1475                    ENDIF
    1476                    IF ( k == 1 )  READ ( 13 )  tmp_3d
    1477                    ql_c_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) =                            &
    1478                       tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    1479 
    1480                 CASE ( 'ql_v_av' )
    1481                    IF ( .NOT. ALLOCATED( ql_v_av ) )  THEN
    1482                       ALLOCATE( ql_v_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    1483                    ENDIF
    1484                    IF ( k == 1 )  READ ( 13 )  tmp_3d
    1485                    ql_v_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) =                            &
    1486                       tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    1487 
    1488                 CASE ( 'ql_vp_av' )
    1489                    IF ( .NOT. ALLOCATED( ql_vp_av ) )  THEN
    1490                       ALLOCATE( ql_vp_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    1491                    ENDIF
    1492                    IF ( k == 1 )  READ ( 13 )  tmp_3d
    1493                    ql_vp_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) =                           &
    14941442                      tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    14951443
Note: See TracChangeset for help on using the changeset viewer.