Changeset 964 for palm/trunk/SOURCE/modules.f90
- Timestamp:
- Jul 26, 2012 9:14:24 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/modules.f90
r952 r964 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! -cross_linecolors, cross_linestyles, cross_normalized_x, cross_normx_factor, 7 ! cross_normalized_y, cross_normy_factor, cross_pnc_local, 8 ! cross_profile_numbers, cross_profile_number_counter, cross_uxmax, 9 ! cross_uxmax_computed, cross_uxmax_normalized, 10 ! cross_uxmax_normalized_computed, cross_uxmin, cross_uxmin_computed, 11 ! cross_uxmin_normalized, cross_uxmin_normalized_computed, cross_uymax, 12 ! cross_uymin, cross_xtext, dopr_crossindex, dopr_label, linecolors, linestyles, 13 ! nz_do1d, profil_output, z_max_do1d, z_max_do1d_normalized 7 14 ! 8 15 ! Former revisions: … … 539 546 netcdf_data_format = 2, ngsrb = 2, nsor = 20, & 540 547 nsor_ini = 100, n_sor, normalizing_region = 0, & 541 nz_do 1d, nz_do3d = -9999, outflow_damping_width = -1, &548 nz_do3d = -9999, outflow_damping_width = -1, & 542 549 pch_index = 0, prt_time_count = 0, recycling_plane, runnr = 0, & 543 550 skip_do_avs = 0, subdomain_size, terminate_coupled = 0, & … … 601 608 outflow_s = .FALSE., passive_scalar = .FALSE., & 602 609 plant_canopy = .FALSE., prandtl_layer = .TRUE., & 603 precipitation = .FALSE., profil_output = .FALSE.,&610 precipitation = .FALSE., & 604 611 radiation = .FALSE., random_heatflux = .FALSE., & 605 612 run_control_header = .FALSE., run_coupled = .TRUE., & … … 690 697 ups_limit_v = 0.0, ups_limit_w = 0.0, vg_surface = 0.0, & 691 698 v_bulk = 0.0, v_gtrans = 0.0, wall_adjustment_factor = 1.8, & 692 z_max_do 1d = -1.0, z_max_do1d_normalized = -1.0, z_max_do2d = -1.0699 z_max_do2d = -1.0 693 700 694 701 REAL :: do2d_xy_last_time(0:1) = -1.0, do2d_xz_last_time(0:1) = -1.0, & … … 1373 1380 INTEGER, PARAMETER :: crmax = 100 1374 1381 1375 CHARACTER (LEN=10), DIMENSION(100) :: dopr_label = ' '1376 1377 CHARACTER (LEN=10), DIMENSION(crmax) :: cross_normalized_x = ' ', &1378 cross_normalized_y = ' '1379 1380 1382 CHARACTER (LEN=20), DIMENSION(20) :: cross_ts_profiles = & 1381 1383 (/ ' E E* ', ' dt ', & … … 1387 1389 ( ' ', i9 = 1, 9 ) /) 1388 1390 1389 CHARACTER (LEN=40), DIMENSION(crmax) :: cross_xtext = &1390 (/ 'windspeed in ms>->1 ', &1391 'pot. temperature in K ', &1392 'heat flux in K ms>->1 ', &1393 'momentum flux in m>2s>2 ', &1394 'eddy diffusivity in m>2s>->1', &1395 'mixing length in m ', &1396 ( ' ', i9 = 1, 94 ) /)1397 1398 1391 CHARACTER (LEN=100), DIMENSION(crmax) :: cross_profiles = & 1399 1392 (/ ' u v ', & … … 1407 1400 INTEGER :: profile_columns = 2, profile_rows = 3, profile_number = 0 1408 1401 1409 INTEGER :: cross_linecolors(100,crmax) = 1, & 1410 cross_linestyles(100,crmax) = 0, & 1411 cross_profile_numbers(100,crmax) = 0, & 1412 cross_pnc_local(crmax), cross_profile_number_count(crmax) = 0, & 1413 cross_ts_numbers(crmax,crmax) = 0, & 1414 cross_ts_number_count(crmax) = 0, dopr_crossindex(100) = 0, & 1402 INTEGER :: cross_ts_numbers(crmax,crmax) = 0, & 1403 cross_ts_number_count(crmax) = 0, & 1415 1404 dopr_index(300) = 0, dopr_initial_index(300) = 0, & 1416 dots_crossindex(100) = 0, dots_index(100) = 0, & 1417 linecolors(10) = (/ 2, 3, 4, 5, 7, 8, 12, 15, 16, 23 /), & 1418 linestyles(11) = (/ 0, 7, 3, 10, 4, 1, 9, 2, 5, 8, 6 /) 1405 dots_crossindex(100) = 0, dots_index(100) = 0 1419 1406 1420 1407 1421 REAL :: cross_normx_factor(100,crmax) = 1.0, & 1422 cross_normy_factor(100,crmax) = 1.0, & 1423 cross_ts_uymax(20) = & 1408 REAL :: cross_ts_uymax(20) = & 1424 1409 (/ 999.999, 999.999, 999.999, 999.999, 999.999, & 1425 1410 999.999, 999.999, 999.999, 999.999, 999.999, & … … 1432 1417 999.999, 999.999, 999.999, 999.999, 999.999, & 1433 1418 999.999, 999.999, 999.999, 999.999, 999.999 /),& 1434 cross_ts_uymin_computed(20) = 999.999, & 1435 cross_uxmax(crmax) = 0.0, cross_uxmax_computed(crmax) = -1.0, & 1436 cross_uxmax_normalized(crmax) = 0.0, & 1437 cross_uxmax_normalized_computed(crmax) = -1.0, & 1438 cross_uxmin(crmax) = 0.0, cross_uxmin_computed(crmax) = 1.0, & 1439 cross_uxmin_normalized(crmax) = 0.0, & 1440 cross_uxmin_normalized_computed(crmax) = 1.0, & 1441 cross_uymax(crmax), cross_uymin(crmax) 1419 cross_ts_uymin_computed(20) = 999.999 1442 1420 1443 1421 SAVE
Note: See TracChangeset
for help on using the changeset viewer.