Changeset 3241 for palm/trunk/SOURCE/netcdf_data_input_mod.f90
- Timestamp:
- Sep 12, 2018 3:02:00 PM (6 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (17 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf_data_input_mod.f90
r3215 r3241 25 25 ! ----------------- 26 26 ! $Id$ 27 ! unused variables removed 28 ! 29 ! 3215 2018-08-29 09:58:59Z suehring 27 30 ! - Separate input of soil properties from input of atmospheric data. This 28 31 ! enables input of soil properties also in child domains without any … … 654 657 655 658 USE control_parameters, & 656 ONLY: land_surface, message_string, topo_no_distinct, urban_surface659 ONLY: topo_no_distinct 657 660 658 661 IMPLICIT NONE 659 660 LOGICAL :: check_nest !< flag indicating whether a check passed or not661 662 662 663 #if defined ( __netcdf ) … … 688 689 689 690 INTEGER(iwp) :: id_mod !< NetCDF id of input file 690 INTEGER(iwp) :: ii !< running index for IO blocks691 691 692 692 IF ( .NOT. input_pids_static ) RETURN … … 757 757 758 758 USE control_parameters, & 759 ONLY: bc_lr_cyc, bc_ns_cyc, land_surface, message_string,&760 plant_canopy,urban_surface759 ONLY: bc_lr_cyc, bc_ns_cyc, land_surface, plant_canopy, & 760 urban_surface 761 761 762 762 USE indices, & … … 1788 1788 1789 1789 USE indices, & 1790 ONLY: nbgp, nx, nxl, nxr, ny, nyn, nys, nzb , nzt1790 ONLY: nbgp, nx, nxl, nxr, ny, nyn, nys, nzb 1791 1791 1792 1792 … … 1800 1800 INTEGER(iwp) :: id_topo !< NetCDF id of topograhy input file 1801 1801 INTEGER(iwp) :: j !< running index along y-direction 1802 INTEGER(iwp) :: k !< running index along z-direction1803 1802 INTEGER(iwp) :: num_vars !< number of variables in netcdf input file 1804 1803 INTEGER(iwp) :: skip_n_rows !< counting variable to skip rows while reading topography file … … 2079 2078 2080 2079 USE control_parameters, & 2081 ONLY: bc_lr_cyc, bc_ns_cyc, humidity, land_surface, message_string,& 2082 nesting_offline, neutral, surface_pressure 2080 ONLY: bc_lr_cyc, bc_ns_cyc, humidity, message_string, neutral 2083 2081 2084 2082 USE indices, & … … 2091 2089 LOGICAL :: dynamic_3d = .TRUE. !< flag indicating that 3D data is read from dynamic file 2092 2090 2093 INTEGER(iwp) :: i !< running index along x-direction2094 2091 INTEGER(iwp) :: id_dynamic !< NetCDF id of dynamic input file 2095 INTEGER(iwp) :: j !< running index along y-direction2096 INTEGER(iwp) :: k !< running index along z-direction2097 2092 INTEGER(iwp) :: num_vars !< number of variables in netcdf input file 2098 2093 … … 2554 2549 SUBROUTINE netcdf_data_input_init_lsm 2555 2550 2556 USE arrays_3d, &2557 ONLY: q, pt, u, v, w, zu, zw2558 2559 2551 USE control_parameters, & 2560 ONLY: bc_lr_cyc, bc_ns_cyc, humidity, land_surface, message_string,& 2561 nesting_offline, neutral, surface_pressure 2552 ONLY: message_string 2562 2553 2563 2554 USE indices, & 2564 ONLY: nx, nxl, nx lu, nxr, ny, nyn, nys, nysv, nzb, nz, nzt2555 ONLY: nx, nxl, nxr, ny, nyn, nys 2565 2556 2566 2557 IMPLICIT NONE … … 2699 2690 ONLY: bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r, & 2700 2691 bc_dirichlet_s, bc_lr_cyc, bc_ns_cyc, humidity, & 2701 message_string, neutral, nesting_offline, & 2702 time_since_reference_point 2692 neutral, nesting_offline, time_since_reference_point 2703 2693 2704 2694 USE indices, & … … 2707 2697 IMPLICIT NONE 2708 2698 2709 INTEGER(iwp) :: i !< running index along x-direction2710 2699 INTEGER(iwp) :: id_dynamic !< NetCDF id of dynamic input file 2711 INTEGER(iwp) :: j !< running index along y-direction2712 INTEGER(iwp) :: k !< running index along z-direction2713 2700 INTEGER(iwp) :: num_vars !< number of variables in netcdf input file 2714 2701 INTEGER(iwp) :: t !< running index time dimension 2715 2716 REAL(wp) :: dum !< dummy variable to skip columns while reading topography file2717 2702 2718 2703 nest_offl%from_file = MERGE( .TRUE., .FALSE., input_pids_dynamic ) … … 3562 3547 IMPLICIT NONE 3563 3548 3564 LOGICAL :: top !< flag indicating extrapolation at model top3565 3566 3549 INTEGER(iwp) :: k !< running index z-direction file 3567 3550 INTEGER(iwp) :: kk !< running index z-direction stretched model grid 3568 3551 INTEGER(iwp) :: kl !< lower index bound along z-direction 3569 3552 INTEGER(iwp) :: ku !< upper index bound along z-direction 3570 INTEGER(iwp) :: nz_file !< number of vertical levels on file3571 3572 3553 3573 3554 REAL(wp), DIMENSION(:) :: z_grid !< grid levels on numeric grid … … 3631 3612 IMPLICIT NONE 3632 3613 3633 INTEGER(iwp) :: i !< running index x-direction3634 INTEGER(iwp) :: j !< running index y-direction3635 3614 INTEGER(iwp) :: k !< running index z-direction file 3636 3615 INTEGER(iwp) :: kk !< running index z-direction stretched model grid … … 3690 3669 IMPLICIT NONE 3691 3670 3692 LOGICAL :: top !< flag indicating extrapolation at model top3693 3694 3671 INTEGER(iwp) :: i !< running index x- or y -direction 3695 3672 INTEGER(iwp) :: il !< lower index bound along x- or y-direction … … 3699 3676 INTEGER(iwp) :: kl !< lower index bound along z-direction 3700 3677 INTEGER(iwp) :: ku !< upper index bound along z-direction 3701 INTEGER(iwp) :: nz_file !< number of vertical levels on file3702 3703 3678 3704 3679 REAL(wp), DIMENSION(:) :: z_grid !< grid levels on numeric grid … … 3771 3746 INTEGER(iwp) :: kl !< lower index bound along z-direction 3772 3747 INTEGER(iwp) :: ku !< upper index bound along z-direction 3773 INTEGER(iwp) :: nz_file !< number of vertical levels on file3774 3748 3775 3749 REAL(wp), DIMENSION(:) :: z_grid !< grid levels on numeric grid … … 3887 3861 CHARACTER (LEN=*), INTENT(IN) :: filename !< filename 3888 3862 INTEGER(iwp), INTENT(INOUT) :: id !< file id 3889 LOGICAL :: file_open = .FALSE.3890 3863 3891 3864 #if defined( __netcdf4_parallel )
Note: See TracChangeset
for help on using the changeset viewer.
