Changeset 3294 for palm/trunk/SOURCE/write_restart_data_mod.f90
- Timestamp:
- Oct 1, 2018 2:37:10 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/write_restart_data_mod.f90
r3274 r3294 25 25 ! ----------------- 26 26 ! $Id$ 27 ! changes concerning modularization of ocean option 28 ! 29 ! 3274 2018-09-24 15:42:55Z knoop 27 30 ! Modularization of all bulk cloud physics code components 28 31 ! … … 95 98 USE arrays_3d, & 96 99 ONLY: inflow_damping_factor, mean_inflow_profiles, pt_init, & 97 q_init, ref_state, s_init, sa_init, u_init, ug, v_init, vg 100 q_init, ref_state, s_init, u_init, ug, v_init, vg 101 102 USE bulk_cloud_model_mod, & 103 ONLY: bulk_cloud_model, bcm_wrd_global 98 104 99 105 USE date_and_time_mod, & … … 112 118 ONLY: nx, ny, nz 113 119 114 USE bulk_cloud_model_mod, &115 ONLY: bulk_cloud_model, bcm_wrd_global116 117 120 USE model_1d_mod, & 118 121 ONLY: damp_level_1d, dt_pr_1d, dt_run_control_1d, end_time_1d … … 120 123 USE netcdf_interface, & 121 124 ONLY: netcdf_precision, output_for_t0 125 126 USE ocean_mod, & 127 ONLY: ocean_wrd_global 122 128 123 129 USE particle_attributes, & … … 238 244 WRITE ( 14 ) bc_s_t 239 245 240 CALL wrd_write_string( 'bc_sa_t' )241 WRITE ( 14 ) bc_sa_t242 243 246 CALL wrd_write_string( 'bc_uv_b' ) 244 247 WRITE ( 14 ) bc_uv_b … … 246 249 CALL wrd_write_string( 'bc_uv_t' ) 247 250 WRITE ( 14 ) bc_uv_t 248 249 CALL wrd_write_string( 'bottom_salinityflux' )250 WRITE ( 14 ) bottom_salinityflux251 251 252 252 CALL wrd_write_string( 'building_height' ) … … 497 497 WRITE ( 14 ) ny 498 498 499 CALL wrd_write_string( 'ocean ' )500 WRITE ( 14 ) ocean 499 CALL wrd_write_string( 'ocean_mode' ) 500 WRITE ( 14 ) ocean_mode 501 501 502 502 CALL wrd_write_string( 'old_dt' ) … … 622 622 CALL wrd_write_string( 's_vertical_gradient_level_ind' ) 623 623 WRITE ( 14 ) s_vertical_gradient_level_ind 624 625 CALL wrd_write_string( 'sa_init' )626 WRITE ( 14 ) sa_init627 628 CALL wrd_write_string( 'sa_surface' )629 WRITE ( 14 ) sa_surface630 631 CALL wrd_write_string( 'sa_vertical_gradient' )632 WRITE ( 14 ) sa_vertical_gradient633 634 CALL wrd_write_string( 'sa_vertical_gradient_level' )635 WRITE ( 14 ) sa_vertical_gradient_level636 624 637 625 CALL wrd_write_string( 'scalar_advec' ) … … 738 726 WRITE ( 14 ) top_momentumflux_v 739 727 740 CALL wrd_write_string( 'top_salinityflux' )741 WRITE ( 14 ) top_salinityflux742 743 728 CALL wrd_write_string( 'top_scalarflux' ) 744 729 WRITE ( 14 ) top_scalarflux … … 876 861 WRITE ( 14 ) wall_humidityflux 877 862 878 CALL wrd_write_string( 'wall_salinityflux' )879 WRITE ( 14 ) wall_salinityflux880 881 863 CALL wrd_write_string( 'wall_scalarflux' ) 882 864 WRITE ( 14 ) wall_scalarflux … … 897 879 WRITE ( 14 ) z_i 898 880 899 900 ! 901 !-- The order of the calls can be different as in read_restart_data_mod where 902 !-- the restart data will be read 903 904 ! 905 !-- If required, write restart data for gust module. 906 IF ( bulk_cloud_model ) CALL bcm_wrd_global 907 ! 908 !-- If required, write restart data for wind turbine model. 909 IF ( wind_turbine ) CALL wtm_wrd_global 910 911 ! 912 !-- If required, write restart data for virtual measurements. 913 IF ( virtual_flight ) CALL flight_wrd_global 914 915 ! 916 !-- If required, write restart data for turbulence generator. 917 IF ( syn_turb_gen ) CALL stg_wrd_global 918 919 ! 920 !-- If required, write restart data for gust module. 881 ! 882 !-- Write restart data of the other modules 883 !-- The order of the calls can be different as in read_restart_data_mod where 884 !-- the restart data will be read 885 IF ( bulk_cloud_model ) CALL bcm_wrd_global 886 IF ( virtual_flight ) CALL flight_wrd_global 921 887 IF ( gust_module_enabled ) CALL gust_wrd_global 922 923 ! 924 !-- Write restart data for user data. 888 IF ( ocean_mode ) CALL ocean_wrd_global 889 IF ( syn_turb_gen ) CALL stg_wrd_global 890 IF ( wind_turbine ) CALL wtm_wrd_global 891 ! 892 !-- Write restart data of the user-interface 925 893 CALL user_wrd_global 926 894 … … 940 908 941 909 USE arrays_3d, & 942 ONLY: e, kh, km, p, pt, q, ql, s, sa, u, u_m_l, u_m_n, u_m_r,&910 ONLY: e, kh, km, p, pt, q, ql, s, u, u_m_l, u_m_n, u_m_r, & 943 911 u_m_s, v, v_m_l, v_m_n, v_m_r, v_m_s, vpt, w, w_m_l, w_m_n, & 944 912 w_m_r, w_m_s … … 960 928 USE land_surface_model_mod, & 961 929 ONLY: lsm_wrd_local 930 931 USE ocean_mod, & 932 ONLY: ocean_wrd_local 962 933 963 934 USE particle_attributes, & … … 1112 1083 ENDIF 1113 1084 1114 IF ( ocean ) THEN1115 1116 IF ( ALLOCATED( rho_ocean_av ) ) THEN1117 CALL wrd_write_string( 'rho_ocean_av' )1118 WRITE ( 14 ) rho_ocean_av1119 ENDIF1120 1121 CALL wrd_write_string( 'sa' )1122 WRITE ( 14 ) sa1123 1124 IF ( ALLOCATED( sa_av ) ) THEN1125 CALL wrd_write_string( 'sa_av' )1126 WRITE ( 14 ) sa_av1127 ENDIF1128 1129 ENDIF1130 1131 1085 IF ( ALLOCATED( ql_c_av ) ) THEN 1132 1086 CALL wrd_write_string( 'ql_c_av' ) … … 1310 1264 1311 1265 ! 1312 !-- If required, write restart data for microphysics module. 1313 IF ( bulk_cloud_model ) THEN 1314 CALL bcm_wrd_local 1315 ENDIF 1316 1317 ! 1318 !-- Write surface-related restart data. 1266 !-- Write restart data of other modules 1267 IF ( bulk_cloud_model ) CALL bcm_wrd_local 1268 IF ( air_chemistry ) CALL chem_wrd_local 1269 IF ( gust_module_enabled ) CALL gust_wrd_local 1270 IF ( land_surface ) CALL lsm_wrd_local 1271 IF ( ocean_mode ) CALL ocean_wrd_local 1319 1272 CALL surface_wrd_local 1320 1321 ! 1322 !-- If required, write restart data for urban surface model. 1323 IF ( urban_surface ) THEN 1324 CALL usm_wrd_local 1325 ENDIF 1326 1327 ! 1328 !-- If required, write restart data for land surface model. 1329 IF ( land_surface ) THEN 1330 CALL lsm_wrd_local 1331 ENDIF 1332 1333 ! 1334 !-- If required, write restart data for radiation model. 1335 IF ( radiation ) THEN 1336 CALL radiation_wrd_local 1337 ENDIF 1338 1339 ! 1340 !-- If required, write restart data for chemistry model. 1341 IF ( air_chemistry ) THEN 1342 CALL chem_wrd_local 1343 ENDIF 1344 1345 ! 1346 !-- If required, write restart data for gust module. 1347 IF ( gust_module_enabled ) THEN 1348 CALL gust_wrd_local 1349 ENDIF 1350 1351 ! 1352 !-- Write user-related restart data. 1273 IF ( radiation ) CALL radiation_wrd_local 1274 IF ( urban_surface ) CALL usm_wrd_local 1275 1276 ! 1277 !-- Write user-defined restart data 1353 1278 CALL user_wrd_local 1354 1279 1355 !-- Write end label. 1280 ! 1281 !-- Write end label 1356 1282 CALL wrd_write_string( '*** end ***' ) 1357 1283
Note: See TracChangeset
for help on using the changeset viewer.