Changeset 4017 for palm/trunk/SOURCE/read_restart_data_mod.f90
- Timestamp:
- Jun 6, 2019 12:16:46 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/read_restart_data_mod.f90
r4009 r4017 155 155 USE netcdf_interface, & 156 156 ONLY: netcdf_precision, output_for_t0 157 158 USE particle_attributes, &159 ONLY: curvature_solution_effects, iran_part160 157 161 158 USE pegrid … … 410 407 CASE ( 'current_timestep_number' ) 411 408 READ ( 13 ) current_timestep_number 412 CASE ( 'curvature_solution_effects' )413 READ ( 13 ) curvature_solution_effects414 409 CASE ( 'cycle_mg' ) 415 410 READ ( 13 ) cycle_mg … … 442 437 CASE ( 'dt_run_control_1d' ) 443 438 READ ( 13 ) dt_run_control_1d 444 CASE ( 'dvrp_filecount' )445 READ ( 13 ) dvrp_filecount446 439 CASE ( 'dx' ) 447 440 READ ( 13 ) dx … … 676 669 CASE ( 'time_dots' ) 677 670 READ ( 13 ) time_dots 678 CASE ( 'time_dvrp' )679 READ ( 13 ) time_dvrp680 671 CASE ( 'time_radiation' ) 681 672 READ ( 13 ) time_radiation … … 1349 1340 tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp) 1350 1341 1351 CASE ( 'iran' ) ! matching random numbers is still unresolved issue1352 IF ( k == 1 ) READ ( 13 ) iran, iran_part1353 1354 1342 CASE ( 'kh' ) 1355 1343 IF ( k == 1 ) READ ( 13 ) tmp_3d … … 1407 1395 tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp) 1408 1396 1409 CASE ( 'pc_av' )1410 IF ( .NOT. ALLOCATED( pc_av ) ) THEN1411 ALLOCATE( pc_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )1412 ENDIF1413 IF ( k == 1 ) READ ( 13 ) tmp_3d1414 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 ) ) THEN1419 ALLOCATE( pr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )1420 ENDIF1421 IF ( k == 1 ) READ ( 13 ) tmp_3d1422 pr_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &1423 tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)1424 1425 1397 CASE ( 'pt' ) 1426 1398 IF ( k == 1 ) READ ( 13 ) tmp_3d … … 1468 1440 IF ( k == 1 ) READ ( 13 ) tmp_3d 1469 1441 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 ) ) THEN1474 ALLOCATE( ql_c_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )1475 ENDIF1476 IF ( k == 1 ) READ ( 13 ) tmp_3d1477 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 ) ) THEN1482 ALLOCATE( ql_v_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )1483 ENDIF1484 IF ( k == 1 ) READ ( 13 ) tmp_3d1485 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 ) ) THEN1490 ALLOCATE( ql_vp_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )1491 ENDIF1492 IF ( k == 1 ) READ ( 13 ) tmp_3d1493 ql_vp_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &1494 1442 tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp) 1495 1443
Note: See TracChangeset
for help on using the changeset viewer.