- Timestamp:
- Mar 20, 2018 1:00:05 PM (7 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/Makefile
r2894 r2912 1345 1345 chemistry_model_mod.o \ 1346 1346 cpulog_mod.o\ 1347 gust_mod.o \ 1347 1348 land_surface_model_mod.o \ 1348 1349 microphysics_mod.o \ … … 1673 1674 write_restart_data_mod.o: \ 1674 1675 chemistry_model_mod.o \ 1676 gust_mod.o \ 1675 1677 land_surface_model_mod.o \ 1676 1678 microphysics_mod.o \ -
palm/trunk/SOURCE/gust_mod.f90
r2821 r2912 24 24 ! Former revisions: 25 25 ! ----------------- 26 ! 26 ! $Id$ 27 27 ! Initial interface definition 28 28 ! … … 67 67 gust_data_output_3d, & 68 68 gust_statistics, & 69 gust_read_restart_data, & 70 gust_write_restart_data 69 gust_rrd_global, & 70 gust_wrd_global, & 71 gust_rrd_local, & 72 gust_wrd_local 71 73 ! 72 74 !-- Public parameters, constants and initial values … … 132 134 END INTERFACE gust_statistics 133 135 134 INTERFACE gust_read_restart_data 135 MODULE PROCEDURE gust_read_restart_data 136 END INTERFACE gust_read_restart_data 137 138 INTERFACE gust_write_restart_data 139 MODULE PROCEDURE gust_write_restart_data 140 END INTERFACE gust_write_restart_data 136 INTERFACE gust_rrd_global 137 MODULE PROCEDURE gust_rrd_global 138 END INTERFACE gust_rrd_global 139 140 INTERFACE gust_wrd_global 141 MODULE PROCEDURE gust_wrd_global 142 END INTERFACE gust_wrd_global 143 144 INTERFACE gust_rrd_local 145 MODULE PROCEDURE gust_rrd_local 146 END INTERFACE gust_rrd_local 147 148 INTERFACE gust_wrd_local 149 MODULE PROCEDURE gust_wrd_local 150 END INTERFACE gust_wrd_local 141 151 142 152 CONTAINS … … 447 457 !> This routine reads the respective restart data for the gust module. 448 458 !------------------------------------------------------------------------------! 449 SUBROUTINE gust_read_restart_data 450 451 452 IMPLICIT NONE 453 454 455 END SUBROUTINE gust_read_restart_data 459 SUBROUTINE gust_rrd_global( found ) 460 461 462 USE control_parameters, & 463 ONLY: length, restart_string 464 465 466 IMPLICIT NONE 467 468 LOGICAL, INTENT(OUT) :: found 469 470 471 found = .TRUE. 472 473 474 SELECT CASE ( restart_string(1:length) ) 475 476 CASE ( 'global_paramter' ) 477 ! READ ( 13 ) global_parameter 478 479 CASE DEFAULT 480 481 found = .FALSE. 482 483 END SELECT 484 485 486 END SUBROUTINE gust_rrd_global 487 488 489 !------------------------------------------------------------------------------! 490 ! Description: 491 ! ------------ 492 !> This routine reads the respective restart data for the gust module. 493 !------------------------------------------------------------------------------! 494 SUBROUTINE gust_rrd_local( i, k, nxlf, nxlc, nxl_on_file, nxrf, nxrc, & 495 nxr_on_file, nynf, nync, nyn_on_file, nysf, & 496 nysc, nys_on_file, tmp_2d, tmp_3d, found ) 497 498 499 USE control_parameters 500 501 USE indices 502 503 USE kinds 504 505 USE pegrid 506 507 508 IMPLICIT NONE 509 510 INTEGER(iwp) :: i !< 511 INTEGER(iwp) :: k !< 512 INTEGER(iwp) :: nxlc !< 513 INTEGER(iwp) :: nxlf !< 514 INTEGER(iwp) :: nxl_on_file !< 515 INTEGER(iwp) :: nxrc !< 516 INTEGER(iwp) :: nxrf !< 517 INTEGER(iwp) :: nxr_on_file !< 518 INTEGER(iwp) :: nync !< 519 INTEGER(iwp) :: nynf !< 520 INTEGER(iwp) :: nyn_on_file !< 521 INTEGER(iwp) :: nysc !< 522 INTEGER(iwp) :: nysf !< 523 INTEGER(iwp) :: nys_on_file !< 524 525 LOGICAL, INTENT(OUT) :: found 526 527 REAL(wp), DIMENSION(nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_2d !< 528 REAL(wp), DIMENSION(nzb:nzt+1,nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_3d !< 529 530 ! 531 !-- Here the reading of user-defined restart data follows: 532 !-- Sample for user-defined output 533 534 535 found = .TRUE. 536 537 538 SELECT CASE ( restart_string(1:length) ) 539 540 CASE ( 'u2_av' ) 541 ! IF ( .NOT. ALLOCATED( u2_av ) ) THEN 542 ! ALLOCATE( u2_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ) 543 ! ENDIF 544 ! IF ( k == 1 ) READ ( 13 ) tmp_3d 545 ! u2_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = & 546 ! tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp) 547 ! 548 CASE DEFAULT 549 550 found = .FALSE. 551 552 END SELECT 553 554 555 END SUBROUTINE gust_rrd_local 456 556 457 557 … … 461 561 !> This routine writes the respective restart data for the gust module. 462 562 !------------------------------------------------------------------------------! 463 SUBROUTINE gust_write_restart_data 464 465 466 IMPLICIT NONE 467 468 469 END SUBROUTINE gust_write_restart_data 563 SUBROUTINE gust_wrd_global 564 565 566 IMPLICIT NONE 567 568 ! needs preceeding allocation if array 569 ! CALL wrd_write_string( 'global_parameter' ) 570 ! WRITE ( 14 ) global_parameter 571 572 ! IF ( ALLOCATED( inflow_damping_factor ) ) THEN 573 ! CALL wrd_write_string( 'inflow_damping_factor' ) 574 ! WRITE ( 14 ) inflow_damping_factor 575 ! ENDIF 576 577 578 END SUBROUTINE gust_wrd_global 579 580 581 !------------------------------------------------------------------------------! 582 ! Description: 583 ! ------------ 584 !> This routine writes the respective restart data for the gust module. 585 !------------------------------------------------------------------------------! 586 SUBROUTINE gust_wrd_local 587 588 589 IMPLICIT NONE 590 591 592 ! needs preceeding allocation because sould be array 593 ! IF ( ALLOCATED( u2_av ) ) THEN 594 ! CALL wrd_write_string( 'u2_av' ) 595 ! WRITE ( 14 ) u2_av 596 ! ENDIF 597 598 599 END SUBROUTINE gust_wrd_local 470 600 471 601 -
palm/trunk/SOURCE/read_restart_data_mod.f90
r2894 r2912 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Added gust module interface calls 28 ! 29 ! 2894 2018-03-15 09:17:58Z Giersch 27 30 ! Initial revision 28 31 ! … … 81 84 USE grid_variables, & 82 85 ONLY: dx, dy 86 87 USE gust_mod, & 88 ONLY : gust_rrd_global 83 89 84 90 USE indices, & … … 726 732 IF ( .NOT. found ) CALL stg_rrd_global ( found ) 727 733 734 IF ( .NOT. found ) CALL gust_rrd_global( found ) 735 728 736 IF ( .NOT. found ) CALL user_rrd_global( found ) 729 737 … … 1005 1013 USE cpulog, & 1006 1014 ONLY: cpu_log, log_point_s 1015 1016 USE gust_mod, & 1017 ONLY : gust_rrd_local 1007 1018 1008 1019 USE indices, & … … 1981 1992 1982 1993 ! 1994 !-- Read gust module restart data 1995 IF ( .NOT. found ) CALL gust_rrd_local( i, k, nxlf, & 1996 nxlc, nxl_on_file, nxrf, nxrc, & 1997 nxr_on_file, nynf, nync, & 1998 nyn_on_file, nysf, nysc, & 1999 nys_on_file, tmp_2d, tmp_3d, found ) 2000 2001 ! 1983 2002 !-- Read user-defined restart data 1984 2003 IF ( .NOT. found ) CALL user_rrd_local( i, k, nxlf, & -
palm/trunk/SOURCE/write_restart_data_mod.f90
r2894 r2912 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Added gust module interface calls 28 ! 29 ! 2894 2018-03-15 09:17:58Z Giersch 27 30 ! Initial revision 28 31 ! … … 80 83 ONLY: dx, dy 81 84 85 USE gust_mod, & 86 ONLY : gust_module_enabled, gust_wrd_global 87 82 88 USE indices, & 83 89 ONLY: nz, nx, ny … … 884 890 !-- If required, write restart data for turbulence generator. 885 891 IF ( syn_turb_gen ) CALL stg_wrd_global 892 ! 893 !-- If required, write restart data for gust module. 894 IF ( gust_module_enabled ) CALL gust_wrd_global 886 895 887 896 ! … … 913 922 USE chemistry_model_mod, & 914 923 ONLY: chem_wrd_local 924 925 USE gust_mod, & 926 ONLY : gust_module_enabled, gust_wrd_local 915 927 916 928 USE indices, & … … 1369 1381 1370 1382 ! 1383 !-- If required, write restart data for gust module. 1384 IF ( gust_module_enabled ) THEN 1385 CALL gust_wrd_local 1386 ENDIF 1387 1388 ! 1371 1389 !-- Write user-related restart data. 1372 1390 CALL user_wrd_local
Note: See TracChangeset
for help on using the changeset viewer.