Changeset 3637 for palm/trunk/SOURCE/read_restart_data_mod.f90
- Timestamp:
- Dec 20, 2018 1:51:36 AM (5 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/read_restart_data_mod.f90 (modified) (11 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/read_restart_data_mod.f90
r3589 r3637 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Implementation of the PALM module interface 28 ! 29 ! 3589 2018-11-30 15:09:51Z suehring 27 30 ! Move the control parameter "salsa" from salsa_mod to control_parameters 28 31 ! (M. Kurppa) … … 88 91 89 92 90 USE control_parameters 93 USE arrays_3d, & 94 ONLY: inflow_damping_factor, mean_inflow_profiles, pt_init, & 95 q_init, ref_state, sa_init, s_init, u_init, ug, v_init, vg, & 96 e, kh, km, p, pt, q, ql, s, u, u_m_l, u_m_n, u_m_r, u_m_s, & 97 v, v_m_l, v_m_n, v_m_r, v_m_s, vpt, w, w_m_l, w_m_n, w_m_r, w_m_s 98 99 USE averaging 91 100 92 101 USE chem_modules, & 93 102 ONLY: max_pr_cs 103 104 USE control_parameters 105 106 USE cpulog, & 107 ONLY: cpu_log, log_point_s 108 109 USE date_and_time_mod, & 110 ONLY: day_of_year_init, time_utc_init 111 112 USE grid_variables, & 113 ONLY: dx, dy 114 115 USE indices, & 116 ONLY: nbgp, nx, nxl, nxlg, nxr, nxrg, nx_on_file, ny, nys, nysg, nyn, & 117 nyng, ny_on_file, nz, nzb, nzt 118 119 USE kinds 120 121 USE model_1d_mod, & 122 ONLY: damp_level_1d, dt_pr_1d, dt_run_control_1d, end_time_1d 123 124 USE module_interface, & 125 ONLY: module_interface_rrd_global, & 126 module_interface_rrd_local 127 128 USE netcdf_interface, & 129 ONLY: netcdf_precision, output_for_t0 130 131 USE particle_attributes, & 132 ONLY: curvature_solution_effects, iran_part 133 134 USE pegrid 135 136 USE radiation_model_mod, & 137 ONLY: time_radiation 138 139 USE random_function_mod, & 140 ONLY: random_iv, random_iy 141 142 USE random_generator_parallel, & 143 ONLY: id_random_array, seq_random_array 144 145 USE spectra_mod, & 146 ONLY: average_count_sp, spectrum_x, spectrum_y 147 148 USE surface_mod, & 149 ONLY : surface_rrd_local 150 151 USE statistics, & 152 ONLY: statistic_regions, hom, hom_sum, pr_palm, u_max, u_max_ijk, & 153 v_max, v_max_ijk, w_max, w_max_ijk, z_i 154 155 USE vertical_nesting_mod, & 156 ONLY: vnest_init 94 157 95 158 … … 127 190 SUBROUTINE rrd_global 128 191 129 130 USE arrays_3d, &131 ONLY: inflow_damping_factor, mean_inflow_profiles, pt_init, &132 q_init, ref_state, sa_init, s_init, u_init, ug, v_init, vg133 134 USE bulk_cloud_model_mod, &135 ONLY: bcm_rrd_global136 137 USE date_and_time_mod, &138 ONLY: day_of_year_init, time_utc_init139 140 USE flight_mod, &141 ONLY: flight_rrd_global142 143 USE grid_variables, &144 ONLY: dx, dy145 146 USE gust_mod, &147 ONLY : gust_rrd_global148 149 USE indices, &150 ONLY: nz, nx, nx_on_file, ny, ny_on_file151 152 USE model_1d_mod, &153 ONLY: damp_level_1d, dt_pr_1d, dt_run_control_1d, end_time_1d154 155 USE netcdf_interface, &156 ONLY: netcdf_precision, output_for_t0157 158 USE ocean_mod, &159 ONLY: ocean_rrd_global160 161 USE particle_attributes, &162 ONLY: curvature_solution_effects163 164 USE pegrid165 166 USE radiation_model_mod, &167 ONLY: time_radiation168 169 USE spectra_mod, &170 ONLY: average_count_sp, spectrum_x, spectrum_y171 172 USE statistics, &173 ONLY: statistic_regions, hom, hom_sum, pr_palm, u_max, u_max_ijk, &174 v_max, v_max_ijk, w_max, w_max_ijk, z_i175 176 USE synthetic_turbulence_generator_mod, &177 ONLY: stg_rrd_global178 179 USE user_read_restart_data_mod, &180 ONLY: user_rrd_global181 182 USE vertical_nesting_mod, &183 ONLY: vnest_init184 185 USE wind_turbine_model_mod, &186 ONLY: wtm_rrd_global187 188 189 IMPLICIT NONE190 192 191 193 CHARACTER (LEN=10) :: binary_version_global, version_on_file … … 772 774 ! 773 775 !-- Read global variables from of other modules 774 IF ( .NOT. found ) CALL bcm_rrd_global( found ) 775 IF ( .NOT. found ) CALL flight_rrd_global( found ) 776 IF ( .NOT. found ) CALL gust_rrd_global( found ) 777 IF ( .NOT. found ) CALL ocean_rrd_global( found ) 778 IF ( .NOT. found ) CALL stg_rrd_global ( found ) 779 IF ( .NOT. found ) CALL wtm_rrd_global( found ) 780 ! 781 !-- Read user-defined global variables 782 IF ( .NOT. found ) CALL user_rrd_global( found ) 776 CALL module_interface_rrd_global( restart_string(1:length), found ) 783 777 784 778 IF ( .NOT. found ) THEN … … 818 812 SUBROUTINE rrd_read_parts_of_global 819 813 820 821 USE arrays_3d, &822 ONLY: ref_state823 824 USE indices, &825 ONLY: nz, nx_on_file, ny_on_file826 827 USE kinds828 829 USE pegrid830 831 USE statistics, &832 ONLY: statistic_regions, hom, hom_sum, pr_palm833 834 IMPLICIT NONE835 814 836 815 CHARACTER (LEN=10) :: version_on_file … … 959 938 WRITE( message_string, * ) 'inflow profiles not ', & 960 939 'temporally averaged. &Averaging will be ', & 961 'done now using', average_count_pr, & 940 'done now using', average_count_pr, & 962 941 ' samples.' 963 942 CALL message( 'rrd_read_parts_of_global', 'PA0309', & … … 1043 1022 !> (binary format). 1044 1023 !------------------------------------------------------------------------------! 1045 SUBROUTINE rrd_local 1046 1047 1048 USE arrays_3d, & 1049 ONLY: e, kh, km, p, pt, q, ql, s, u, u_m_l, u_m_n, u_m_r, u_m_s, & 1050 v, v_m_l, v_m_n, v_m_r, v_m_s, vpt, w, w_m_l, w_m_n, w_m_r, w_m_s 1051 1052 USE bulk_cloud_model_mod, & 1053 ONLY : bcm_rrd_local 1054 1055 USE averaging 1056 1057 USE chemistry_model_mod, & 1058 ONLY: chem_rrd_local 1059 1060 USE cpulog, & 1061 ONLY: cpu_log, log_point_s 1062 1063 USE gust_mod, & 1064 ONLY : gust_rrd_local 1065 1066 USE indices, & 1067 ONLY: nbgp, nx, nxl, nxlg, nxr, nxrg, nx_on_file, ny, nys, nysg, nyn, & 1068 nyng, ny_on_file, nzb, nzt 1069 1070 USE kinds 1071 1072 USE land_surface_model_mod, & 1073 ONLY: lsm_rrd_local 1074 1075 USE ocean_mod, & 1076 ONLY: ocean_rrd_local 1077 1078 USE particle_attributes, & 1079 ONLY: iran_part 1080 1081 USE pegrid 1082 1083 USE radiation_model_mod, & 1084 ONLY: radiation_rrd_local 1085 1086 USE random_function_mod, & 1087 ONLY: random_iv, random_iy 1088 1089 USE random_generator_parallel, & 1090 ONLY: id_random_array, seq_random_array 1091 1092 USE salsa_mod, & 1093 ONLY: salsa_rrd_local 1094 1095 USE surface_mod, & 1096 ONLY : surface_rrd_local 1097 1098 USE urban_surface_mod, & 1099 ONLY: usm_rrd_local 1100 1101 USE user_read_restart_data_mod, & 1102 ONLY: user_rrd_local 1103 1104 1105 IMPLICIT NONE 1024 SUBROUTINE rrd_local 1025 1106 1026 1107 1027 CHARACTER (LEN=7) :: myid_char_save … … 1866 1786 1867 1787 ! 1868 !-- Read restart data of other modules 1869 IF ( .NOT. found ) CALL bcm_rrd_local( i, k, nxlf, & 1870 nxlc, nxl_on_file, nxrf, nxrc, & 1871 nxr_on_file, nynf, nync, & 1872 nyn_on_file, nysf, nysc, & 1873 nys_on_file, tmp_2d, tmp_3d, found ) 1874 1875 IF ( .NOT. found ) CALL chem_rrd_local( i, k, nxlf, & 1876 nxlc, nxl_on_file, nxrf, nxrc, & 1877 nxr_on_file, nynf, nync, & 1878 nyn_on_file, nysf, nysc, & 1879 nys_on_file, tmp_3d, found ) 1880 1881 IF ( .NOT. found ) CALL gust_rrd_local( i, k, nxlf, & 1882 nxlc, nxl_on_file, nxrf, nxrc, & 1883 nxr_on_file, nynf, nync, & 1884 nyn_on_file, nysf, nysc, & 1885 nys_on_file, tmp_2d, tmp_3d, found ) 1886 1887 IF ( .NOT. found ) CALL lsm_rrd_local( i, k, nxlf, & 1888 nxlc, nxl_on_file, nxrf, nxrc, & 1889 nxr_on_file, nynf, nync, & 1890 nyn_on_file, nysf, nysc, & 1891 nys_on_file, tmp_2d, found ) 1892 1893 IF ( .NOT. found ) CALL ocean_rrd_local( i, k, nxlf, & 1894 nxlc, nxl_on_file, nxrf, nxrc, & 1895 nxr_on_file, nynf, nync, & 1896 nyn_on_file, nysf, nysc, & 1897 nys_on_file, tmp_2d, tmp_3d, found ) 1898 1899 IF ( .NOT. found ) CALL radiation_rrd_local( i, k, nxlf, & 1900 nxlc, nxl_on_file, nxrf, nxrc, & 1901 nxr_on_file, nynf, nync, & 1902 nyn_on_file, nysf, nysc, & 1903 nys_on_file, tmp_2d, tmp_3d, found ) 1904 1788 !-- Read restart data of surfaces 1905 1789 IF ( .NOT. found ) CALL surface_rrd_local( i, k, nxlf, & 1906 nxlc, nxl_on_file, nxrf, nxrc, &1907 nxr_on_file, nynf, nync, &1908 nyn_on_file, nysf, nysc, &1909 nys_on_file, found )1910 1911 IF ( .NOT. found ) CALL usm_rrd_local( i, k, nxlf, &1912 1790 nxlc, nxl_on_file, nxrf, nxrc, & 1913 1791 nxr_on_file, nynf, nync, & … … 1915 1793 nys_on_file, found ) 1916 1794 1917 IF ( .NOT. found .AND. salsa ) CALL salsa_rrd_local( i, & 1918 k, nxlf, nxlc, nxl_on_file, nxrf, & 1919 nxrc, nxr_on_file, nynf, nync, & 1920 nyn_on_file, nysf, nysc, & 1921 nys_on_file, tmp_3d, found ) 1922 1923 ! 1924 !-- Read user-defined restart data 1925 IF ( .NOT. found ) CALL user_rrd_local( i, k, nxlf, & 1926 nxlc, nxl_on_file, nxrf, nxrc, & 1927 nxr_on_file, nynf, nync, & 1928 nyn_on_file, nysf, nysc, & 1929 nys_on_file, tmp_3d, found ) 1795 ! 1796 !-- Read restart data of other modules 1797 IF ( .NOT. found ) CALL module_interface_rrd_local( & 1798 restart_string(1:length), i, k, & 1799 nxlf, nxlc, nxl_on_file, & 1800 nxrf, nxrc, nxr_on_file, & 1801 nynf, nync, nyn_on_file, & 1802 nysf, nysc, nys_on_file, & 1803 tmp_2d, tmp_3d, found ) 1930 1804 1931 1805 … … 1994 1868 1995 1869 1996 IMPLICIT NONE1997 1998 1870 CHARACTER (LEN=1) :: cdum 1999 1871 … … 2005 1877 2006 1878 READ ( 13 ) cdum 2007 READ ( 13 ) length 1879 READ ( 13 ) length 2008 1880 READ ( 13 ) restart_string(1:length) 2009 1881
Note: See TracChangeset
for help on using the changeset viewer.
