Changeset 553 for palm/trunk/SOURCE
- Timestamp:
- Sep 1, 2010 2:09:06 PM (14 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 5 edited
-
check_parameters.f90 (modified) (2 diffs)
-
init_masks.f90 (modified) (2 diffs)
-
modules.f90 (modified) (3 diffs)
-
parin.f90 (modified) (4 diffs)
-
user_parin.f90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r532 r553 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! masks is calculated and removed from inipar 7 7 ! 8 8 ! Former revisions: … … 2680 2680 ! 2681 2681 !-- Check mask conditions 2682 DO mid = 1, max_masks 2683 IF ( data_output_masks(mid,1) /= ' ') THEN 2684 masks = masks + 1 2685 ENDIF 2686 ENDDO 2687 2682 2688 IF ( masks < 0 .OR. masks > max_masks ) THEN 2683 2689 WRITE( message_string, * ) 'illegal value: masks must be >= 0 and ', & -
palm/trunk/SOURCE/init_masks.f90
r494 r553 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! parameters for masked output are replaced by arrays 7 7 ! 8 8 ! Former revisions: … … 60 60 CALL message( 'init_masks', 'PA9998', 1, 2, 0, 6, 0 ) 61 61 ENDIF 62 62 63 ! 63 64 !-- Store data output parameters for masked data output in few shared arrays 64 do_mask( 1,:) = data_output_mask_01; do_mask( 2,:) = data_output_mask_02 65 do_mask( 3,:) = data_output_mask_03; do_mask( 4,:) = data_output_mask_04 66 do_mask( 5,:) = data_output_mask_05; do_mask( 6,:) = data_output_mask_06 67 do_mask( 7,:) = data_output_mask_07; do_mask( 8,:) = data_output_mask_08 68 do_mask( 9,:) = data_output_mask_09; do_mask(10,:) = data_output_mask_10 69 do_mask(11,:) = data_output_mask_11; do_mask(12,:) = data_output_mask_12 70 do_mask(13,:) = data_output_mask_13; do_mask(14,:) = data_output_mask_14 71 do_mask(15,:) = data_output_mask_15; do_mask(16,:) = data_output_mask_16 72 do_mask(17,:) = data_output_mask_17; do_mask(18,:) = data_output_mask_18 73 do_mask(19,:) = data_output_mask_19; do_mask(20,:) = data_output_mask_20 74 do_mask_user( 1,:) = data_output_mask_user_01 75 do_mask_user( 2,:) = data_output_mask_user_02 76 do_mask_user( 3,:) = data_output_mask_user_03 77 do_mask_user( 4,:) = data_output_mask_user_04 78 do_mask_user( 5,:) = data_output_mask_user_05 79 do_mask_user( 6,:) = data_output_mask_user_06 80 do_mask_user( 7,:) = data_output_mask_user_07 81 do_mask_user( 8,:) = data_output_mask_user_08 82 do_mask_user( 9,:) = data_output_mask_user_09 83 do_mask_user(10,:) = data_output_mask_user_10 84 do_mask_user(11,:) = data_output_mask_user_11 85 do_mask_user(12,:) = data_output_mask_user_12 86 do_mask_user(13,:) = data_output_mask_user_13 87 do_mask_user(14,:) = data_output_mask_user_14 88 do_mask_user(15,:) = data_output_mask_user_15 89 do_mask_user(16,:) = data_output_mask_user_16 90 do_mask_user(17,:) = data_output_mask_user_17 91 do_mask_user(18,:) = data_output_mask_user_18 92 do_mask_user(19,:) = data_output_mask_user_19 93 do_mask_user(20,:) = data_output_mask_user_20 94 mask( 1,1,:) = mask_01_x; mask( 2,1,:) = mask_02_x 95 mask( 3,1,:) = mask_03_x; mask( 4,1,:) = mask_04_x 96 mask( 5,1,:) = mask_05_x; mask( 6,1,:) = mask_06_x 97 mask( 7,1,:) = mask_07_x; mask( 8,1,:) = mask_08_x 98 mask( 9,1,:) = mask_09_x; mask(10,1,:) = mask_10_x 99 mask(11,1,:) = mask_11_x; mask(12,1,:) = mask_12_x 100 mask(13,1,:) = mask_13_x; mask(14,1,:) = mask_14_x 101 mask(15,1,:) = mask_15_x; mask(16,1,:) = mask_16_x 102 mask(17,1,:) = mask_17_x; mask(18,1,:) = mask_18_x 103 mask(19,1,:) = mask_19_x; mask(20,1,:) = mask_20_x 104 mask( 1,2,:) = mask_01_y; mask( 2,2,:) = mask_02_y 105 mask( 3,2,:) = mask_03_y; mask( 4,2,:) = mask_04_y 106 mask( 5,2,:) = mask_05_y; mask( 6,2,:) = mask_06_y 107 mask( 7,2,:) = mask_07_y; mask( 8,2,:) = mask_08_y 108 mask( 9,2,:) = mask_09_y; mask(10,2,:) = mask_10_y 109 mask(11,2,:) = mask_11_y; mask(12,2,:) = mask_12_y 110 mask(13,2,:) = mask_13_y; mask(14,2,:) = mask_14_y 111 mask(15,2,:) = mask_15_y; mask(16,2,:) = mask_16_y 112 mask(17,2,:) = mask_17_y; mask(18,2,:) = mask_18_y 113 mask(19,2,:) = mask_19_y; mask(20,2,:) = mask_20_y 114 mask( 1,3,:) = mask_01_z; mask( 2,3,:) = mask_02_z 115 mask( 3,3,:) = mask_03_z; mask( 4,3,:) = mask_04_z 116 mask( 5,3,:) = mask_05_z; mask( 6,3,:) = mask_06_z 117 mask( 7,3,:) = mask_07_z; mask( 8,3,:) = mask_08_z 118 mask( 9,3,:) = mask_09_z; mask(10,3,:) = mask_10_z 119 mask(11,3,:) = mask_11_z; mask(12,3,:) = mask_12_z 120 mask(13,3,:) = mask_13_z; mask(14,3,:) = mask_14_z 121 mask(15,3,:) = mask_15_z; mask(16,3,:) = mask_16_z 122 mask(17,3,:) = mask_17_z; mask(18,3,:) = mask_18_z 123 mask(19,3,:) = mask_19_z; mask(20,3,:) = mask_20_z 124 mask_loop( 1,1,:) = mask_01_x_loop; mask_loop( 2,1,:) = mask_02_x_loop 125 mask_loop( 3,1,:) = mask_03_x_loop; mask_loop( 4,1,:) = mask_04_x_loop 126 mask_loop( 5,1,:) = mask_05_x_loop; mask_loop( 6,1,:) = mask_06_x_loop 127 mask_loop( 7,1,:) = mask_07_x_loop; mask_loop( 8,1,:) = mask_08_x_loop 128 mask_loop( 9,1,:) = mask_09_x_loop; mask_loop(10,1,:) = mask_10_x_loop 129 mask_loop(11,1,:) = mask_11_x_loop; mask_loop(12,1,:) = mask_12_x_loop 130 mask_loop(13,1,:) = mask_13_x_loop; mask_loop(14,1,:) = mask_14_x_loop 131 mask_loop(15,1,:) = mask_15_x_loop; mask_loop(16,1,:) = mask_16_x_loop 132 mask_loop(17,1,:) = mask_17_x_loop; mask_loop(18,1,:) = mask_18_x_loop 133 mask_loop(19,1,:) = mask_19_x_loop; mask_loop(20,1,:) = mask_20_x_loop 134 mask_loop( 1,2,:) = mask_01_y_loop; mask_loop( 2,2,:) = mask_02_y_loop 135 mask_loop( 3,2,:) = mask_03_y_loop; mask_loop( 4,2,:) = mask_04_y_loop 136 mask_loop( 5,2,:) = mask_05_y_loop; mask_loop( 6,2,:) = mask_06_y_loop 137 mask_loop( 7,2,:) = mask_07_y_loop; mask_loop( 8,2,:) = mask_08_y_loop 138 mask_loop( 9,2,:) = mask_09_y_loop; mask_loop(10,2,:) = mask_10_y_loop 139 mask_loop(11,2,:) = mask_11_y_loop; mask_loop(12,2,:) = mask_12_y_loop 140 mask_loop(13,2,:) = mask_13_y_loop; mask_loop(14,2,:) = mask_14_y_loop 141 mask_loop(15,2,:) = mask_15_y_loop; mask_loop(16,2,:) = mask_16_y_loop 142 mask_loop(17,2,:) = mask_17_y_loop; mask_loop(18,2,:) = mask_18_y_loop 143 mask_loop(19,2,:) = mask_19_y_loop; mask_loop(20,2,:) = mask_20_y_loop 144 mask_loop( 1,3,:) = mask_01_z_loop; mask_loop( 2,3,:) = mask_02_z_loop 145 mask_loop( 3,3,:) = mask_03_z_loop; mask_loop( 4,3,:) = mask_04_z_loop 146 mask_loop( 5,3,:) = mask_05_z_loop; mask_loop( 6,3,:) = mask_06_z_loop 147 mask_loop( 7,3,:) = mask_07_z_loop; mask_loop( 8,3,:) = mask_08_z_loop 148 mask_loop( 9,3,:) = mask_09_z_loop; mask_loop(10,3,:) = mask_10_z_loop 149 mask_loop(11,3,:) = mask_11_z_loop; mask_loop(12,3,:) = mask_12_z_loop 150 mask_loop(13,3,:) = mask_13_z_loop; mask_loop(14,3,:) = mask_14_z_loop 151 mask_loop(15,3,:) = mask_15_z_loop; mask_loop(16,3,:) = mask_16_z_loop 152 mask_loop(17,3,:) = mask_17_z_loop; mask_loop(18,3,:) = mask_18_z_loop 153 mask_loop(19,3,:) = mask_19_z_loop; mask_loop(20,3,:) = mask_20_z_loop 65 DO mid = 1, masks 66 do_mask (mid,:) = data_output_masks(mid,:) 67 do_mask_user(mid,:) = data_output_masks_user(mid,:) 68 mask (mid,1,:) = mask_x(mid,:) 69 mask (mid,2,:) = mask_y(mid,:) 70 mask (mid,3,:) = mask_z(mid,:) 71 mask_loop (mid,1,:) = mask_x_loop(mid,:) 72 mask_loop (mid,2,:) = mask_y_loop(mid,:) 73 mask_loop (mid,3,:) = mask_z_loop(mid,:) 74 ENDDO 75 154 76 mask_i = -1; mask_j = -1; mask_k = -1 77 155 78 ! 156 79 !-- Global arrays are required by define_netcdf_header. -
palm/trunk/SOURCE/modules.f90
r532 r553 5 5 ! Current revisions: 6 6 ! ----------------- 7 ! 7 ! parameters for masked output are replaced by arrays 8 8 ! 9 9 ! Former revisions: … … 346 346 CHARACTER (LEN=11), DIMENSION(100) :: data_output = ' ', & 347 347 data_output_user = ' ', doav = ' ' 348 CHARACTER (LEN=10), DIMENSION(100) :: & 349 data_output_mask_01 = ' ', data_output_mask_02 = ' ', & 350 data_output_mask_03 = ' ', data_output_mask_04 = ' ', & 351 data_output_mask_05 = ' ', data_output_mask_06 = ' ', & 352 data_output_mask_07 = ' ', data_output_mask_08 = ' ', & 353 data_output_mask_09 = ' ', data_output_mask_10 = ' ', & 354 data_output_mask_11 = ' ', data_output_mask_12 = ' ', & 355 data_output_mask_13 = ' ', data_output_mask_14 = ' ', & 356 data_output_mask_15 = ' ', data_output_mask_16 = ' ', & 357 data_output_mask_17 = ' ', data_output_mask_18 = ' ', & 358 data_output_mask_19 = ' ', data_output_mask_20 = ' ', & 359 data_output_mask_user_01 = ' ', data_output_mask_user_02 = ' ', & 360 data_output_mask_user_03 = ' ', data_output_mask_user_04 = ' ', & 361 data_output_mask_user_05 = ' ', data_output_mask_user_06 = ' ', & 362 data_output_mask_user_07 = ' ', data_output_mask_user_08 = ' ', & 363 data_output_mask_user_09 = ' ', data_output_mask_user_10 = ' ', & 364 data_output_mask_user_11 = ' ', data_output_mask_user_12 = ' ', & 365 data_output_mask_user_13 = ' ', data_output_mask_user_14 = ' ', & 366 data_output_mask_user_15 = ' ', data_output_mask_user_16 = ' ', & 367 data_output_mask_user_17 = ' ', data_output_mask_user_18 = ' ', & 368 data_output_mask_user_19 = ' ', data_output_mask_user_20 = ' ' 348 CHARACTER (LEN=10), DIMENSION(max_masks,100) :: & 349 data_output_masks = ' ', data_output_masks_user = ' ' 369 350 370 351 CHARACTER (LEN=10), DIMENSION(300) :: data_output_pr = ' ' … … 565 546 REAL, DIMENSION(:), ALLOCATABLE :: dp_smooth_factor 566 547 567 REAL, DIMENSION(mask_xyz_dimension) :: & 568 mask_01_x = -1.0, mask_02_x = -1.0, mask_03_x = -1.0, mask_04_x = -1.0, & 569 mask_05_x = -1.0, mask_06_x = -1.0, mask_07_x = -1.0, mask_08_x = -1.0, & 570 mask_09_x = -1.0, mask_10_x = -1.0, mask_11_x = -1.0, mask_12_x = -1.0, & 571 mask_13_x = -1.0, mask_14_x = -1.0, mask_15_x = -1.0, mask_16_x = -1.0, & 572 mask_17_x = -1.0, mask_18_x = -1.0, mask_19_x = -1.0, mask_20_x = -1.0, & 573 mask_01_y = -1.0, mask_02_y = -1.0, mask_03_y = -1.0, mask_04_y = -1.0, & 574 mask_05_y = -1.0, mask_06_y = -1.0, mask_07_y = -1.0, mask_08_y = -1.0, & 575 mask_09_y = -1.0, mask_10_y = -1.0, mask_11_y = -1.0, mask_12_y = -1.0, & 576 mask_13_y = -1.0, mask_14_y = -1.0, mask_15_y = -1.0, mask_16_y = -1.0, & 577 mask_17_y = -1.0, mask_18_y = -1.0, mask_19_y = -1.0, mask_20_y = -1.0, & 578 mask_01_z = -1.0, mask_02_z = -1.0, mask_03_z = -1.0, mask_04_z = -1.0, & 579 mask_05_z = -1.0, mask_06_z = -1.0, mask_07_z = -1.0, mask_08_z = -1.0, & 580 mask_09_z = -1.0, mask_10_z = -1.0, mask_11_z = -1.0, mask_12_z = -1.0, & 581 mask_13_z = -1.0, mask_14_z = -1.0, mask_15_z = -1.0, mask_16_z = -1.0, & 582 mask_17_z = -1.0, mask_18_z = -1.0, mask_19_z = -1.0, mask_20_z = -1.0 583 REAL, DIMENSION(3) :: & 584 mask_01_x_loop = (/ -1.0, -1.0, 0.0 /), & 585 mask_02_x_loop = (/ -1.0, -1.0, 0.0 /), & 586 mask_03_x_loop = (/ -1.0, -1.0, 0.0 /), & 587 mask_04_x_loop = (/ -1.0, -1.0, 0.0 /), & 588 mask_05_x_loop = (/ -1.0, -1.0, 0.0 /), & 589 mask_06_x_loop = (/ -1.0, -1.0, 0.0 /), & 590 mask_07_x_loop = (/ -1.0, -1.0, 0.0 /), & 591 mask_08_x_loop = (/ -1.0, -1.0, 0.0 /), & 592 mask_09_x_loop = (/ -1.0, -1.0, 0.0 /), & 593 mask_10_x_loop = (/ -1.0, -1.0, 0.0 /), & 594 mask_11_x_loop = (/ -1.0, -1.0, 0.0 /), & 595 mask_12_x_loop = (/ -1.0, -1.0, 0.0 /), & 596 mask_13_x_loop = (/ -1.0, -1.0, 0.0 /), & 597 mask_14_x_loop = (/ -1.0, -1.0, 0.0 /), & 598 mask_15_x_loop = (/ -1.0, -1.0, 0.0 /), & 599 mask_16_x_loop = (/ -1.0, -1.0, 0.0 /), & 600 mask_17_x_loop = (/ -1.0, -1.0, 0.0 /), & 601 mask_18_x_loop = (/ -1.0, -1.0, 0.0 /), & 602 mask_19_x_loop = (/ -1.0, -1.0, 0.0 /), & 603 mask_20_x_loop = (/ -1.0, -1.0, 0.0 /), & 604 mask_01_y_loop = (/ -1.0, -1.0, 0.0 /), & 605 mask_02_y_loop = (/ -1.0, -1.0, 0.0 /), & 606 mask_03_y_loop = (/ -1.0, -1.0, 0.0 /), & 607 mask_04_y_loop = (/ -1.0, -1.0, 0.0 /), & 608 mask_05_y_loop = (/ -1.0, -1.0, 0.0 /), & 609 mask_06_y_loop = (/ -1.0, -1.0, 0.0 /), & 610 mask_07_y_loop = (/ -1.0, -1.0, 0.0 /), & 611 mask_08_y_loop = (/ -1.0, -1.0, 0.0 /), & 612 mask_09_y_loop = (/ -1.0, -1.0, 0.0 /), & 613 mask_10_y_loop = (/ -1.0, -1.0, 0.0 /), & 614 mask_11_y_loop = (/ -1.0, -1.0, 0.0 /), & 615 mask_12_y_loop = (/ -1.0, -1.0, 0.0 /), & 616 mask_13_y_loop = (/ -1.0, -1.0, 0.0 /), & 617 mask_14_y_loop = (/ -1.0, -1.0, 0.0 /), & 618 mask_15_y_loop = (/ -1.0, -1.0, 0.0 /), & 619 mask_16_y_loop = (/ -1.0, -1.0, 0.0 /), & 620 mask_17_y_loop = (/ -1.0, -1.0, 0.0 /), & 621 mask_18_y_loop = (/ -1.0, -1.0, 0.0 /), & 622 mask_19_y_loop = (/ -1.0, -1.0, 0.0 /), & 623 mask_20_y_loop = (/ -1.0, -1.0, 0.0 /), & 624 mask_01_z_loop = (/ -1.0, -1.0, 0.0 /), & 625 mask_02_z_loop = (/ -1.0, -1.0, 0.0 /), & 626 mask_03_z_loop = (/ -1.0, -1.0, 0.0 /), & 627 mask_04_z_loop = (/ -1.0, -1.0, 0.0 /), & 628 mask_05_z_loop = (/ -1.0, -1.0, 0.0 /), & 629 mask_06_z_loop = (/ -1.0, -1.0, 0.0 /), & 630 mask_07_z_loop = (/ -1.0, -1.0, 0.0 /), & 631 mask_08_z_loop = (/ -1.0, -1.0, 0.0 /), & 632 mask_09_z_loop = (/ -1.0, -1.0, 0.0 /), & 633 mask_10_z_loop = (/ -1.0, -1.0, 0.0 /), & 634 mask_11_z_loop = (/ -1.0, -1.0, 0.0 /), & 635 mask_12_z_loop = (/ -1.0, -1.0, 0.0 /), & 636 mask_13_z_loop = (/ -1.0, -1.0, 0.0 /), & 637 mask_14_z_loop = (/ -1.0, -1.0, 0.0 /), & 638 mask_15_z_loop = (/ -1.0, -1.0, 0.0 /), & 639 mask_16_z_loop = (/ -1.0, -1.0, 0.0 /), & 640 mask_17_z_loop = (/ -1.0, -1.0, 0.0 /), & 641 mask_18_z_loop = (/ -1.0, -1.0, 0.0 /), & 642 mask_19_z_loop = (/ -1.0, -1.0, 0.0 /), & 643 mask_20_z_loop = (/ -1.0, -1.0, 0.0 /) 548 REAL, DIMENSION(max_masks,mask_xyz_dimension) :: & 549 mask_x = -1.0, mask_y = -1.0, mask_z = -1.0 550 REAL, DIMENSION(max_masks,3) :: & 551 mask_x_loop = (/ -1.0, -1.0, -1.0, -1.0, -1.0, & 552 -1.0, -1.0, -1.0, -1.0, -1.0, & 553 -1.0, -1.0, -1.0, -1.0, -1.0, & 554 -1.0, -1.0, -1.0, -1.0, -1.0, & 555 -1.0, -1.0, -1.0, -1.0, -1.0, & 556 -1.0, -1.0, -1.0, -1.0, -1.0, & 557 -1.0, -1.0, -1.0, -1.0, -1.0, & 558 -1.0, -1.0, -1.0, -1.0, -1.0, & 559 0.0, 0.0, 0.0, 0.0, 0.0, & 560 0.0, 0.0, 0.0, 0.0, 0.0, & 561 0.0, 0.0, 0.0, 0.0, 0.0, & 562 0.0, 0.0, 0.0, 0.0, 0.0 /), & 563 564 mask_y_loop = (/ -1.0, -1.0, -1.0, -1.0, -1.0, & 565 -1.0, -1.0, -1.0, -1.0, -1.0, & 566 -1.0, -1.0, -1.0, -1.0, -1.0, & 567 -1.0, -1.0, -1.0, -1.0, -1.0, & 568 -1.0, -1.0, -1.0, -1.0, -1.0, & 569 -1.0, -1.0, -1.0, -1.0, -1.0, & 570 -1.0, -1.0, -1.0, -1.0, -1.0, & 571 -1.0, -1.0, -1.0, -1.0, -1.0, & 572 0.0, 0.0, 0.0, 0.0, 0.0, & 573 0.0, 0.0, 0.0, 0.0, 0.0, & 574 0.0, 0.0, 0.0, 0.0, 0.0, & 575 0.0, 0.0, 0.0, 0.0, 0.0 /), & 576 577 mask_z_loop = (/ -1.0, -1.0, -1.0, -1.0, -1.0, & 578 -1.0, -1.0, -1.0, -1.0, -1.0, & 579 -1.0, -1.0, -1.0, -1.0, -1.0, & 580 -1.0, -1.0, -1.0, -1.0, -1.0, & 581 -1.0, -1.0, -1.0, -1.0, -1.0, & 582 -1.0, -1.0, -1.0, -1.0, -1.0, & 583 -1.0, -1.0, -1.0, -1.0, -1.0, & 584 -1.0, -1.0, -1.0, -1.0, -1.0, & 585 0.0, 0.0, 0.0, 0.0, 0.0, & 586 0.0, 0.0, 0.0, 0.0, 0.0, & 587 0.0, 0.0, 0.0, 0.0, 0.0, & 588 0.0, 0.0, 0.0, 0.0, 0.0 /) 589 644 590 ! 645 591 !-- internal mask arrays ("mask,dimension,selection") -
palm/trunk/SOURCE/parin.f90
r494 r553 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! parameters for masked output are replaced by arrays 7 7 ! 8 8 ! Former revisions: … … 117 117 lad_vertical_gradient, lad_vertical_gradient_level, & 118 118 leaf_surface_concentration, long_filter_factor, & 119 loop_optimization, mixing_length_1d, m asks, momentum_advec, &119 loop_optimization, mixing_length_1d, momentum_advec, & 120 120 netcdf_precision, nsor_ini, nx, ny, & 121 121 nz, ocean, omega, outflow_damping_width, overshoot_limit_e, & … … 151 151 cross_ts_uymin, cross_xtext, cycle_mg, data_output, & 152 152 data_output_format, & 153 data_output_mask_01, data_output_mask_02, & 154 data_output_mask_03, data_output_mask_04, & 155 data_output_mask_05, data_output_mask_06, & 156 data_output_mask_07, data_output_mask_08, & 157 data_output_mask_09, data_output_mask_10, & 158 data_output_mask_11, data_output_mask_12, & 159 data_output_mask_13, data_output_mask_14, & 160 data_output_mask_15, data_output_mask_16, & 161 data_output_mask_17, data_output_mask_18, & 162 data_output_mask_19, data_output_mask_20, & 153 data_output_masks, & 163 154 data_output_pr, & 164 155 data_output_2d_on_each_pe, disturbance_amplitude, & … … 172 163 end_time, force_print_header, & 173 164 mask_scale_x, mask_scale_y, mask_scale_z, & 174 mask_01_x, mask_02_x, mask_03_x, mask_04_x, & 175 mask_05_x, mask_06_x, mask_07_x, mask_08_x, & 176 mask_09_x, mask_10_x, mask_11_x, mask_12_x, & 177 mask_13_x, mask_14_x, mask_15_x, mask_16_x, & 178 mask_17_x, mask_18_x, mask_19_x, mask_20_x, & 179 mask_01_y, mask_02_y, mask_03_y, mask_04_y, & 180 mask_05_y, mask_06_y, mask_07_y, mask_08_y, & 181 mask_09_y, mask_10_y, mask_11_y, mask_12_y, & 182 mask_13_y, mask_14_y, mask_15_y, mask_16_y, & 183 mask_17_y, mask_18_y, mask_19_y, mask_20_y, & 184 mask_01_z, mask_02_z, mask_03_z, mask_04_z, & 185 mask_05_z, mask_06_z, mask_07_z, mask_08_z, & 186 mask_09_z, mask_10_z, mask_11_z, mask_12_z, & 187 mask_13_z, mask_14_z, mask_15_z, mask_16_z, & 188 mask_17_z, mask_18_z, mask_19_z, mask_20_z, & 189 mask_01_x_loop, mask_02_x_loop, mask_03_x_loop, & 190 mask_04_x_loop, mask_05_x_loop, mask_06_x_loop, & 191 mask_07_x_loop, mask_08_x_loop, mask_09_x_loop, & 192 mask_10_x_loop, mask_11_x_loop, mask_12_x_loop, & 193 mask_13_x_loop, mask_14_x_loop, mask_15_x_loop, & 194 mask_16_x_loop, mask_17_x_loop, mask_18_x_loop, & 195 mask_19_x_loop, mask_20_x_loop, & 196 mask_01_y_loop, mask_02_y_loop, mask_03_y_loop, & 197 mask_04_y_loop, mask_05_y_loop, mask_06_y_loop, & 198 mask_07_y_loop, mask_08_y_loop, mask_09_y_loop, & 199 mask_10_y_loop, mask_11_y_loop, mask_12_y_loop, & 200 mask_13_y_loop, mask_14_y_loop, mask_15_y_loop, & 201 mask_16_y_loop, mask_17_y_loop, mask_18_y_loop, & 202 mask_19_y_loop, mask_20_y_loop, & 203 mask_01_z_loop, mask_02_z_loop, mask_03_z_loop, & 204 mask_04_z_loop, mask_05_z_loop, mask_06_z_loop, & 205 mask_07_z_loop, mask_08_z_loop, mask_09_z_loop, & 206 mask_10_z_loop, mask_11_z_loop, mask_12_z_loop, & 207 mask_13_z_loop, mask_14_z_loop, mask_15_z_loop, & 208 mask_16_z_loop, mask_17_z_loop, mask_18_z_loop, & 209 mask_19_z_loop, mask_20_z_loop, & 165 mask_x, mask_y, mask_z, & 166 mask_x_loop, mask_y_loop, mask_z_loop, & 210 167 mg_cycles, mg_switch_to_pe0_level, & 211 168 netcdf_data_format, & -
palm/trunk/SOURCE/user_parin.f90
r449 r553 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! data_output_mask_user_* replaced by array data_output_masks_user 7 7 ! 8 8 ! Former revisions: … … 39 39 40 40 NAMELIST /userpar/ data_output_pr_user, data_output_user, region, & 41 data_output_mask_user_01, data_output_mask_user_02, & 42 data_output_mask_user_03, data_output_mask_user_04, & 43 data_output_mask_user_05, data_output_mask_user_06, & 44 data_output_mask_user_07, data_output_mask_user_08, & 45 data_output_mask_user_09, data_output_mask_user_10, & 46 data_output_mask_user_11, data_output_mask_user_12, & 47 data_output_mask_user_13, data_output_mask_user_14, & 48 data_output_mask_user_15, data_output_mask_user_16, & 49 data_output_mask_user_17, data_output_mask_user_18, & 50 data_output_mask_user_19, data_output_mask_user_20 41 data_output_masks_user 51 42 52 43 !
Note: See TracChangeset
for help on using the changeset viewer.
