Ignore:
Timestamp:
Sep 1, 2010 2:09:06 PM (11 years ago)
Author:
weinreis
Message:

several parameters for masked output are replaced by arrays

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_masks.f90

    r494 r553  
    44! Current revisions:
    55! -----------------
    6 !
     6! parameters for masked output are replaced by arrays
    77!
    88! Former revisions:
     
    6060       CALL message( 'init_masks', 'PA9998', 1, 2, 0, 6, 0 )
    6161    ENDIF
     62
    6263!
    6364!-- 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   
    15476    mask_i = -1; mask_j = -1; mask_k = -1
     77   
    15578!
    15679!-- Global arrays are required by define_netcdf_header.
Note: See TracChangeset for help on using the changeset viewer.