Changeset 1691 for palm/trunk


Ignore:
Timestamp:
Oct 26, 2015 4:17:44 PM (9 years ago)
Author:
maronga
Message:

various bugfixes and modifications of the atmosphere-land-surface-radiation interaction. Completely re-written routine to calculate surface fluxes (surface_layer_fluxes.f90) that replaces prandtl_fluxes. Minor formatting corrections and renamings

Location:
palm/trunk
Files:
1 added
1 deleted
35 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/INSTALL/example_cbl_rc

    r1663 r1691  
    11
    22 ******************************    --------------------------------------------
    3  * PALM 4.0  Rev: 1655        *    atmosphere - 3D - run without 1D - prerun
     3 * PALM 4.0  Rev: 1689M       *    atmosphere - 3D - run without 1D - prerun
    44 ******************************    --------------------------------------------
    55
    6  Date:                 17-09-15    Run:       example_cbl         
    7  Time:                 11:51:15    Run-No.:   00
    8  Run on host:           lccrayb
     6 Date:                 26-10-15    Run:       example_cbl         
     7 Time:                 17:10:19    Run-No.:   00
     8 Run on host:           lccrayh
    99 Number of PEs:               8    Processor grid (x,y): (   2,   4) calculated
    1010 ------------------------------------------------------------------------------
     
    9191
    9292       zp =  25.00 m   z0 = 0.1000 m   z0h = 0.10000 m   kappa = 0.40
    93        Rif value range:    -5.00 <= rif <=  1.00
     93       Rif value range:   ****** <= rif <= 20.00
    9494
    9595
     
    129129
    130130
    131        Profile: pt, w"pt", w*pt*, wpt, w*2, pt*2,                 
     131       Profile: pt, w"pt", w*pt*, wpt, w*2, pt*2,                            
    132132       Output every               900.00 s
    133133       Time averaged over         600.00 s
     
    227227---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    228228  0      0 00:00:00.00  20.0000A  -0.2192D -0.2169D -0.1214  0.000  1.38   0.000E+00    800.  0.106E-02  0.000E+00  0.000E+00  0.000E+00   11  32   5    5  37  29    4  26   0    0.000    0.000       0
    229   0      1 00:00:20.00  20.0000A  -0.2192  -0.2169  -0.1214  0.001  0.69  -0.124E+03    100.  0.105E-02  0.948E-03  0.491E-05  0.355E-15   11  32   5    5  37  29    4  26   0    0.000    0.000       0
    230   0      2 00:00:40.00  20.0000D  -0.2151  -0.2176  -0.1209  0.001  0.69  -0.125E+03    100.  0.104E-02  0.940E-03  0.802E-05  0.359E-15   11  32   5    5  37  29    4  26   0    0.000    0.000       0
    231   0      3 00:01:00.00  20.0000D  -0.2107  -0.2178  -0.1204  0.001  0.69  -0.125E+03    100.  0.103E-02  0.932E-03  0.111E-04  0.363E-15   11  32   5    5  37  29    4  26   0    0.000    0.000       0
    232   0      4 00:01:20.00  20.0000D  -0.2060  -0.2177  -0.1199  0.001  0.69  -0.126E+03    100.  0.102E-02  0.924E-03  0.142E-04  0.366E-15   11  32   5    4   5   2    4  26   0    0.000    0.000       0
    233   0      5 00:01:40.00  20.0000D  -0.2011  -0.2184  -0.1193  0.001  0.93  -0.125E+03    250.  0.101E-02  0.916E-03  0.173E-04  0.368E-15   11  32   5    4   5   2    4  26   0    0.000    0.000       0
    234   0      6 00:02:00.00  20.0000D  -0.1959  -0.2186  -0.1188  0.001  0.93  -0.124E+03    250.  0.100E-02  0.908E-03  0.204E-04  0.370E-15   11  32   5    4   5   2    4  26   0    0.000    0.000       0
    235   0      7 00:02:20.00  20.0000D  -0.1942  -0.2184  -0.1182  0.001  1.22  -0.123E+03    550.  0.994E-03  0.900E-03  0.235E-04  0.371E-15   11  32   4    4   5   2    4  26   0    0.000    0.000       0
    236   0      8 00:02:40.00  20.0000D  -0.1948D -0.2177D -0.1175  0.002  1.22  -0.126E+03    550.  0.204E-02  0.892E-03  0.516E-03  0.735E-13   11  32   4    4   5   2    4  26   0    0.000    0.000       0
    237   0      9 00:03:00.00  20.0000D   0.3635  -0.2778  -0.1533  0.002  1.22  -0.969E+02    550.  0.201E-02  0.182E-02  0.321E-04  0.742E-15    4  35   4    7  14  12    5  10  39    0.000    0.000       0
    238   0     10 00:03:20.00  20.0000D   0.3563  -0.2763  -0.1517  0.002  1.22  -0.925E+02    550.  0.198E-02  0.180E-02  0.351E-04  0.739E-15    4  35   4    7  14  12    5  10  39    0.000    0.000       0
    239   0     11 00:03:40.00  20.0000D   0.3475  -0.2747  -0.1498  0.002  1.22  -0.887E+02    550.  0.195E-02  0.177E-02  0.380E-04  0.739E-15    4  35   4    6  29  30    5  10  39    0.000    0.000       0
    240   0     12 00:04:00.00  20.0000D   0.3374  -0.2747  -0.1476  0.002  1.22  -0.856E+02    550.  0.193E-02  0.175E-02  0.410E-04  0.741E-15    4  35   4    6  29  30    5  10  39    0.000    0.000       0
    241   0     13 00:04:20.00  20.0000D   0.3262  -0.2735  -0.1451  0.002  1.22  -0.926E+02    550.  0.190E-02  0.173E-02  0.439E-04  0.744E-15    4  35   4    6  29  30    5  10  39    0.000    0.000       0
    242   0     14 00:04:40.00  20.0000D   0.3249  -0.2712  -0.1455  0.002  1.22  -0.766E+02    550.  0.188E-02  0.171E-02  0.468E-04  0.749E-15    4  35   5    6  29  30    6  23   4    0.000    0.000       0
    243   0     15 00:05:00.00  20.0000D   0.3275D -0.2694D -0.1470  0.002  1.22  -0.703E+02    550.  0.293E-02  0.169E-02  0.529E-03  0.720E-13    4  35   5    7  13  38    6  23   4    0.000    0.000       0
    244   0     16 00:05:20.00  20.0000D   0.3782  -0.3667  -0.2151  0.003  1.22  -0.600E+02    550.  0.288E-02  0.262E-02  0.546E-04  0.110E-14   11  16  39    7  13  12    8  21  26    0.000    0.000       0
    245   0     17 00:05:40.00  20.0000D   0.3741  -0.3587  -0.2156  0.003  1.22  -0.562E+02    550.  0.284E-02  0.258E-02  0.573E-04  0.110E-14   11  16  39    7  15  26    8  21  26    0.000    0.000       0
    246   0     18 00:06:00.00  20.0000D   0.3717  -0.3525  -0.2156  0.003  1.22  -0.520E+02    550.  0.279E-02  0.255E-02  0.600E-04  0.111E-14    6   3  26    7  15  26    8  21  26    0.000    0.000       0
    247   0     19 00:06:20.00  20.0000D  -0.3700  -0.3448  -0.2153  0.003  1.22  -0.482E+02    550.  0.276E-02  0.251E-02  0.626E-04  0.112E-14    6  12  31    7  15  26    8  21  26    0.000    0.000       0
    248   0     20 00:06:40.00  20.0000D  -0.3674  -0.3439  -0.2146  0.004  1.22  -0.433E+02    550.  0.273E-02  0.249E-02  0.652E-04  0.114E-14    6  12  31    8  34  19    8  21  26    0.000    0.000       0
    249   0     21 00:07:00.00  20.0000D  -0.3632  -0.3493  -0.2134  0.004  1.22  -0.399E+02    550.  0.270E-02  0.246E-02  0.677E-04  0.116E-14    6  12  31    7  14  26    8  21  26    0.000    0.000       0
    250   0     22 00:07:20.00  20.0000D  -0.3577  -0.3559   0.2292  0.005  1.22  -0.374E+02    550.  0.269E-02  0.245E-02  0.701E-04  0.120E-14    6  12  31    7  14  26    2  15  28    0.000    0.000       0
    251   0     23 00:07:40.00  20.0000D  -0.3509D -0.3603D  0.2560  0.005  1.22  -0.331E+02    550.  0.377E-02  0.244E-02  0.552E-03  0.750E-13    6  12  31    7  14  26    2  15  28    0.000    0.000       0
    252   0     24 00:08:00.00  20.0000D   0.4111   0.4185   0.3167  0.006  1.18  -0.251E+02    500.  0.374E-02  0.341E-02  0.770E-04  0.163E-14    8  36  11   10  34  34    2  15  28    0.000    0.000       0
    253   0     25 00:08:20.00  20.0000D  -0.4110   0.4103   0.3500  0.007  1.18  -0.224E+02    500.  0.374E-02  0.340E-02  0.792E-04  0.168E-14    5  15  27   10  34  34    2  15  28    0.000    0.000       0
    254   0     26 00:08:40.00  20.0000D  -0.4162   0.3992   0.3893  0.008  1.18  -0.200E+02    500.  0.375E-02  0.342E-02  0.812E-04  0.175E-14    5  15  27   10  34  34    2  15  28    0.000    0.000       0
    255   0     27 00:09:00.00  20.0000D  -0.4207   0.3858   0.4347  0.009  1.18  -0.177E+02    500.  0.381E-02  0.347E-02  0.832E-04  0.184E-14    5  15  27   10  34  34    2  15  28    0.000    0.000       0
    256   0     28 00:09:20.00  20.0000D  -0.4246  -0.3825   0.4864  0.010  1.18  -0.157E+02    500.  0.390E-02  0.355E-02  0.850E-04  0.195E-14    5  15  27    9  21  22    2  15  28    0.000    0.000       0
    257   0     29 00:09:40.00  20.0000D  -0.4283  -0.3813   0.5443  0.011  1.18  -0.143E+02    500.  0.405E-02  0.368E-02  0.866E-04  0.209E-14    5  15  27    9  21  22    2  15  28    0.000    0.000       0
    258   0     30 00:10:00.00  20.0000D  -0.4322D -0.3772D  0.6082  0.013  1.18  -0.125E+02    500.  0.530E-02  0.387E-02  0.555E-03  0.730E-13    5  15  27    9  21  22    2  15  28    0.000    0.000       0
    259   0     31 00:10:20.00  20.0000D  -0.4451   0.4333   0.6835  0.014  1.18  -0.125E+02    500.  0.557E-02  0.505E-02  0.911E-04  0.276E-14    6  11  30    9  20  25    3  14  27    0.000    0.000       0
    260   0     32 00:10:40.00  20.0000D  -0.4498   0.4329   0.7743  0.016  1.18  -0.995E+01    500.  0.598E-02  0.541E-02  0.920E-04  0.300E-14    6  11  30    9  20  25    3  14  27    0.000    0.000       0
    261   0     33 00:11:00.00  20.0000D  -0.4499   0.4284   0.8794  0.018  1.18  -0.865E+01    500.  0.655E-02  0.591E-02  0.925E-04  0.329E-14    6  11  30    9  20  25    3  15  28    0.000    0.000       0
    262   0     34 00:11:20.00  20.0000D  -0.4686   0.4203   1.0077  0.020  1.18  -0.770E+01    500.  0.733E-02  0.660E-02  0.926E-04  0.365E-14    1  15  30    9  20  25    3  15  28    0.000    0.000       0
    263   0     35 00:11:40.00  20.0000A  -0.5131   0.4390   1.1411  0.023  1.18  -0.677E+01    500.  0.839E-02  0.754E-02  0.924E-04  0.407E-14    5  15  26    1  13  27    3  15  28    0.000    0.000       0
    264   0     36 00:12:00.00  20.0000A  -0.5579   0.4874   1.2860  0.026  1.18  -0.602E+01    500.  0.980E-02  0.879E-02  0.919E-04  0.459E-14    1  14  30    1  17  36    3  20  36    0.000    0.000       0
    265   0     37 00:12:20.00  20.0000A  -0.6069   0.5356   1.4354  0.028  1.18  -0.548E+01    500.  0.117E-01  0.104E-01  0.913E-04  0.519E-14    1  14  30    1  17  36    3  19  36    0.000    0.000       0
    266   0     38 00:12:40.00  20.0000A  -0.6537   0.5816   1.6319  0.031  1.05  -0.512E+01    350.  0.141E-01  0.126E-01  0.907E-04  0.591E-14    1  14  30    1  17  36    4  20  36    0.000    0.000       0
    267   0     39 00:13:00.00  20.0000A  -0.6962   0.6231   1.8563  0.034  1.18  -0.448E+01    500.  0.171E-01  0.153E-01  0.907E-04  0.675E-14    1  14  30    1  17  36    4  20  36    0.000    0.000       0
    268   0     40 00:13:20.00  20.0000A  -0.7336   0.6662   2.0403  0.038  1.09  -0.414E+01    400.  0.210E-01  0.188E-01  0.916E-04  0.772E-14    1  16  29    1  29  28    4  19  36    0.000    0.000       0
    269   0     41 00:13:40.00  20.0000A  -0.7826   0.7271   2.2419  0.041  1.09  -0.385E+01    400.  0.259E-01  0.232E-01  0.939E-04  0.884E-14    1  16  29    1  20  22    5  19  36    0.000    0.000       0
    270   0     42 00:13:58.00  18.0000A  -0.8274   0.7915   2.4938  0.044  1.14  -0.346E+01    450.  0.312E-01  0.283E-01  0.874E-04  0.902E-14    1  15  29    1  20  22    5  19  36    0.000    0.000       0
    271   0     43 00:14:14.70  16.7000A  -0.8825   0.8465   2.6922  0.046  1.14  -0.327E+01    450.  0.370E-01  0.339E-01  0.846E-04  0.939E-14    1   2  23    1  20  22    5  19  36    0.000    0.000       0
    272   0     44 00:14:30.20  15.5000A  -0.9373   0.8934   2.8940  0.048  1.18  -0.311E+01    500.  0.432E-01  0.399E-01  0.822E-04  0.968E-14    1   2  23    1  20  22    6  19  36    0.000    0.000       0
    273   0     45 00:14:44.70  14.5000A  -0.9840   0.9319   3.1005  0.050  1.18  -0.302E+01    500.  0.497E-01  0.462E-01  0.810E-04  0.997E-14    1   2  23    1  20  22    6  19  36    0.000    0.000       0
    274   0     46 00:14:58.50  13.8000A  -1.0209   0.9629   3.2577  0.052  1.22  -0.317E+01    550.  0.566E-01  0.529E-01  0.813E-04  0.104E-13    1   2  23    1  20  22    6  19  36    0.000    0.000       0
    275   0     47 00:15:11.50  13.0000A   1.0590   0.9874   3.4608  0.053  1.22  -0.294E+01    550.  0.637E-01  0.599E-01  0.809E-04  0.106E-13    1  31  18    1  20  22    7  19  36    0.000    0.000       0
    276   0     48 00:15:23.90  12.4000A   1.1029   1.0076   3.6147  0.055  1.28  -0.287E+01    650.  0.711E-01  0.671E-01  0.815E-04  0.109E-13    1  31  18    1  29  28    7  19  36    0.000    0.000       0
    277   0     49 00:15:35.90  12.0000A   1.1393   1.0350   3.7578  0.056  1.28  -0.277E+01    650.  0.787E-01  0.746E-01  0.832E-04  0.113E-13    1  31  18    1  20  23    8  19  36    0.000    0.000       0
    278   0     50 00:15:47.40  11.5000A   1.1689   1.0620   3.9096  0.057  1.29  -0.265E+01    650.  0.865E-01  0.822E-01  0.842E-04  0.116E-13    1  31  18    1  20  23    8  19  36    0.000    0.000       0
    279   0     51 00:15:58.70  11.3000A   1.1914   1.0868   3.9957  0.058  1.29  -0.255E+01    650.  0.945E-01  0.900E-01  0.870E-04  0.121E-13    1  31  18    1  20  23    9  19  36    0.000    0.000       0
    280   0     52 00:16:09.60  10.9000A   1.2072   1.1100   4.1423  0.059  1.29  -0.247E+01    650.  0.103E+00  0.980E-01  0.882E-04  0.124E-13    1  31  18    1  20  23    9  19  36    0.000    0.000       0
    281   0     53 00:16:20.30  10.7000A   1.2163   1.1311   4.2098  0.059  1.38  -0.241E+01    800.  0.111E+00  0.106E+00  0.907E-04  0.129E-13    1  31  18    1  20  23    9  19  36    0.000    0.000       0
    282   0     54 00:16:30.70  10.4000A   1.2230   1.1501   4.3170  0.060  1.38  -0.239E+01    800.  0.119E+00  0.114E+00  0.923E-04  0.132E-13    1  30  18    1  20  23   10  19  36    0.000    0.000       0
    283   0     55 00:16:40***  10.3000A   1.2285   1.1668   4.3818  0.061  1.38  -0.237E+01    800.  0.127E+00  0.122E+00  0.954E-04  0.137E-13    1  30  18    1  20  23   10  19  36    0.000    0.000       0
    284   0     56 00:16:51.10  10.1000A   1.2378   1.2243   4.4452  0.061  1.38  -0.237E+01    800.  0.136E+00  0.131E+00  0.977E-04  0.140E-13    1  37  15    7  12   8   11  19  36    0.000    0.000       0
    285   0     57 00:17:01.09   9.9900A   1.2531   1.2263   4.5048  0.062  1.38  -0.241E+01    800.  0.144E+00  0.139E+00  0.101E-03  0.145E-13    1  37  15    6  20  34   11  19  36    0.000    0.000       0
    286   0     58 00:17:11.04   9.9500A  -1.3217   1.2613   4.5240  0.062  1.38  -0.242E+01    800.  0.153E+00  0.147E+00  0.104E-03  0.150E-13    4  35   3   10  17   2   12  19  36    0.000    0.000       0
    287   0     59 00:17:20.87   9.8300A  -1.3776   1.3448   4.5770  0.063  1.38  -0.239E+01    800.  0.161E+00  0.156E+00  0.107E-03  0.155E-13    4  35   3   10  17   2   12  19  36    0.000    0.000       0
    288   0     60 00:17:30.73   9.8600A  -1.4186   1.2882   4.5631  0.063  1.38  -0.240E+01    800.  0.170E+00  0.164E+00  0.111E-03  0.161E-13    4  35   3    9  16   3   13  19  36    0.000    0.000       0
    289   0     61 00:17:40.50   9.7700A  -1.4466   1.4232   4.6056  0.064  1.41  -0.243E+01    850.  0.178E+00  0.173E+00  0.114E-03  0.166E-13    4  35   3   11  17   2   13  19  36    0.000    0.000       0
    290   0     62 00:17:50.32   9.8200A  -1.4630   1.4757   4.5817  0.064  1.41  -0.251E+01    850.  0.186E+00  0.181E+00  0.119E-03  0.173E-13    4  35   3   11  17   2   13  19  36    0.000    0.000       0
    291   0     63 00:18:00.12   9.8000A  -1.4689  -1.4758   4.5924  0.064  1.41  -0.244E+01    850.  0.195E+00  0.189E+00  0.122E-03  0.178E-13    4  35   3    9   4  39   14  19  36    0.000    0.000       0
    292   0     64 00:18:09.98   9.8600A  -1.4900   1.5484   4.5623  0.065  1.41  -0.254E+01    850.  0.203E+00  0.198E+00  0.127E-03  0.185E-13    4  35   2   12  17   2   14  19  36    0.000    0.000       0
    293   0     65 00:18:19.93   9.9500A  -1.5149   1.5649   4.5234  0.065  1.41  -0.240E+01    850.  0.211E+00  0.206E+00  0.132E-03  0.193E-13    5  35   2   12  17   2   15  19  36    0.000    0.000       0
    294   0     66 00:18:29.90   9.9700A  -1.5562  -1.6149   4.5130  0.066  1.41  -0.230E+01    850.  0.219E+00  0.214E+00  0.136E-03  0.199E-13    5  35   2   10   4  39   15  15  27    0.000    0.000       0
    295   0     67 00:18:39.84   9.9400A  -1.5803  -1.6213   4.5279  0.066  1.41  -0.227E+01    850.  0.227E+00  0.221E+00  0.140E-03  0.205E-13    5  35   2   10   4  39   12  15   1    0.000    0.000       0
    296   0     68 00:18:49.80   9.9600A  -1.5944  -1.5975   4.5161  0.067  1.41  -0.222E+01    850.  0.234E+00  0.229E+00  0.144E-03  0.211E-13    5  35   2    9   5  38   12  15   1    0.000    0.000       0
    297   0     69 00:18:59.73   9.9300A  -1.6046  -1.6886   4.5325  0.067  1.41  -0.221E+01    850.  0.241E+00  0.236E+00  0.148E-03  0.216E-13    5  35   2    9   5  38   13  15   1    0.000    0.000       0
    298   0     70 00:19:09.63   9.9000A  -1.6147  -1.8090   4.5451  0.067  1.41  -0.225E+01    850.  0.247E+00  0.242E+00  0.151E-03  0.221E-13    5  35   2   10   4  38   13  15   1    0.000    0.000       0
    299   0     71 00:19:19.63  10.0000A  -1.6261  -1.8785   4.4972  0.068  1.41  -0.232E+01    850.  0.253E+00  0.249E+00  0.156E-03  0.229E-13    5  35   2   10   4  38   13  15   1    0.000    0.000       0
    300   0     72 00:19:29.63  10.0000A  -1.6387  -1.8839   4.4921  0.068  1.41  -0.241E+01    850.  0.259E+00  0.254E+00  0.160E-03  0.234E-13    5  35   2   10   4  38   14  15   1    0.000    0.000       0
    301   0     73 00:19:39.73  10.1000A  -1.6503  -1.9429   4.4673  0.069  1.41  -0.218E+01    850.  0.264E+00  0.260E+00  0.166E-03  0.242E-13    5  35   2   11   4  38   14  15   1    0.000    0.000       0
    302   0     74 00:19:49.93  10.2000A  -1.6583  -2.0326   4.3937  0.069  1.41  -0.215E+01    850.  0.269E+00  0.265E+00  0.171E-03  0.249E-13    5  35   2   11   4  38   14  15   1    0.000    0.000       0
    303   0     75 00:20:00.23  10.3000A  -1.7171  -2.0769   4.3835  0.070  1.41  -0.208E+01    850.  0.273E+00  0.269E+00  0.177E-03  0.257E-13   12  36  39   12   3  38   12  35  25    0.000    0.000       0
    304   0     76 00:20:10.43  10.2000A  -1.7567  -2.1408   4.4178  0.070  1.41  -0.210E+01    850.  0.277E+00  0.273E+00  0.179E-03  0.259E-13   12  36  39   12   3  38   13  35  25    0.000    0.000       0
    305   0     77 00:20:20.53  10.1000A  -1.7527  -2.1271   4.4670  0.071  1.41  -0.208E+01    850.  0.280E+00  0.277E+00  0.180E-03  0.261E-13   12  36  39   12   3  38   13  35  25    0.000    0.000       0
    306   0     78 00:20:30.73  10.2000A  -1.8161  -2.1682   4.4292  0.071  1.41  -0.221E+01    850.  0.283E+00  0.280E+00  0.185E-03  0.267E-13   13  36  38   13   3  38   14  35  25    0.000    0.000       0
    307   0     79 00:20:40.73  10.0000A  -1.8889  -2.1900   4.4840  0.072  1.41  -0.198E+01    850.  0.285E+00  0.282E+00  0.185E-03  0.266E-13   13  36  38   13   3  38   14  35  25    0.000    0.000       0
    308   0     80 00:20:50.83  10.1000A  -1.9297  -2.1973   4.4481  0.073  1.41  -0.194E+01    850.  0.286E+00  0.284E+00  0.190E-03  0.272E-13   13  36  38   14   2  38   14  35  25    0.000    0.000       0
    309   0     81 00:21:01.13  10.3000A  -1.9368  -2.2598   4.3901  0.073  1.41  -0.192E+01    850.  0.288E+00  0.285E+00  0.196E-03  0.280E-13   13  36  38   14   2  38   15  35  25    0.000    0.000       0
    310   0     82 00:21:11.43  10.3000A  -1.9076  -2.1711   4.3540  0.074  1.41  -0.191E+01    850.  0.288E+00  0.286E+00  0.198E-03  0.284E-13   13  36  38   14   2  38   15  35  25    0.000    0.000       0
    311   0     83 00:21:22.03  10.6000A  -1.9439  -2.1446   4.2332  0.075  1.41  -0.190E+01    850.  0.288E+00  0.286E+00  0.206E-03  0.295E-13   14  36  38   15   2  38   15  35  25    0.000    0.000       0
    312   0     84 00:21:33.13  11.1000A  -1.9810  -2.1166   4.0656  0.076  1.41  -0.190E+01    850.  0.288E+00  0.286E+00  0.218E-03  0.311E-13   14  36  38   15   2  38   16  35  25    0.000    0.000       0
    313   0     85 00:21:44.53  11.4000A  -1.9978  -2.0805   3.9358  0.076  1.41  -0.188E+01    850.  0.288E+00  0.286E+00  0.226E-03  0.322E-13   14  36  38   15   1  38   16  35  25    0.000    0.000       0
    314   0     86 00:21:56.53  12.0000A  -1.9911  -1.9954   3.7411  0.077  1.38  -0.188E+01    800.  0.287E+00  0.285E+00  0.240E-03  0.342E-13   14  36  38   15   2  38   16  35  25    0.000    0.000       0
    315   0     87 00:22:09.33  12.8000A  -1.9587  -2.0083   3.5118  0.078  1.38  -0.184E+01    800.  0.286E+00  0.285E+00  0.258E-03  0.367E-13   14  36  38   17  38   9   12   6  38    0.000    0.000       0
    316   0     88 00:22:22.23  12.9000A  -1.8968  -2.0019   3.4815  0.079  1.38  -0.182E+01    800.  0.285E+00  0.283E+00  0.263E-03  0.372E-13   14  36  38   17  38   9   13  20   6    0.000    0.000       0
    317   0     89 00:22:35.43  13.2000A  -1.8835  -1.9266   3.4165  0.081  1.38  -0.182E+01    800.  0.283E+00  0.282E+00  0.271E-03  0.382E-13   15  35  38   17  38   9   14  36  16    0.000    0.000       0
    318   0     90 00:22:48.73  13.3000A  -1.8964  -1.9624   3.3714  0.082  1.38  -0.177E+01    800.  0.281E+00  0.281E+00  0.275E-03  0.386E-13   16  35  37   10  14  36   14  36  16    0.000    0.000       0
    319   0     91 00:23:02.53  13.8000A  -1.9119  -1.7922   3.2564  0.083  1.38  -0.176E+01    800.  0.280E+00  0.279E+00  0.286E-03  0.401E-13   16  35  36   10  14  36   14  36  14    0.000    0.000       0
    320   0     92 00:23:16.73  14.2000A  -1.9743  -1.7683   3.1765  0.084  1.35  -0.171E+01    750.  0.277E+00  0.277E+00  0.293E-03  0.412E-13   16  35  36   11  14  36   14  19   6    0.000    0.000       0
    321   0     93 00:23:31.43  14.7000A  -1.9862  -1.8340   3.0522  0.086  1.35  -0.166E+01    750.  0.275E+00  0.275E+00  0.303E-03  0.426E-13   16  35  36   11  14  36   14  19   6    0.000    0.000       0
    322   0     94 00:23:46.43  15.0000A  -1.9412  -1.6691   2.9938  0.087  1.35  -0.163E+01    750.  0.272E+00  0.273E+00  0.308E-03  0.433E-13   16  35  36   11  14  36   16  18   6    0.000    0.000       0
    323   0     95 00:24:01.33  14.9000A  -1.8521  -1.7158   3.0103  0.088  1.35  -0.159E+01    750.  0.269E+00  0.270E+00  0.303E-03  0.428E-13   16  35  35   11  14  32   11  22  10    0.000    0.000       0
    324   0     96 00:24:16.13  14.8000A  -1.8021  -1.7470   3.0382  0.090  1.35  -0.156E+01    750.  0.266E+00  0.267E+00  0.299E-03  0.421E-13    7  20  10   11  14  32   11  22  10    0.000    0.000       0
    325   0     97 00:24:31.03  14.9000A  -1.8736  -1.7532   3.0227  0.091  1.32  -0.153E+01    700.  0.263E+00  0.264E+00  0.297E-03  0.419E-13    8  20  10    1  22  29   12  22  10    0.000    0.000       0
    326   0     98 00:24:45.93  14.9000A  -1.8942  -1.7566   3.0293  0.092  1.32  -0.149E+01    700.  0.259E+00  0.261E+00  0.295E-03  0.414E-13    8  20  10    1  22  29   12  22  10    0.000    0.000       0
    327   0     99 00:25:00.93  15.0000A  -1.9088   1.7638   3.0033  0.094  1.32  -0.146E+01    700.  0.256E+00  0.258E+00  0.294E-03  0.411E-13    8  20   9    1   7  14   12  22  10    0.000    0.000       0
    328   0    100 00:25:15.93  15.0000A  -1.9789   1.8127   3.0007  0.095  1.32  -0.147E+01    700.  0.252E+00  0.255E+00  0.292E-03  0.406E-13    8  20   9    1   7  14   13  22  10    0.000    0.000       0
    329   0    101 00:25:31.03  15.1000A  -1.9401   1.8502   2.9834  0.096  1.32  -0.150E+01    700.  0.249E+00  0.252E+00  0.292E-03  0.404E-13    8  20   9    1   7  14   13  22  10    0.000    0.000       0
    330   0    102 00:25:46.43  15.4000A  -1.8588   1.8909   2.9152  0.097  1.32  -0.145E+01    700.  0.245E+00  0.249E+00  0.295E-03  0.406E-13    9  20   9    1   8  13   13  22  10    0.000    0.000       0
    331   0    103 00:26:01.93  15.5000A   1.8657   1.9566   2.8848  0.098  1.32  -0.144E+01    700.  0.242E+00  0.245E+00  0.295E-03  0.403E-13    8   0  24    1   8  13   14  22  10    0.000    0.000       0
    332   0    104 00:26:17.53  15.6000A   1.8883   2.0109   2.8229  0.099  1.32  -0.141E+01    700.  0.238E+00  0.242E+00  0.294E-03  0.400E-13    9   0  24    1   8  14   14  22  10    0.000    0.000       0
    333   0    105 00:26:33.33  15.8000A   1.8054   2.0547   2.7633  0.100  1.32  -0.137E+01    700.  0.234E+00  0.239E+00  0.296E-03  0.400E-13    9   0  24    1   8  14    8  10  12    0.000    0.000       0
    334   0    106 00:26:49.33  16.0000A   1.7700   2.0820   2.7515  0.101  1.29  -0.137E+01    650.  0.231E+00  0.236E+00  0.297E-03  0.400E-13   10   0  24    1   8  14   12   8  17    0.000    0.000       0
    335   0    107 00:27:04.93  15.6000A   1.7047   2.0951   2.7189  0.102  1.29  -0.157E+01    650.  0.227E+00  0.232E+00  0.287E-03  0.385E-13   10   0  24    1   8  14   12   8  17    0.000    0.000       0
    336   0    108 00:27:19.33  14.4000A  -1.6865   2.1380   2.6514  0.103  1.29  -0.141E+01    650.  0.224E+00  0.229E+00  0.263E-03  0.352E-13    8  37  33    1   9  14   12   8  17    0.000    0.000       0
    337   0    109 00:27:32.93  13.6000A   1.7101   2.1750   2.6464  0.103  1.29  -0.138E+01    650.  0.221E+00  0.226E+00  0.246E-03  0.328E-13   10  10   4    1   9  14    6  12   0    0.000    0.000       0
    338   0    110 00:27:46.33  13.4000A   1.7037   2.1976   2.6700  0.103  1.32  -0.136E+01    700.  0.218E+00  0.224E+00  0.240E-03  0.319E-13   10  10   4    1   9  14    9  10  11    0.000    0.000       0
    339   0    111 00:27:59.43  13.1000A  -1.7529   2.2135   2.6476  0.103  1.32  -0.139E+01    700.  0.216E+00  0.221E+00  0.233E-03  0.309E-13    5  36  26    1   9  14    9  10  11    0.000    0.000       0
    340   0    112 00:28:12.53  13.1000A  -1.7808   2.2249   2.6316  0.103  1.35  -0.141E+01    750.  0.213E+00  0.219E+00  0.230E-03  0.305E-13    5  36  26    1   9  14    9   9  18    0.000    0.000       0
    341   0    113 00:28:26.13  13.6000A  -1.7741   2.2303   2.6725  0.103  1.35  -0.138E+01    750.  0.211E+00  0.216E+00  0.237E-03  0.313E-13    7  35  25    1   9  14    9   9  18    0.000    0.000       0
    342   0    114 00:28:40.63  14.5000A  -1.8334   2.2235   2.6508  0.103  1.35  -0.137E+01    750.  0.208E+00  0.214E+00  0.250E-03  0.329E-13    7  35  25    1   9  14    9   9  18    0.000    0.000       0
    343   0    115 00:28:55.53  14.9000A  -1.8662   2.2176   2.6175  0.103  1.35  -0.138E+01    750.  0.206E+00  0.212E+00  0.254E-03  0.333E-13    7  35  25    1  10  14   10   9  18    0.000    0.000       0
    344   0    116 00:29:10.03  14.5000A  -1.9194   2.1970   2.5512  0.102  1.35  -0.136E+01    750.  0.203E+00  0.209E+00  0.244E-03  0.320E-13    6  35  25    1  10  14   10  11  11    0.000    0.000       0
    345   0    117 00:29:24.93  14.9000A  -1.9643   2.1498   2.4976  0.102  1.35  -0.137E+01    750.  0.201E+00  0.207E+00  0.248E-03  0.324E-13    6  35  25    1  10  14   13  35   7    0.000    0.000       0
    346   0    118 00:29:40.63  15.7000A  -1.9574   2.1155   2.5043  0.101  1.35  -0.135E+01    750.  0.199E+00  0.205E+00  0.259E-03  0.336E-13    6  35  25    1  10  15   13  35   7    0.000    0.000       0
    347   0    119 00:29:57.63  17.0000A  -1.8768   2.0720   2.4627  0.100  1.35  -0.137E+01    750.  0.197E+00  0.203E+00  0.276E-03  0.356E-13    6  35  25    1  10  16   14  35   7    0.000    0.000       0
    348   0    120 00:30:15.93  18.3000A  -1.8639   2.0444   2.4602  0.099  1.35  -0.139E+01    750.  0.195E+00  0.200E+00  0.293E-03  0.375E-13    5  35  25    1  10  16    9  11   0    0.000    0.000       0
    349   0    121 00:30:33.53  17.6000A  -1.8397   2.0035   2.5563  0.099  1.38  -0.140E+01    800.  0.193E+00  0.199E+00  0.278E-03  0.354E-13    5  35  25    1  10  16    9   0  35    0.000    0.000       0
    350   0    122 00:30:50.83  17.3000A   1.8017   1.9547   2.6063  0.098  1.38  -0.137E+01    800.  0.192E+00  0.197E+00  0.270E-03  0.342E-13    1  22   8    1  10  17    9   0  35    0.000    0.000       0
    351   0    123 00:31:07.63  16.8000A   1.8102   1.9365   2.6768  0.097  1.38  -0.135E+01    800.  0.191E+00  0.196E+00  0.260E-03  0.327E-13    1  22   8    1  10  17   10   0  35    0.000    0.000       0
    352   0    124 00:31:24.03  16.4000A   1.7964   1.9013   2.7394  0.096  1.38  -0.137E+01    800.  0.190E+00  0.195E+00  0.251E-03  0.314E-13    1  22   8    1  10  17   10   0  35    0.000    0.000       0
    353   0    125 00:31:40.33  16.3000A   1.7732   1.9071   2.7604  0.096  1.38  -0.140E+01    800.  0.190E+00  0.194E+00  0.248E-03  0.309E-13    1  22   9    1  10  11   10   0  35    0.000    0.000       0
    354   0    126 00:31:56.63  16.3000A   1.7798   1.9172   2.7606  0.095  1.38  -0.141E+01    800.  0.189E+00  0.193E+00  0.247E-03  0.306E-13    1  22   9    1  10  11   11   0  35    0.000    0.000       0
    355   0    127 00:32:12.93  16.3000A   1.7648   1.9124   2.7688  0.094  1.38  -0.145E+01    800.  0.189E+00  0.193E+00  0.247E-03  0.304E-13    1  22   9    1  11  10   11   0  35    0.000    0.000       0
    356   0    128 00:32:29.23  16.3000A   1.7373   1.9408   2.7543  0.094  1.38  -0.147E+01    800.  0.189E+00  0.193E+00  0.247E-03  0.302E-13    1  22   9    1  11  11   11  39  35    0.000    0.000       0
    357   0    129 00:32:45.33  16.1000A   1.7135   1.9425   2.7997  0.093  1.38  -0.148E+01    800.  0.189E+00  0.193E+00  0.244E-03  0.298E-13    1  21   9    1  11  11   12  39  35    0.000    0.000       0
    358   0    130 00:33:01.23  15.9000A   1.6901   1.9076   2.8378  0.093  1.38  -0.147E+01    800.  0.190E+00  0.193E+00  0.242E-03  0.293E-13    1  21   9    1  12  11   12  39  35    0.000    0.000       0
    359   0    131 00:33:17.03  15.8000A   1.6621   1.9401   2.8413  0.092  1.38  -0.148E+01    800.  0.190E+00  0.194E+00  0.240E-03  0.291E-13    1  22   9    1  12  11   12  39  35    0.000    0.000       0
    360   0    132 00:33:33.03  16.0000A   1.6506   1.9292   2.8142  0.092  1.38  -0.149E+01    800.  0.191E+00  0.194E+00  0.244E-03  0.295E-13    1  22   9    1  12  11   12  39  35    0.000    0.000       0
    361   0    133 00:33:49.13  16.1000A   1.6428   1.8765   2.7978  0.091  1.35  -0.150E+01    750.  0.191E+00  0.195E+00  0.246E-03  0.297E-13    1  22   9    1  12  11   12  39  38    0.000    0.000       0
    362   0    134 00:34:05.13  16.0000A   1.6340   1.8514   2.8169  0.091  1.35  -0.154E+01    750.  0.192E+00  0.196E+00  0.245E-03  0.295E-13    1  22   9    1  13  11   13  39  38    0.000    0.000       0
    363   0    135 00:34:20.53  15.4000A   1.6193   1.8427   2.9195  0.091  1.35  -0.151E+01    750.  0.193E+00  0.196E+00  0.237E-03  0.285E-13    1  22   9    1  13  11   10  25  21    0.000    0.000       0
    364   0    136 00:34:35.73  15.2000A   1.6398   1.8299   2.9692  0.090  1.35  -0.151E+01    750.  0.193E+00  0.197E+00  0.234E-03  0.282E-13    7  28  15    1  13  10   11  25  21    0.000    0.000       0
    365   0    137 00:34:50.83  15.1000A   1.5726   1.8722   2.9776  0.090  1.35  -0.152E+01    750.  0.194E+00  0.197E+00  0.233E-03  0.281E-13    8  28  15    5  28  13   11  25  21    0.000    0.000       0
    366   0    138 00:35:06.23  15.4000A   1.6086   1.8828   2.9160  0.090  1.41  -0.152E+01    850.  0.195E+00  0.198E+00  0.239E-03  0.287E-13    7  29  15    5  28  13   12  25  22    0.000    0.000       0
    367   0    139 00:35:21.33  15.1000A   1.6597   1.8593   2.9792  0.089  1.41  -0.151E+01    850.  0.195E+00  0.198E+00  0.235E-03  0.283E-13    7  29  15    6  29  14   13  24  21    0.000    0.000       0
    368   0    140 00:35:36.13  14.8000A   1.6300   1.8733   3.0332  0.089  1.41  -0.149E+01    850.  0.196E+00  0.199E+00  0.231E-03  0.278E-13    7  29  15    6  29  14   13  24  21    0.000    0.000       0
    369   0    141 00:35:50.63  14.5000A   1.5729   1.8689   3.1043  0.089  1.41  -0.148E+01    850.  0.197E+00  0.200E+00  0.228E-03  0.273E-13    7  30  16    6  29  13   14  24  21    0.000    0.000       0
    370   0    142 00:36:05.23  14.6000A   1.6148   1.9109   3.0728  0.088  1.41  -0.161E+01    850.  0.197E+00  0.200E+00  0.230E-03  0.276E-13    7  30  16    6  29  13   14  24  22    0.000    0.000       0
    371   0    143 00:36:20.23  15.0000A  -1.5863   1.9488   3.0092  0.088  1.41  -0.150E+01    850.  0.198E+00  0.201E+00  0.238E-03  0.285E-13    5  10  18    5  29  12   14  24  22    0.000    0.000       0
    372   0    144 00:36:35.43  15.2000A  -1.6091   1.9169   2.9513  0.088  1.41  -0.154E+01    850.  0.199E+00  0.201E+00  0.242E-03  0.290E-13    5  10  18    5  29  12   15  24  22    0.000    0.000       0
    373   0    145 00:36:50.53  15.1000A  -1.6253   1.8606   2.9742  0.088  1.41  -0.156E+01    850.  0.199E+00  0.202E+00  0.242E-03  0.289E-13    5  10  18    6  29  13   14  24  23    0.000    0.000       0
    374   0    146 00:37:05.33  14.8000A   1.6733   1.8247   3.0435  0.088  1.41  -0.157E+01    850.  0.200E+00  0.202E+00  0.238E-03  0.283E-13   10   2   1    6  30  13   15  24  23    0.000    0.000       0
    375   0    147 00:37:20.43  15.1000A   1.6830   1.8252   2.9896  0.088  1.41  -0.160E+01    850.  0.201E+00  0.203E+00  0.243E-03  0.289E-13   10   2   1    6  29  12   15  24  23    0.000    0.000       0
    376   0    148 00:37:35.73  15.3000A   1.7228   1.8007   2.9340  0.088  1.41  -0.152E+01    850.  0.201E+00  0.203E+00  0.247E-03  0.293E-13   10   2   2    6  30  12   12  26  16    0.000    0.000       0
    377   0    149 00:37:51.03  15.3000A   1.7699   1.7905   2.9399  0.088  1.41  -0.150E+01    850.  0.202E+00  0.204E+00  0.249E-03  0.294E-13   10   2   2    6  30  12   12  26  16    0.000    0.000       0
    378   0    150 00:38:06.43  15.4000A   1.7813   1.6850   2.9239  0.088  1.41  -0.150E+01    850.  0.203E+00  0.205E+00  0.251E-03  0.296E-13   10   2   2   10  31  16   12  26  16    0.000    0.000       0
    379   0    151 00:38:21.93  15.5000A   1.7704   1.7084   2.9002  0.088  1.41  -0.151E+01    850.  0.203E+00  0.205E+00  0.254E-03  0.298E-13   10   2   2   15  31  16   13  26  16    0.000    0.000       0
    380   0    152 00:38:37.63  15.7000A  -1.7634   1.7338   2.8703  0.088  1.38  -0.160E+01    800.  0.204E+00  0.206E+00  0.259E-03  0.303E-13    6  11  17   15  31  16   13  26  16    0.000    0.000       0
    381   0    153 00:38:53.63  16.0000A  -1.7422   1.7364   2.8097  0.089  1.38  -0.156E+01    800.  0.205E+00  0.207E+00  0.265E-03  0.309E-13    6  11  17   15  31  16   13  26  16    0.000    0.000       0
    382   0    154 00:39:09.83  16.2000A  -1.7319   1.7003   2.7847  0.089  1.38  -0.157E+01    800.  0.206E+00  0.207E+00  0.269E-03  0.313E-13    6  10  16   15  31  16   12  19  11    0.000    0.000       0
    383   0    155 00:39:25.83  16.0000A  -1.6881   1.7217   2.8044  0.089  1.38  -0.151E+01    800.  0.207E+00  0.208E+00  0.266E-03  0.309E-13    6  10  16   16  32  16    6  38  37    0.000    0.000       0
    384   0    156 00:39:41.43  15.6000A   1.6873   1.7292   2.8834  0.090  1.38  -0.151E+01    800.  0.208E+00  0.209E+00  0.261E-03  0.302E-13    7  13  11   16  32  16    7  38  37    0.000    0.000       0
    385   0    157 00:39:56.83  15.4000A   1.6931   1.7043   2.9213  0.090  1.38  -0.151E+01    800.  0.209E+00  0.210E+00  0.258E-03  0.299E-13    7  13  11   15  32  17    7  38  37    0.000    0.000       0
    386   0    158 00:40:12.03  15.2000A  -1.7631   1.6749   2.9664  0.090  1.38  -0.152E+01    800.  0.210E+00  0.211E+00  0.257E-03  0.297E-13    7  10  18   15  32  17    8  38  36    0.000    0.000       0
    387   0    159 00:40:26.73  14.7000A  -1.8237   1.7154   3.0609  0.091  1.38  -0.151E+01    800.  0.211E+00  0.212E+00  0.249E-03  0.289E-13    7  10  18   15  33  17    9  38  36    0.000    0.000       0
    388   0    160 00:40:41.03  14.3000A  -1.8252   1.7108   3.1425  0.091  1.38  -0.152E+01    800.  0.212E+00  0.213E+00  0.244E-03  0.283E-13    7  10  18   15  33  17    9  38  36    0.000    0.000       0
    389   0    161 00:40:54.83  13.8000A  -1.8469   1.6486   3.2591  0.091  1.38  -0.148E+01    800.  0.213E+00  0.214E+00  0.237E-03  0.275E-13    7  10  17   15  33  17   10  38  36    0.000    0.000       0
    390   0    162 00:41:08.43  13.6000A  -1.8831   1.6711   3.3158  0.092  1.38  -0.146E+01    800.  0.214E+00  0.216E+00  0.234E-03  0.272E-13    7  10  17   16  34  17   10  38  36    0.000    0.000       0
    391   0    163 00:41:21.93  13.5000A  -1.8756   1.6558   3.3246  0.092  1.38  -0.144E+01    800.  0.216E+00  0.217E+00  0.233E-03  0.271E-13    9   9  17   16  34  17   11  38  36    0.000    0.000       0
    392   0    164 00:41:35.23  13.3000A  -1.9099   1.5999   3.3883  0.092  1.38  -0.145E+01    800.  0.217E+00  0.218E+00  0.230E-03  0.267E-13    9   9  17   16  34  17   11  38  36    0.000    0.000       0
    393   0    165 00:41:48.63  13.4000A  -1.9272   1.6343   3.3563  0.093  1.38  -0.148E+01    800.  0.219E+00  0.220E+00  0.232E-03  0.269E-13    9   9  17   11  17  11   11  37  36    0.000    0.000       0
    394   0    166 00:42:01.73  13.1000A  -1.9304   1.6460   3.4318  0.093  1.38  -0.153E+01    800.  0.220E+00  0.221E+00  0.227E-03  0.263E-13    9   9  17   11  17  11   12  37  36    0.000    0.000       0
    395   0    167 00:42:14.83  13.1000A  -1.9369   1.6727   3.4408  0.093  1.38  -0.153E+01    800.  0.222E+00  0.223E+00  0.227E-03  0.262E-13    9   9  16    6  13  23   12  37  36    0.000    0.000       0
    396   0    168 00:42:27.93  13.1000A  -1.9583   1.7244   3.4359  0.094  1.38  -0.153E+01    800.  0.224E+00  0.225E+00  0.227E-03  0.262E-13    9   9  16    6  13  23   13  38  35    0.000    0.000       0
    397   0    169 00:42:40.83  12.9000A  -1.9542   1.6652   3.4799  0.094  1.38  -0.148E+01    800.  0.226E+00  0.226E+00  0.224E-03  0.257E-13    9   9  16    6  13  23   13  37  35    0.000    0.000       0
    398   0    170 00:42:53.43  12.6000A  -1.9277   1.6484   3.5802  0.094  1.41  -0.149E+01    850.  0.227E+00  0.228E+00  0.218E-03  0.251E-13    9   9  16    7  13  23   13  37  35    0.000    0.000       0
    399   0    171 00:43:05.53  12.1000A  -1.9744   1.7970   3.7067  0.094  1.41  -0.147E+01    850.  0.229E+00  0.230E+00  0.210E-03  0.241E-13   16  38  33    7  13  23   14  37  35    0.000    0.000       0
    400   0    172 00:43:17.53  12.0000A  -1.9712   1.7847   3.7576  0.094  1.41  -0.144E+01    850.  0.231E+00  0.232E+00  0.208E-03  0.239E-13   16  38  32    7  13  23   14  37  35    0.000    0.000       0
    401   0    173 00:43:29.53  12.0000A  -1.9522   1.6696   3.7489  0.095  1.41  -0.143E+01    850.  0.233E+00  0.234E+00  0.207E-03  0.238E-13   16  38  32    6  13  24   13  35  37    0.000    0.000       0
    402   0    174 00:43:41.43  11.9000A  -1.9097   1.6401   3.7698  0.095  1.43  -0.144E+01    900.  0.235E+00  0.236E+00  0.206E-03  0.236E-13   16  37  34    9  37  34   13  35  37    0.000    0.000       0
    403   0    175 00:43:53.43  12.0000A  -1.9635   1.7114   3.7561  0.095  1.43  -0.150E+01    900.  0.237E+00  0.238E+00  0.207E-03  0.238E-13   17  37  33    7  13  24   13  35  37    0.000    0.000       0
    404   0    176 00:44:05.33  11.9000A  -1.9575   1.7504   3.7690  0.095  1.43  -0.148E+01    900.  0.239E+00  0.240E+00  0.206E-03  0.236E-13   17  36  34   13  30  13   14  35  37    0.000    0.000       0
    405   0    177 00:44:17.33  12.0000A  -1.9934  -1.7824   3.7510  0.095  1.43  -0.149E+01    900.  0.241E+00  0.242E+00  0.207E-03  0.237E-13   17  36  34    7   3   0   14  35  37    0.000    0.000       0
    406   0    178 00:44:29.53  12.2000A  -1.9613  -1.7779   3.7032  0.095  1.43  -0.151E+01    900.  0.243E+00  0.244E+00  0.211E-03  0.241E-13   17  35  34    7   3   0   14  35  37    0.000    0.000       0
    407   0    179 00:44:41.93  12.4000A  -2.0902  -1.7806   3.6302  0.095  1.43  -0.150E+01    900.  0.245E+00  0.246E+00  0.215E-03  0.245E-13   18  36  33    7   2   0   14  35  37    0.000    0.000       0
    408   0    180 00:44:54.63  12.7000A  -2.1697   1.7640   3.5391  0.095  1.43  -0.150E+01    900.  0.247E+00  0.248E+00  0.220E-03  0.251E-13   18  36  33   14  30  13   14  35  37    0.000    0.000       0
    409   0    181 00:45:07.73  13.1000A  -2.1866   1.8097   3.4378  0.095  1.43  -0.150E+01    900.  0.250E+00  0.250E+00  0.228E-03  0.258E-13   18  36  32   14  30  13   14  35  37    0.000    0.000       0
    410   0    182 00:45:20.93  13.2000A  -2.1004   1.8603   3.4167  0.095  1.43  -0.148E+01    900.  0.252E+00  0.253E+00  0.230E-03  0.261E-13   18  36  32   14  31  13   12  27  19    0.000    0.000       0
    411   0    183 00:45:33.93  13.0000A  -2.1511   1.8803   3.4715  0.095  1.43  -0.148E+01    900.  0.254E+00  0.255E+00  0.228E-03  0.257E-13   18  35  33   14  31  13   12  27  19    0.000    0.000       0
    412   0    184 00:45:46.73  12.8000A  -2.0333   1.8484   3.5034  0.094  1.41  -0.148E+01    850.  0.257E+00  0.258E+00  0.226E-03  0.254E-13   18  35  33   14  31  13   13  27  19    0.000    0.000       0
    413   0    185 00:45:59.43  12.7000A  -1.9856   1.7671   3.5422  0.094  1.41  -0.147E+01    850.  0.259E+00  0.260E+00  0.225E-03  0.253E-13   19  36  32   14  31  13   13  27  19    0.000    0.000       0
    414   0    186 00:46:12.13  12.7000A  -1.9793   1.8141   3.5472  0.095  1.41  -0.148E+01    850.  0.261E+00  0.262E+00  0.226E-03  0.254E-13   19  36  31   15  31  13   13  27  19    0.000    0.000       0
    415   0    187 00:46:24.83  12.7000A  -2.0450   1.8636   3.5335  0.095  1.41  -0.147E+01    850.  0.264E+00  0.265E+00  0.227E-03  0.255E-13   19  36  31   15  32  12   14  27  19    0.000    0.000       0
    416   0    188 00:46:37.23  12.4000A  -1.9751   1.8908   3.6233  0.095  1.41  -0.146E+01    850.  0.266E+00  0.267E+00  0.223E-03  0.250E-13   19  34  34   15  32  12   12  27  17    0.000    0.000       0
    417   0    189 00:46:49.33  12.1000A  -1.9859   1.8800   3.7117  0.095  1.41  -0.147E+01    850.  0.268E+00  0.270E+00  0.218E-03  0.245E-13   19  34  35   15  32  13   12  27  17    0.000    0.000       0
    418   0    190 00:47:01.23  11.9000A  -1.9649   1.8669   3.7906  0.095  1.43  -0.153E+01    900.  0.270E+00  0.272E+00  0.215E-03  0.243E-13   19  34  35   15  32  13   13  27  17    0.000    0.000       0
    419   0    191 00:47:12.83  11.6000A  -1.9177   1.8155   3.8747  0.095  1.43  -0.152E+01    900.  0.272E+00  0.274E+00  0.210E-03  0.238E-13   19  34  35   15  33  12   13  27  17    0.000    0.000       0
    420   0    192 00:47:24.33  11.5000A  -1.9172   1.8023   3.9215  0.095  1.43  -0.149E+01    900.  0.274E+00  0.276E+00  0.209E-03  0.237E-13   19  33  33   15  33  12   13  27  17    0.000    0.000       0
    421   0    193 00:47:35.63  11.3000A  -1.9288   1.7679   3.9898  0.095  1.43  -0.153E+01    900.  0.275E+00  0.278E+00  0.205E-03  0.234E-13   19  33  34   17  31  16   14  27  17    0.000    0.000       0
    422   0    194 00:47:46.83  11.2000A  -1.9283   1.7499   4.0174  0.095  1.43  -0.158E+01    900.  0.277E+00  0.279E+00  0.203E-03  0.233E-13   19  33  34   17  31  16   14  27  17    0.000    0.000       0
    423   0    195 00:47:57.93  11.1000A  -1.9260   1.8121   4.0520  0.096  1.43  -0.156E+01    900.  0.278E+00  0.280E+00  0.202E-03  0.232E-13   19  33  33   18  31  16   15  27  17    0.000    0.000       0
    424   0    196 00:48:09.03  11.1000A   1.9138   1.8812   4.0589  0.096  1.43  -0.151E+01    900.  0.279E+00  0.282E+00  0.202E-03  0.233E-13   19  26  23   18  31  16   15  27  17    0.000    0.000       0
    425   0    197 00:48:20.23  11.2000A   1.9491   1.8188   4.0098  0.096  1.43  -0.165E+01    900.  0.279E+00  0.283E+00  0.204E-03  0.236E-13   19  26  23   10  18   8   15  27  17    0.000    0.000       0
    426   0    198 00:48:31.53  11.3000A   1.9486   1.8243   3.9990  0.096  1.43  -0.154E+01    900.  0.280E+00  0.283E+00  0.206E-03  0.240E-13   19  26  23   18  32  16   16  27  17    0.000    0.000       0
    427   0    199 00:48:43.03  11.5000A   1.9928   1.8240   3.9242  0.097  1.43  -0.147E+01    900.  0.280E+00  0.284E+00  0.210E-03  0.245E-13   19  25  23   18  32  16   16  27  17    0.000    0.000       0
    428   0    200 00:48:54.93  11.9000A   2.0447  -1.8354   3.7936  0.097  1.43  -0.147E+01    900.  0.281E+00  0.284E+00  0.218E-03  0.255E-13   19  25  23   11  39   1   16  27  17    0.000    0.000       0
    429   0    201 00:49:06.83  11.9000A   2.0545  -1.8822   3.7669  0.097  1.43  -0.154E+01    900.  0.281E+00  0.284E+00  0.219E-03  0.256E-13   19  25  23   11  39   1   16  26  17    0.000    0.000       0
    430   0    202 00:49:18.93  12.1000A   2.0294  -1.8918   3.7184  0.098  1.43  -0.146E+01    900.  0.281E+00  0.284E+00  0.224E-03  0.261E-13   19  25  23   11  39   1   16  26  17    0.000    0.000       0
    431   0    203 00:49:30.93  12.0000A   2.0628  -1.8742   3.7491  0.098  1.43  -0.143E+01    900.  0.281E+00  0.284E+00  0.223E-03  0.260E-13   19  24  23   11  39   1   10  14  22    0.000    0.000       0
    432   0    204 00:49:42.93  12.0000A   2.0971  -1.8691   3.7547  0.098  1.43  -0.143E+01    900.  0.281E+00  0.284E+00  0.225E-03  0.260E-13   19  24  23   12  38   1   10  14  22    0.000    0.000       0
    433   0    205 00:49:55.03  12.1000A  -2.0862  -1.9102   3.7240  0.099  1.43  -0.143E+01    900.  0.281E+00  0.284E+00  0.228E-03  0.263E-13   17  37  32   12  38   1   11  14  22    0.000    0.000       0
    434   0    206 00:50:07.23  12.2000A  -2.0905  -1.9145   3.7023  0.099  1.41  -0.137E+01    850.  0.281E+00  0.284E+00  0.231E-03  0.266E-13   17  37  32   12  38   1   11  14  22    0.000    0.000       0
    435   0    207 00:50:19.73  12.5000A  -2.1722  -1.9829   3.6048  0.099  1.41  -0.135E+01    850.  0.281E+00  0.284E+00  0.238E-03  0.274E-13   17  36  31   16  11  21   12  14  22    0.000    0.000       0
    436   0    208 00:50:32.33  12.6000A  -2.2555  -2.0562   3.5616  0.100  1.41  -0.135E+01    850.  0.281E+00  0.285E+00  0.241E-03  0.277E-13   17  36  31   16  11  21   12  14  22    0.000    0.000       0
    437   0    209 00:50:45.33  13.0000A  -2.2942  -2.0814   3.4709  0.100  1.41  -0.135E+01    850.  0.281E+00  0.285E+00  0.250E-03  0.286E-13   17  36  31   16  11  21   11  14  21    0.000    0.000       0
    438   0    210 00:50:58.23  12.9000A  -2.2962  -2.0729   3.4884  0.101  1.41  -0.134E+01    850.  0.281E+00  0.285E+00  0.249E-03  0.285E-13   17  36  31   16  11  21   13  13  21    0.000    0.000       0
    439   0    211 00:51:11.13  12.9000A  -2.2708  -2.1941   3.4777  0.101  1.41  -0.133E+01    850.  0.282E+00  0.285E+00  0.250E-03  0.285E-13   17  36  31   17  10  21   13  13  21    0.000    0.000       0
    440   0    212 00:51:24.53  13.4000A  -2.2516  -2.2734   3.3579  0.101  1.38  -0.133E+01    800.  0.282E+00  0.286E+00  0.261E-03  0.296E-13   17  36  30   17  10  21   13  13  21    0.000    0.000       0
    441   0    213 00:51:37.63  13.1000A  -2.3359  -2.3003   3.4415  0.101  1.38  -0.132E+01    800.  0.282E+00  0.286E+00  0.255E-03  0.289E-13   16  36  29   17  10  21   10  29  22    0.000    0.000       0
    442   0    214 00:51:50.73  13.1000A  -2.3172  -2.2864   3.4327  0.101  1.38  -0.131E+01    800.  0.283E+00  0.286E+00  0.255E-03  0.289E-13   16  36  29   17  10  20   10  29  22    0.000    0.000       0
    443   0    215 00:52:03.93  13.2000A  -2.3376  -2.2619   3.4039  0.102  1.38  -0.130E+01    800.  0.283E+00  0.287E+00  0.257E-03  0.291E-13   16  36  28   17  10  20   11  15  20    0.000    0.000       0
    444   0    216 00:52:17.33  13.4000A  -2.3173  -2.2088   3.3700  0.102  1.38  -0.129E+01    800.  0.283E+00  0.287E+00  0.261E-03  0.295E-13   16  36  28   18   9  21   11  15  20    0.000    0.000       0
    445   0    217 00:52:30.53  13.2000A  -2.2072  -2.2495   3.4138  0.102  1.38  -0.129E+01    800.  0.284E+00  0.287E+00  0.256E-03  0.291E-13   16  36  28   18   9  21   12  15  20    0.000    0.000       0
    446   0    218 00:52:43.93  13.4000A  -2.1856  -2.2585   3.3599  0.102  1.38  -0.129E+01    800.  0.284E+00  0.288E+00  0.260E-03  0.295E-13   16  35  28   18   9  21   12  15  20    0.000    0.000       0
    447   0    219 00:52:57.13  13.2000A  -2.1054  -2.2597   3.3981  0.101  1.38  -0.130E+01    800.  0.285E+00  0.288E+00  0.256E-03  0.290E-13   16  35  28   18   8  21   13  15  20    0.000    0.000       0
    448   0    220 00:53:10.63  13.5000A  -2.0659  -2.2661   3.3364  0.101  1.38  -0.131E+01    800.  0.285E+00  0.289E+00  0.261E-03  0.296E-13   16  35  27   18   8  21   13  15  20    0.000    0.000       0
    449   0    221 00:53:24.03  13.4000A  -2.0469  -2.2412   3.3682  0.101  1.38  -0.136E+01    800.  0.286E+00  0.289E+00  0.260E-03  0.293E-13   15  36  26   18   8  21   14  15  20    0.000    0.000       0
    450   0    222 00:53:37.63  13.6000A  -2.0226   2.2442   3.3003  0.101  1.38  -0.134E+01    800.  0.287E+00  0.290E+00  0.264E-03  0.298E-13   15  36  26   11   1  33   14  15  20    0.000    0.000       0
    451   0    223 00:53:51.33  13.7000A  -2.0032   2.2579   3.2736  0.100  1.38  -0.134E+01    800.  0.288E+00  0.291E+00  0.267E-03  0.300E-13   15  35  26   11   1  33   15  15  20    0.000    0.000       0
    452   0    224 00:54:05.33  14.0000A  -1.9354   2.2267   3.2037  0.100  1.43  -0.135E+01    900.  0.289E+00  0.292E+00  0.274E-03  0.306E-13   15  35  26   11   1  33   15  15  20    0.000    0.000       0
    453   0    225 00:54:19.33  14.0000A   1.8526   2.1765   3.2042  0.100  1.43  -0.137E+01    900.  0.290E+00  0.292E+00  0.275E-03  0.306E-13   18  37   3   12   2  33    8  24  19    0.000    0.000       0
    454   0    226 00:54:33.33  14.0000A   1.8286   2.1939   3.2118  0.099  1.43  -0.137E+01    900.  0.291E+00  0.293E+00  0.276E-03  0.306E-13   18  37   4   13   2  32    9  24  19    0.000    0.000       0
    455   0    227 00:54:47.03  13.7000A  -1.8187   2.2026   3.2762  0.099  1.43  -0.137E+01    900.  0.291E+00  0.294E+00  0.271E-03  0.300E-13   14  34  34   13   2  32    7  24  19    0.000    0.000       0
    456   0    228 00:55:00.63  13.6000A  -1.9592   2.2377   3.3122  0.099  1.43  -0.141E+01    900.  0.292E+00  0.294E+00  0.269E-03  0.299E-13   14  35  33   12   2  32    7  24  19    0.000    0.000       0
    457   0    229 00:55:13.83  13.2000A  -2.0859   2.2217   3.4151  0.098  1.43  -0.136E+01    900.  0.292E+00  0.295E+00  0.262E-03  0.291E-13   14  35  33   12   2  32    8  24  19    0.000    0.000       0
    458   0    230 00:55:26.83  13.0000A  -2.1155   2.1620   3.4681  0.098  1.43  -0.135E+01    900.  0.293E+00  0.295E+00  0.259E-03  0.287E-13   14  35  33   12   2  32    8  24  19    0.000    0.000       0
    459   0    231 00:55:39.83  13.0000A  -2.1634   2.1815   3.4743  0.097  1.43  -0.138E+01    900.  0.293E+00  0.296E+00  0.259E-03  0.288E-13   14  36  32   12   3  32    8  24  19    0.000    0.000       0
    460   0    232 00:55:52.63  12.8000A  -2.2142   2.2026   3.5212  0.097  1.43  -0.136E+01    900.  0.294E+00  0.296E+00  0.256E-03  0.284E-13   14  36  32   12   3  32    9  24  19    0.000    0.000       0
    461   0    233 00:56:05.13  12.5000A  -2.2226   2.1848   3.5908  0.097  1.43  -0.134E+01    900.  0.294E+00  0.296E+00  0.251E-03  0.278E-13   14  36  32   12   3  32    9  24  19    0.000    0.000       0
    462   0    234 00:56:17.53  12.4000A  -2.1962   2.1370   3.6283  0.096  1.43  -0.135E+01    900.  0.295E+00  0.297E+00  0.250E-03  0.277E-13   14  36  32   12   3  32    9  24  19    0.000    0.000       0
    463   0    235 00:56:29.73  12.2000A  -2.1538   2.0662   3.6908  0.096  1.43  -0.137E+01    900.  0.295E+00  0.297E+00  0.246E-03  0.273E-13   14  37  32   12   3  32   10  24  20    0.000    0.000       0
    464   0    236 00:56:41.63  11.9000A   2.2926   1.9795   3.7819  0.096  1.40  -0.141E+01    850.  0.296E+00  0.298E+00  0.241E-03  0.266E-13   13  23  23   12   4  32   10  24  20    0.000    0.000       0
    465   0    237 00:56:53.53  11.9000A   2.4879  -2.0658   3.7914  0.096  1.40  -0.156E+01    850.  0.296E+00  0.298E+00  0.241E-03  0.266E-13   13  23  23   15  14  18   10  24  20    0.000    0.000       0
    466   0    238 00:57:05.23  11.7000A   2.5308  -2.0787   3.8604  0.095  1.40  -0.139E+01    850.  0.296E+00  0.298E+00  0.237E-03  0.262E-13   13  23  23   15  14  18   11  24  20    0.000    0.000       0
    467   0    239 00:57:16.83  11.6000A   2.4543  -2.0061   3.8780  0.095  1.40  -0.136E+01    850.  0.297E+00  0.299E+00  0.235E-03  0.260E-13   13  23  23   15  14  18   11  24  20    0.000    0.000       0
    468   0    240 00:57:28.53  11.7000A   2.5765  -1.9509   3.8404  0.095  1.43  -0.135E+01    900.  0.297E+00  0.299E+00  0.237E-03  0.261E-13   14  23  24   15  14  17   11  24  20    0.000    0.000       0
    469   0    241 00:57:40.43  11.9000A   2.7843  -1.9425   3.7828  0.094  1.43  -0.135E+01    900.  0.297E+00  0.299E+00  0.241E-03  0.265E-13   14  23  24   15  13  17   11  24  20    0.000    0.000       0
    470   0    242 00:57:52.43  12.0000A   2.7850  -1.9770   3.7573  0.094  1.43  -0.136E+01    900.  0.297E+00  0.299E+00  0.243E-03  0.267E-13   14  23  24   15  13  17   12  24  20    0.000    0.000       0
    471   0    243 00:58:04.43  12.0000A   2.6600  -1.9775   3.7358  0.094  1.43  -0.137E+01    900.  0.296E+00  0.298E+00  0.243E-03  0.267E-13   14  23  25   17  38   6   12  24  20    0.000    0.000       0
    472   0    244 00:58:16.63  12.2000A   2.5855  -1.9419   3.6974  0.093  1.43  -0.138E+01    900.  0.296E+00  0.298E+00  0.247E-03  0.271E-13   15  23  24   17  38   6   12  24  20    0.000    0.000       0
    473   0    245 00:58:28.83  12.2000A   2.6669   1.9855   3.6789  0.093  1.43  -0.138E+01    900.  0.295E+00  0.298E+00  0.247E-03  0.272E-13   15  23  25    9  17  24   11  23  18    0.000    0.000       0
    474   0    246 00:58:40.83  12.0000A   2.5808   2.0433   3.7357  0.092  1.43  -0.140E+01    900.  0.295E+00  0.297E+00  0.243E-03  0.267E-13   15  23  25    9  17  24   11  23  18    0.000    0.000       0
    475   0    247 00:58:52.83  12.0000A   2.4882   2.0625   3.7551  0.092  1.43  -0.142E+01    900.  0.294E+00  0.296E+00  0.243E-03  0.268E-13   15  23  26    9  17  24   11  23  18    0.000    0.000       0
    476   0    248 00:59:04.73  11.9000A   2.3305   2.0541   3.7681  0.092  1.43  -0.142E+01    900.  0.293E+00  0.296E+00  0.241E-03  0.266E-13   15  23  26    9  17  24   12  23  18    0.000    0.000       0
    477   0    249 00:59:16.63  11.9000A  -2.2770   2.0301   3.7872  0.091  1.43  -0.145E+01    900.  0.293E+00  0.295E+00  0.242E-03  0.266E-13   15  23  12    9  17  24   12  23  18    0.000    0.000       0
    478   0    250 00:59:28.33  11.7000A  -2.3207  -2.0141   3.8619  0.091  1.43  -0.143E+01    900.  0.292E+00  0.294E+00  0.238E-03  0.262E-13   17  18  13   16  36   7   11  22  18    0.000    0.000       0
    479   0    251 00:59:39.73  11.4000A  -2.3017   2.0035   3.9583  0.091  1.43  -0.144E+01    900.  0.291E+00  0.293E+00  0.232E-03  0.256E-13   17  18  13    9  18  24   12  22  18    0.000    0.000       0
    480   0    252 00:59:50.93  11.2000A  -2.2327   2.0003   4.0168  0.091  1.43  -0.152E+01    900.  0.290E+00  0.292E+00  0.229E-03  0.252E-13   16  23  11    9  18  24   13  22  18    0.000    0.000       0
    481   0    253 01:00:01.93  11.0000A  -2.2037   1.9839   4.0832  0.090  1.43  -0.147E+01    900.  0.289E+00  0.291E+00  0.225E-03  0.248E-13   16  23  11    9  18  24   13  22  18    0.000    0.000       0
     229  0      1 00:00:20.00  20.0000A  -0.2192  -0.2169  -0.1214  0.007  0.69  -0.209E+02    100.  0.105E-02  0.948E-03  0.491E-05  0.355E-15   11  32   5    5  37  29    4  26   0    0.000    0.000       0
     230  0      2 00:00:40.00  20.0000D  -0.2151  -0.2176  -0.1209  0.007  0.69  -0.211E+02    100.  0.104E-02  0.940E-03  0.803E-05  0.359E-15   11  32   5    5  37  29    4  26   0    0.000    0.000       0
     231  0      3 00:01:00.00  20.0000D  -0.2107  -0.2178  -0.1204  0.007  0.69  -0.212E+02    100.  0.103E-02  0.932E-03  0.111E-04  0.363E-15   11  32   5    5  37  29    4  26   0    0.000    0.000       0
     232  0      4 00:01:20.00  20.0000D  -0.2060  -0.2177  -0.1199  0.007  0.69  -0.212E+02    100.  0.102E-02  0.924E-03  0.142E-04  0.366E-15   11  32   5    4   5   2    4  26   0    0.000    0.000       0
     233  0      5 00:01:40.00  20.0000D  -0.2011  -0.2184  -0.1194  0.007  0.93  -0.212E+02    250.  0.101E-02  0.916E-03  0.173E-04  0.369E-15   11  32   5    4   5   2    4  26   0    0.000    0.000       0
     234  0      6 00:02:00.00  20.0000D  -0.1959  -0.2186  -0.1188  0.007  0.93  -0.210E+02    250.  0.100E-02  0.908E-03  0.204E-04  0.370E-15   11  32   5    4   5   2    4  26   0    0.000    0.000       0
     235  0      7 00:02:20.00  20.0000D  -0.1942  -0.2183  -0.1182  0.007  1.22  -0.208E+02    550.  0.994E-03  0.900E-03  0.235E-04  0.371E-15   11  32   4    4   5   2    4  26   0    0.000    0.000       0
     236  0      8 00:02:40.00  20.0000D  -0.1948D -0.2177D -0.1175  0.009  1.22  -0.172E+02    550.  0.204E-02  0.892E-03  0.516E-03  0.735E-13   11  32   4    4   5   2    4  26   0    0.000    0.000       0
     237  0      9 00:03:00.00  20.0000D   0.3635  -0.2778  -0.1533  0.009  1.22  -0.163E+02    550.  0.201E-02  0.182E-02  0.321E-04  0.743E-15    4  35   4    7  14  12    5  10  39    0.000    0.000       0
     238  0     10 00:03:20.00  20.0000D   0.3563  -0.2763  -0.1517  0.010  1.22  -0.156E+02    550.  0.198E-02  0.180E-02  0.351E-04  0.740E-15    4  35   4    7  14  12    5  10  39    0.000    0.000       0
     239  0     11 00:03:40.00  20.0000D   0.3475  -0.2747  -0.1498  0.010  1.22  -0.150E+02    550.  0.195E-02  0.177E-02  0.381E-04  0.740E-15    4  35   4    6  29  30    5  10  39    0.000    0.000       0
     240  0     12 00:04:00.00  20.0000D   0.3374  -0.2747  -0.1476  0.010  1.22  -0.146E+02    550.  0.193E-02  0.175E-02  0.410E-04  0.742E-15    4  35   4    6  29  30    5  10  39    0.000    0.000       0
     241  0     13 00:04:20.00  20.0000D   0.3262  -0.2735  -0.1451  0.011  1.22  -0.156E+02    550.  0.190E-02  0.173E-02  0.439E-04  0.745E-15    4  35   4    6  29  30    5  10  39    0.000    0.000       0
     242  0     14 00:04:40.00  20.0000D   0.3249  -0.2712  -0.1455  0.012  1.22  -0.129E+02    550.  0.188E-02  0.171E-02  0.468E-04  0.750E-15    4  35   5    6  29  30    6  23   4    0.000    0.000       0
     243  0     15 00:05:00.00  20.0000D   0.3275D -0.2694D -0.1470  0.013  1.22  -0.110E+02    550.  0.293E-02  0.169E-02  0.529E-03  0.720E-13    4  35   5    7  13  38    6  23   4    0.000    0.000       0
     244  0     16 00:05:20.00  20.0000D   0.3781  -0.3667  -0.2151  0.014  1.22  -0.105E+02    550.  0.288E-02  0.262E-02  0.547E-04  0.110E-14   11  16  39    7  13  12    8  21  26    0.000    0.000       0
     245  0     17 00:05:40.00  20.0000D   0.3741  -0.3587  -0.2156  0.014  1.22  -0.994E+01    550.  0.284E-02  0.258E-02  0.574E-04  0.110E-14   11  16  39    7  15  26    8  21  26    0.000    0.000       0
     246  0     18 00:06:00.00  20.0000D   0.3717  -0.3525  -0.2156  0.015  1.22  -0.934E+01    550.  0.279E-02  0.255E-02  0.600E-04  0.111E-14    6   3  26    7  15  26    8  21  26    0.000    0.000       0
     247  0     19 00:06:20.00  20.0000D  -0.3700  -0.3447  -0.2153  0.016  1.22  -0.884E+01    550.  0.276E-02  0.251E-02  0.627E-04  0.112E-14    6  12  31    7  15  26    8  21  26    0.000    0.000       0
     248  0     20 00:06:40.00  20.0000D  -0.3674  -0.3439  -0.2146  0.018  1.22  -0.790E+01    550.  0.273E-02  0.249E-02  0.652E-04  0.114E-14    6  12  31    8  34  19    8  21  26    0.000    0.000       0
     249  0     21 00:07:00.00  20.0000D  -0.3633  -0.3493  -0.2135  0.019  1.22  -0.754E+01    550.  0.270E-02  0.246E-02  0.678E-04  0.117E-14    6  12  31    7  14  26    8  21  26    0.000    0.000       0
     250  0     22 00:07:20.00  20.0000D  -0.3577  -0.3559   0.2347  0.020  1.22  -0.721E+01    550.  0.268E-02  0.245E-02  0.703E-04  0.120E-14    6  12  31    7  14  26    2  15  28    0.000    0.000       0
     251  0     23 00:07:40.00  20.0000D  -0.3509D -0.3603D  0.2630  0.022  1.22  -0.561E+01    550.  0.377E-02  0.244E-02  0.553E-03  0.750E-13    6  12  31    7  14  26    2  15  28    0.000    0.000       0
     252  0     24 00:08:00.00  20.0000D   0.4111   0.4184   0.3257  0.023  1.18  -0.518E+01    500.  0.374E-02  0.341E-02  0.772E-04  0.164E-14    8  36  11   10  34  34    2  15  28    0.000    0.000       0
     253  0     25 00:08:20.00  20.0000D  -0.4114   0.4102   0.3617  0.025  1.18  -0.480E+01    500.  0.373E-02  0.340E-02  0.794E-04  0.169E-14    5  15  27   10  34  34    2  15  28    0.000    0.000       0
     254  0     26 00:08:40.00  20.0000D  -0.4168   0.3992   0.4044  0.027  1.18  -0.447E+01    500.  0.375E-02  0.342E-02  0.815E-04  0.176E-14    5  15  27   10  34  34    2  15  28    0.000    0.000       0
     255  0     27 00:09:00.00  20.0000D  -0.4215   0.3858   0.4541  0.029  1.18  -0.410E+01    500.  0.380E-02  0.346E-02  0.836E-04  0.185E-14    5  15  27   10  34  34    2  15  28    0.000    0.000       0
     256  0     28 00:09:20.00  20.0000D  -0.4258  -0.3825   0.5110  0.031  1.18  -0.380E+01    500.  0.390E-02  0.354E-02  0.855E-04  0.196E-14    5  15  27    9  21  22    2  15  28    0.000    0.000       0
     257  0     29 00:09:40.00  20.0000D  -0.4301  -0.3813   0.5753  0.033  1.18  -0.356E+01    500.  0.405E-02  0.368E-02  0.872E-04  0.210E-14    5  15  27    9  21  22    2  15  28    0.000    0.000       0
     258  0     30 00:10:00.00  20.0000D  -0.4347D -0.3771D  0.6466  0.036  1.18  -0.330E+01    500.  0.530E-02  0.387E-02  0.556E-03  0.730E-13    5  15  27    9  21  22    2  15  28    0.000    0.000       0
     259  0     31 00:10:20.00  20.0000D  -0.4450   0.4334   0.7023  0.039  1.18  -0.309E+01    500.  0.558E-02  0.505E-02  0.922E-04  0.278E-14    6  11  30    9  20  25    3  14  27    0.000    0.000       0
     260  0     32 00:10:40.00  20.0000D  -0.4498   0.4330   0.8056  0.041  1.18  -0.281E+01    500.  0.600E-02  0.542E-02  0.932E-04  0.303E-14    6  11  30    9  20  25    3  15  28    0.000    0.000       0
     261  0     33 00:11:00.00  20.0000D  -0.4498   0.4286   0.9351  0.044  1.18  -0.261E+01    500.  0.658E-02  0.593E-02  0.941E-04  0.333E-14    6  11  30    9  20  25    3  15  28    0.000    0.000       0
     262  0     34 00:11:20.00  20.0000A  -0.4721   0.4204   1.0744  0.047  1.18  -0.245E+01    500.  0.740E-02  0.665E-02  0.946E-04  0.370E-14    5  15  26    9  20  25    3  15  28    0.000    0.000       0
     263  0     35 00:11:40.00  20.0000A  -0.5211   0.4566   1.2184  0.051  1.18  -0.226E+01    500.  0.850E-02  0.762E-02  0.949E-04  0.414E-14    5  15  26    1  13  27    3  15  28    0.000    0.000       0
     264  0     36 00:12:00.00  20.0000A  -0.5629   0.5020   1.3740  0.054  1.18  -0.211E+01    500.  0.997E-02  0.892E-02  0.951E-04  0.468E-14    5  15  26    1  13  27    3  20  36    0.000    0.000       0
     265  0     37 00:12:20.00  20.0000A  -0.6025   0.5465   1.5323  0.057  1.18  -0.199E+01    500.  0.119E-01  0.106E-01  0.952E-04  0.531E-14    1  14  30    1  13  27    3  20  36    0.000    0.000       0
     266  0     38 00:12:40.00  20.0000A  -0.6550   0.5883   1.7521  0.061  1.05  -0.187E+01    350.  0.145E-01  0.129E-01  0.956E-04  0.605E-14    1  15  29    1  13  27    4  20  36    0.000    0.000       0
     267  0     39 00:13:00.00  20.0000A  -0.7118   0.6253   1.9777  0.064  1.18  -0.178E+01    500.  0.177E-01  0.158E-01  0.965E-04  0.692E-14    1  15  29    1  13  27    4  20  36    0.000    0.000       0
     268  0     40 00:13:20.00  20.0000A  -0.7645   0.6669   2.1611  0.067  1.09  -0.170E+01    400.  0.218E-01  0.195E-01  0.984E-04  0.793E-14    1  15  29    1  39   9    4  19  36    0.000    0.000       0
     269  0     41 00:13:38.80  18.8000A  -0.8108   0.7281   2.3881  0.070  1.28  -0.162E+01    650.  0.267E-01  0.240E-01  0.953E-04  0.849E-14    1  15  29    1  39   8    5  19  36    0.000    0.000       0
     270  0     42 00:13:56.00  17.2000A  -0.8467   0.7877   2.6238  0.073  1.14  -0.156E+01    450.  0.320E-01  0.291E-01  0.903E-04  0.874E-14    1  15  29    7  22  36    5  19  36    0.000    0.000       0
     271  0     43 00:14:12.00  16.0000A  -0.8738   0.8207   2.8178  0.075  1.14  -0.151E+01    450.  0.378E-01  0.346E-01  0.875E-04  0.908E-14    1  14   4    1  39   8    5  19  36    0.000    0.000       0
     272  0     44 00:14:26.90  14.9000A  -0.9242   0.8536   3.0242  0.077  1.18  -0.148E+01    500.  0.440E-01  0.406E-01  0.851E-04  0.935E-14    1  14   4    1  20  22    6  19  36    0.000    0.000       0
     273  0     45 00:14:40.90  14.0000A  -0.9628   0.8865   3.2222  0.079  1.18  -0.146E+01    500.  0.505E-01  0.469E-01  0.839E-04  0.964E-14    1  14   4    1  20  22    6  19  36    0.000    0.000       0
     274  0     46 00:14:54.20  13.3000A  -0.9907   0.9133   3.3786  0.081  1.22  -0.144E+01    550.  0.575E-01  0.536E-01  0.837E-04  0.997E-14    1  14   4    1  20  22    7  19  36    0.000    0.000       0
     275  0     47 00:15:06.80  12.6000A  -1.0091   0.9363   3.5748  0.082  1.22  -0.145E+01    550.  0.646E-01  0.606E-01  0.834E-04  0.102E-13    1  14   4    1  29  28    7  19  36    0.000    0.000       0
     276  0     48 00:15:18.90  12.1000A   1.0505   0.9826   3.7136  0.083  1.28  -0.139E+01    650.  0.720E-01  0.679E-01  0.840E-04  0.106E-13    1  31  18    7   3   7    7  19  36    0.000    0.000       0
     277  0     49 00:15:30.50  11.6000A   1.0861   1.0067   3.8638  0.084  1.28  -0.137E+01    650.  0.797E-01  0.753E-01  0.847E-04  0.109E-13    1  31  18    7   3   7    8  19  36    0.000    0.000       0
     278  0     50 00:15:41.80  11.3000A   1.1153  -1.0250   3.9976  0.085  1.28  -0.135E+01    650.  0.875E-01  0.830E-01  0.866E-04  0.113E-13    1  31  18    1   9  25    8  19  36    0.000    0.000       0
     279  0     51 00:15:52.80  11.0000A   1.1385   1.0648   4.0926  0.086  1.28  -0.132E+01    650.  0.956E-01  0.909E-01  0.885E-04  0.117E-13    1  31  18    7   2   6    9  19  36    0.000    0.000       0
     280  0     52 00:16:03.50  10.7000A   1.1555   1.1097   4.2202  0.087  1.29  -0.131E+01    650.  0.104E+00  0.989E-01  0.901E-04  0.121E-13    1  31  18    8   3   7    9  19  36    0.000    0.000       0
     281  0     53 00:16:14.00  10.5000A   1.1658   1.1534   4.2697  0.087  1.38  -0.130E+01    800.  0.112E+00  0.107E+00  0.924E-04  0.125E-13    1  31  18    8  16   2    9  19  36    0.000    0.000       0
     282  0     54 00:16:24.30  10.3000A   1.1690  -1.1220   4.3849  0.088  1.38  -0.129E+01    800.  0.121E+00  0.115E+00  0.947E-04  0.129E-13    1  31  18    1   9  25   10  19  36    0.000    0.000       0
     283  0     55 00:16:34.50  10.2000A   1.1707   1.2039   4.4322  0.088  1.38  -0.130E+01    800.  0.129E+00  0.124E+00  0.978E-04  0.134E-13    1  37  15    9  16   2   10  19  36    0.000    0.000       0
     284  0     56 00:16:44.49   9.9900A   1.1799   1.2838   4.5053  0.089  1.38  -0.128E+01    800.  0.138E+00  0.132E+00  0.999E-04  0.138E-13    1  37  15    9  16   2   11  19  36    0.000    0.000       0
     285  0     57 00:16:54.39   9.9000A  -1.2237   1.2380   4.5461  0.089  1.38  -0.127E+01    800.  0.146E+00  0.141E+00  0.103E-03  0.143E-13    4  35   3    6  20  34   11  19  36    0.000    0.000       0
     286  0     58 00:17:04.22   9.8300A  -1.3001   1.2974   4.5765  0.090  1.38  -0.127E+01    800.  0.155E+00  0.149E+00  0.106E-03  0.148E-13    4  35   3   10  17   2   12  19  36    0.000    0.000       0
     287  0     59 00:17:13.98   9.7600A  -1.3624   1.4342   4.6103  0.090  1.38  -0.126E+01    800.  0.164E+00  0.158E+00  0.109E-03  0.153E-13    4  35   3   10  17   2   12  19  36    0.000    0.000       0
     288  0     60 00:17:23.74   9.7600A  -1.4114   1.3960   4.6084  0.090  1.38  -0.126E+01    800.  0.172E+00  0.166E+00  0.113E-03  0.158E-13    4  35   3   10  17   2   13  19  36    0.000    0.000       0
     289  0     61 00:17:33.45   9.7100A  -1.4485   1.4836   4.6323  0.091  1.41  -0.127E+01    850.  0.181E+00  0.175E+00  0.116E-03  0.164E-13    4  35   3   11  17   2   13  19  36    0.000    0.000       0
     290  0     62 00:17:43.22   9.7700A  -1.4746   1.5825   4.6041  0.091  1.41  -0.126E+01    850.  0.189E+00  0.183E+00  0.121E-03  0.171E-13    4  35   3   11  17   2   14  19  36    0.000    0.000       0
     291  0     63 00:17:52.98   9.7600A  -1.4903   1.5018   4.6129  0.091  1.41  -0.125E+01    850.  0.198E+00  0.192E+00  0.124E-03  0.176E-13    4  35   3   11  17   2   14  19  36    0.000    0.000       0
     292  0     64 00:18:02.84   9.8600A  -1.5183   1.6243   4.5619  0.092  1.41  -0.126E+01    850.  0.206E+00  0.200E+00  0.130E-03  0.184E-13    4  35   2   12  17   2   14  15  27    0.000    0.000       0
     293  0     65 00:18:12.72   9.8800A  -1.5480   1.6763   4.5548  0.092  1.41  -0.125E+01    850.  0.214E+00  0.209E+00  0.134E-03  0.190E-13    4  35   2   12  17   2   15  15  27    0.000    0.000       0
     294  0     66 00:18:22.54   9.8200A  -1.5675  -1.6066   4.5845  0.092  1.41  -0.124E+01    850.  0.222E+00  0.217E+00  0.137E-03  0.195E-13    4  35   2   10   4  39   15  15  27    0.000    0.000       0
     295  0     67 00:18:32.44   9.9000A  -1.5761   1.6829   4.5438  0.093  1.41  -0.124E+01    850.  0.230E+00  0.224E+00  0.142E-03  0.203E-13    4  35   2   13  17   2   15  15  27    0.000    0.000       0
     296  0     68 00:18:42.44  10.0000A  -1.5817   1.6896   4.4919  0.093  1.41  -0.123E+01    850.  0.238E+00  0.232E+00  0.147E-03  0.210E-13    5  35   2   13  17   2   16  15  27    0.000    0.000       0
     297  0     69 00:18:52.44  10.0000A  -1.5997  -1.6703   4.4803  0.094  1.41  -0.122E+01    850.  0.245E+00  0.239E+00  0.151E-03  0.216E-13    5  35   2   11   4  39   13  32  12    0.000    0.000       0
     298  0     70 00:19:02.44  10.0000A  -1.6172  -1.7243   4.4949  0.094  1.41  -0.122E+01    850.  0.251E+00  0.246E+00  0.155E-03  0.222E-13    5  35   2   11   4  39   13  32  12    0.000    0.000       0
     299  0     71 00:19:12.54  10.1000A  -1.6362  -1.7556   4.4526  0.094  1.41  -0.123E+01    850.  0.257E+00  0.252E+00  0.160E-03  0.230E-13    5  35   2   11   4  39   14  32  12    0.000    0.000       0
     300  0     72 00:19:22.54  10.0000A  -1.6566  -1.7482   4.4782  0.095  1.41  -0.121E+01    850.  0.263E+00  0.258E+00  0.162E-03  0.233E-13    5  35   2   10   4  38   14  32  12    0.000    0.000       0
     301  0     73 00:19:32.74  10.2000A  -1.6763  -1.8456   4.4123  0.095  1.41  -0.121E+01    850.  0.268E+00  0.264E+00  0.169E-03  0.243E-13    5  35   2   11   4  38   14  32  12    0.000    0.000       0
     302  0     74 00:19:43.04  10.3000A  -1.6925  -1.9453   4.3884  0.096  1.41  -0.121E+01    850.  0.273E+00  0.269E+00  0.175E-03  0.251E-13    5  35   2   11   4  38   15  32  12    0.000    0.000       0
     303  0     75 00:19:53.44  10.4000A  -1.7022  -1.9807   4.3245  0.096  1.41  -0.120E+01    850.  0.278E+00  0.273E+00  0.180E-03  0.258E-13   12  36  39   11   4  38   15  32  12    0.000    0.000       0
     304  0     76 00:20:03.94  10.5000A  -1.7412  -2.0400   4.2986  0.097  1.41  -0.119E+01    850.  0.282E+00  0.277E+00  0.186E-03  0.266E-13   12  36  39   12   3  38   13  35  25    0.000    0.000       0
     305  0     77 00:20:14.24  10.3000A  -1.7452  -2.0579   4.3534  0.097  1.41  -0.118E+01    850.  0.285E+00  0.281E+00  0.186E-03  0.265E-13   13  36  38   12   3  38   13  35  25    0.000    0.000       0
     306  0     78 00:20:24.54  10.3000A  -1.8346  -2.1363   4.3483  0.098  1.41  -0.116E+01    850.  0.287E+00  0.284E+00  0.189E-03  0.269E-13   13  36  38   13   3  38   13  35  25    0.000    0.000       0
     307  0     79 00:20:34.84  10.3000A  -1.8961  -2.1678   4.3601  0.098  1.41  -0.115E+01    850.  0.289E+00  0.286E+00  0.192E-03  0.273E-13   13  36  38   13   3  38   14  35  25    0.000    0.000       0
     308  0     80 00:20:45.14  10.3000A  -1.9260  -2.1615   4.3616  0.099  1.41  -0.114E+01    850.  0.291E+00  0.288E+00  0.196E-03  0.277E-13   13  36  38   13   3  38   14  35  25    0.000    0.000       0
     309  0     81 00:20:55.64  10.5000A  -1.9202  -2.2099   4.2801  0.099  1.41  -0.114E+01    850.  0.292E+00  0.289E+00  0.202E-03  0.286E-13   13  36  38   14   2  38   16  35  24    0.000    0.000       0
     310  0     82 00:21:06.14  10.5000A  -1.8948  -2.1384   4.2718  0.100  1.41  -0.113E+01    850.  0.293E+00  0.290E+00  0.204E-03  0.289E-13   14  36  38   14   2  38   16  35  24    0.000    0.000       0
     311  0     83 00:21:16.94  10.8000A  -1.9464  -2.1511   4.1795  0.100  1.41  -0.113E+01    850.  0.293E+00  0.290E+00  0.212E-03  0.300E-13   14  36  38   15   2  38   15  35  25    0.000    0.000       0
     312  0     84 00:21:28.14  11.2000A  -1.9812  -2.0942   4.0252  0.101  1.41  -0.113E+01    850.  0.293E+00  0.291E+00  0.223E-03  0.314E-13   14  36  38   15   1  38   15  35  25    0.000    0.000       0
     313  0     85 00:21:39.74  11.6000A  -1.9947  -2.0557   3.8901  0.102  1.38  -0.112E+01    800.  0.293E+00  0.290E+00  0.233E-03  0.328E-13   14  36  38   15   1  38   16  35  25    0.000    0.000       0
     314  0     86 00:21:51.84  12.1000A  -1.9830  -2.0152   3.7283  0.102  1.38  -0.113E+01    800.  0.292E+00  0.290E+00  0.245E-03  0.345E-13   14  36  38   16   1  38   16  35  25    0.000    0.000       0
     315  0     87 00:22:04.34  12.5000A  -1.9429  -2.0249   3.5951  0.103  1.38  -0.112E+01    800.  0.291E+00  0.289E+00  0.256E-03  0.359E-13   14  36  38   16   1  38   14  21   6    0.000    0.000       0
     316  0     88 00:22:17.04  12.7000A  -1.9063  -1.9516   3.5480  0.104  1.38  -0.110E+01    800.  0.289E+00  0.288E+00  0.262E-03  0.366E-13   15  36  37   10  15  36   13  20   6    0.000    0.000       0
     317  0     89 00:22:30.14  13.1000A  -1.9100  -2.0465   3.4410  0.105  1.38  -0.108E+01    800.  0.288E+00  0.286E+00  0.272E-03  0.379E-13   15  36  37   10  14  36   13  20   6    0.000    0.000       0
     318  0     90 00:22:43.54  13.4000A  -1.8937  -2.0518   3.3663  0.106  1.38  -0.106E+01    800.  0.286E+00  0.285E+00  0.279E-03  0.389E-13   15  36  37   10  14  36   14  36  16    0.000    0.000       0
     319  0     91 00:22:57.24  13.7000A  -1.9071  -1.8372   3.2748  0.107  1.38  -0.105E+01    800.  0.284E+00  0.283E+00  0.286E-03  0.397E-13   16  35  37   10  14  36   14  36  14    0.000    0.000       0
     320  0     92 00:23:11.34  14.1000A  -1.9416  -1.9547   3.1838  0.108  1.35  -0.104E+01    750.  0.282E+00  0.281E+00  0.293E-03  0.409E-13   16  35  36   11  14  36   15  36  16    0.000    0.000       0
     321  0     93 00:23:26.24  14.9000A  -1.9802  -1.9555   3.0297  0.109  1.35  -0.105E+01    750.  0.279E+00  0.279E+00  0.308E-03  0.430E-13   16  35  36   11  14  36   13  22  11    0.000    0.000       0
     322  0     94 00:23:41.34  15.1000A  -1.9702  -1.7559   2.9746  0.110  1.35  -0.102E+01    750.  0.276E+00  0.276E+00  0.310E-03  0.434E-13   16  35  36   11  13  36   11  22  11    0.000    0.000       0
     323  0     95 00:23:56.14  14.8000A  -1.9185  -1.7020   3.0501  0.112  1.35  -0.101E+01    750.  0.273E+00  0.273E+00  0.301E-03  0.421E-13    8  20  10   11  15  32   11  22  10    0.000    0.000       0
     324  0     96 00:24:10.64  14.5000A  -1.9608  -1.7329   3.1096  0.113  1.35  -0.994E+00    750.  0.270E+00  0.270E+00  0.292E-03  0.409E-13    8  20  10   11  14  32   12  22  10    0.000    0.000       0
     325  0     97 00:24:24.94  14.3000A  -1.9163  -1.7571   3.1418  0.114  1.32  -0.989E+00    700.  0.267E+00  0.268E+00  0.286E-03  0.399E-13    8  20   9   11  14  32   12  22  10    0.000    0.000       0
     326  0     98 00:24:39.34  14.4000A  -1.9918  -1.7605   3.1222  0.115  1.32  -0.975E+00    700.  0.263E+00  0.265E+00  0.285E-03  0.397E-13    8  20   9   11  14  32   13  22  10    0.000    0.000       0
     327  0     99 00:24:53.74  14.4000A  -1.9613  -1.7471   3.1274  0.116  1.32  -0.964E+00    700.  0.260E+00  0.262E+00  0.282E-03  0.392E-13    8  20   9   11  14  32   13  22  10    0.000    0.000       0
     328  0    100 00:25:08.24  14.5000A  -1.9684   1.7325   3.1001  0.117  1.32  -0.956E+00    700.  0.257E+00  0.259E+00  0.282E-03  0.390E-13    9  20   9    2   7  14   13  22  10    0.000    0.000       0
     329  0    101 00:25:23.14  14.9000A  -1.9750   1.7496   3.0218  0.118  1.32  -0.956E+00    700.  0.253E+00  0.256E+00  0.287E-03  0.396E-13    9  20   9    1   7  14   13  22  10    0.000    0.000       0
     330  0    102 00:25:38.44  15.3000A  -1.9199   1.7855   2.9490  0.119  1.32  -0.938E+00    700.  0.250E+00  0.253E+00  0.293E-03  0.401E-13    9  20   9    1   7  14   10  32  24    0.000    0.000       0
     331  0    103 00:25:54.04  15.6000A  -1.8332   1.8449   2.8847  0.120  1.32  -0.929E+00    700.  0.246E+00  0.249E+00  0.296E-03  0.403E-13    9  20   9    1   8  14   14  22  10    0.000    0.000       0
     332  0    104 00:26:10.04  16.0000A  -1.7270   1.9080   2.8121  0.120  1.32  -0.926E+00    700.  0.242E+00  0.246E+00  0.301E-03  0.408E-13    9  20   9    1   8  14    8  10  12    0.000    0.000       0
     333  0    105 00:26:26.14  16.1000A   1.7201   1.9638   2.7900  0.121  1.32  -0.917E+00    700.  0.238E+00  0.242E+00  0.301E-03  0.407E-13    8   0  24    1   8  14    9  32  24    0.000    0.000       0
     334  0    106 00:26:42.24  16.1000A   1.6836   2.0068   2.8008  0.122  1.32  -0.916E+00    700.  0.234E+00  0.239E+00  0.300E-03  0.402E-13    8   7   9    1   8  14    6  12   0    0.000    0.000       0
     335  0    107 00:26:58.24  16.0000A  -1.7905   2.0315   2.8127  0.123  1.32  -0.911E+00    700.  0.230E+00  0.235E+00  0.296E-03  0.394E-13    9  37  33    1   8  14    6  12   0    0.000    0.000       0
     336  0    108 00:27:14.24  16.0000A  -1.8278   2.0394   2.8140  0.123  1.32  -0.912E+00    700.  0.227E+00  0.232E+00  0.293E-03  0.389E-13    9  37  33    1   8  14    6  12   0    0.000    0.000       0
     337  0    109 00:27:30.24  16.0000A  -1.7839   2.0835   2.8061  0.123  1.32  -0.913E+00    700.  0.223E+00  0.228E+00  0.290E-03  0.383E-13    9  37  33    1   9  14    6  12   0    0.000    0.000       0
     338  0    110 00:27:46.14  15.9000A   1.7602   2.1070   2.8304  0.124  1.35  -0.911E+00    750.  0.220E+00  0.225E+00  0.285E-03  0.374E-13    1  22   6    1   9  14    7  12   0    0.000    0.000       0
     339  0    111 00:28:01.94  15.8000A   1.7735   2.1145   2.8454  0.124  1.35  -0.928E+00    750.  0.216E+00  0.222E+00  0.280E-03  0.367E-13    1  22   6    1   9  14    7  12   0    0.000    0.000       0
     340  0    112 00:28:17.74  15.8000A   1.7663   2.1147   2.8408  0.124  1.35  -0.926E+00    750.  0.213E+00  0.219E+00  0.277E-03  0.361E-13    1  22   6    1   9  14    7  12   0    0.000    0.000       0
     341  0    113 00:28:33.74  16.0000A   1.8032   2.1100   2.8133  0.123  1.35  -0.915E+00    750.  0.210E+00  0.216E+00  0.277E-03  0.360E-13    1  23   7    1   9  15    7  12   0    0.000    0.000       0
     342  0    114 00:28:50.04  16.3000A   1.8238   2.1007   2.7643  0.123  1.35  -0.917E+00    750.  0.207E+00  0.213E+00  0.279E-03  0.361E-13    1  23   7    1   9  15    7  12   0    0.000    0.000       0
     343  0    115 00:29:06.34  16.3000A   1.8325   2.0750   2.7601  0.123  1.35  -0.923E+00    750.  0.205E+00  0.210E+00  0.275E-03  0.354E-13    1  22   7    1   9  15    8  11   0    0.000    0.000       0
     344  0    116 00:29:22.64  16.3000A   1.8328   2.0313   2.7540  0.122  1.35  -0.919E+00    750.  0.202E+00  0.208E+00  0.271E-03  0.348E-13    1  22   7    1  10  15    9  11   0    0.000    0.000       0
     345  0    117 00:29:38.64  16.0000A   1.8361   1.9884   2.8157  0.122  1.35  -0.920E+00    750.  0.200E+00  0.205E+00  0.263E-03  0.336E-13    1  23   8    1  10  15    9  11   0    0.000    0.000       0
     346  0    118 00:29:54.54  15.9000A   1.8446   1.9452   2.8254  0.121  1.38  -0.922E+00    800.  0.198E+00  0.203E+00  0.258E-03  0.328E-13    1  23   8    1  10  16    9  11   0    0.000    0.000       0
     347  0    119 00:30:10.54  16.0000A   1.8613   1.9155   2.8076  0.121  1.38  -0.929E+00    800.  0.196E+00  0.201E+00  0.257E-03  0.324E-13    1  22   8    1   9  11   10  11   0    0.000    0.000       0
     348  0    120 00:30:26.44  15.9000A   1.8571   1.9075   2.8259  0.120  1.38  -0.996E+00    800.  0.195E+00  0.199E+00  0.253E-03  0.317E-13    1  22   8    1   9  11   10  11   0    0.000    0.000       0
     349  0    121 00:30:42.54  16.1000A   1.8347   1.9131   2.8011  0.119  1.38  -0.938E+00    800.  0.194E+00  0.198E+00  0.254E-03  0.316E-13    1  22   8    1  10  11   10  11   0    0.000    0.000       0
     350  0    122 00:30:58.74  16.2000A   1.8241   1.9151   2.7694  0.118  1.38  -0.941E+00    800.  0.193E+00  0.196E+00  0.254E-03  0.314E-13    1  22   9    1  10  11   11  11   0    0.000    0.000       0
     351  0    123 00:31:15.14  16.4000A   1.8287   1.8975   2.7400  0.118  1.38  -0.947E+00    800.  0.192E+00  0.195E+00  0.256E-03  0.314E-13    1  22   9    1  10  11   11  11   0    0.000    0.000       0
     352  0    124 00:31:31.54  16.4000A   1.8088   1.9164   2.7498  0.117  1.38  -0.956E+00    800.  0.191E+00  0.195E+00  0.255E-03  0.312E-13    1  22   9    1  11  11   11   0  35    0.000    0.000       0
     353  0    125 00:31:47.64  16.1000A   1.7734   1.9216   2.7910  0.116  1.38  -0.965E+00    800.  0.191E+00  0.194E+00  0.250E-03  0.304E-13    1  22   9    1  11  11   11   0  35    0.000    0.000       0
     354  0    126 00:32:03.64  16.0000A   1.7415   1.8950   2.8089  0.115  1.38  -0.976E+00    800.  0.190E+00  0.193E+00  0.248E-03  0.301E-13    1  23  10    1  11  11   11   0  35    0.000    0.000       0
     355  0    127 00:32:19.44  15.8000A   1.7278   1.8397   2.8409  0.115  1.38  -0.986E+00    800.  0.190E+00  0.193E+00  0.245E-03  0.295E-13    2  22   9    1  11  11   12   0  35    0.000    0.000       0
     356  0    128 00:32:35.14  15.7000A   1.7024   1.8403   2.8736  0.114  1.38  -0.996E+00    800.  0.190E+00  0.193E+00  0.243E-03  0.292E-13    2  22   9    1  12  11   12   0  35    0.000    0.000       0
     357  0    129 00:32:50.74  15.6000A   1.6689   1.8322   2.8897  0.114  1.38  -0.998E+00    800.  0.190E+00  0.193E+00  0.242E-03  0.290E-13    2  22   9    1  12  11   12   0  35    0.000    0.000       0
     358  0    130 00:33:06.34  15.6000A  -1.6434   1.8002   2.8898  0.113  1.38  -0.101E+01    800.  0.190E+00  0.193E+00  0.242E-03  0.289E-13    4  18  31    1  12  11   12   0  35    0.000    0.000       0
     359  0    131 00:33:21.84  15.5000A   1.6248   1.7435   2.8990  0.113  1.38  -0.999E+00    800.  0.190E+00  0.193E+00  0.241E-03  0.287E-13    2  22  10    1  12  11   13   0  35    0.000    0.000       0
     360  0    132 00:33:37.34  15.5000A   1.6143   1.7172   2.8994  0.113  1.38  -0.100E+01    800.  0.191E+00  0.193E+00  0.241E-03  0.287E-13    2  22  10    1  13  12   13   0  35    0.000    0.000       0
     361  0    133 00:33:52.94  15.6000A  -1.6235   1.6873   2.8887  0.113  1.35  -0.101E+01    750.  0.191E+00  0.193E+00  0.243E-03  0.289E-13    4  18  30    1  13  12    8  26  20    0.000    0.000       0
     362  0    134 00:34:08.44  15.5000A  -1.6327   1.6528   2.9042  0.112  1.35  -0.100E+01    750.  0.192E+00  0.194E+00  0.243E-03  0.287E-13    4  18  30    9  28  16    9  26  20    0.000    0.000       0
     363  0    135 00:34:23.84  15.4000A  -1.6486  -1.6539   2.9170  0.112  1.35  -0.998E+00    750.  0.192E+00  0.194E+00  0.242E-03  0.286E-13    5  18  30    6  27  26   10  26  20    0.000    0.000       0
     364  0    136 00:34:39.14  15.3000A  -1.6325   1.6538   2.9454  0.112  1.41  -0.100E+01    850.  0.192E+00  0.194E+00  0.241E-03  0.284E-13    5  18  30   10  29  16   10  25  21    0.000    0.000       0
     365  0    137 00:34:54.14  15.0000A  -1.6529   1.6953   2.9927  0.112  1.41  -0.102E+01    850.  0.193E+00  0.195E+00  0.237E-03  0.279E-13    8   6  19   10  29  16   11  25  21    0.000    0.000       0
     366  0    138 00:35:09.34  15.2000A  -1.6712   1.6926   2.9584  0.112  1.41  -0.991E+00    850.  0.193E+00  0.195E+00  0.241E-03  0.283E-13   15  27  18   11  29  16   12  25  21    0.000    0.000       0
     367  0    139 00:35:24.54  15.2000A  -1.6535   1.6915   2.9678  0.112  1.41  -0.988E+00    850.  0.193E+00  0.195E+00  0.242E-03  0.283E-13   15  27  18   11  29  16   12  25  21    0.000    0.000       0
     368  0    140 00:35:39.94  15.4000A  -1.5996   1.7523   2.9153  0.112  1.41  -0.986E+00    850.  0.194E+00  0.195E+00  0.246E-03  0.287E-13   16  27  18    8  39  39   12  25  21    0.000    0.000       0
     369  0    141 00:35:55.44  15.5000A  -1.7133   1.7361   2.9079  0.112  1.41  -0.986E+00    850.  0.194E+00  0.196E+00  0.248E-03  0.289E-13   16  27  18    8  39  39   12  24  22    0.000    0.000       0
     370  0    142 00:36:10.74  15.3000A  -1.7479   1.8395   2.9490  0.112  1.41  -0.984E+00    850.  0.195E+00  0.196E+00  0.245E-03  0.285E-13   16  27  17    9  39  39   13  24  22    0.000    0.000       0
     371  0    143 00:36:26.04  15.3000A  -1.7129   1.8816   2.9405  0.112  1.41  -0.983E+00    850.  0.195E+00  0.197E+00  0.245E-03  0.284E-13   16  27  17    9  39  39   13  24  23    0.000    0.000       0
     372  0    144 00:36:40.84  14.8000A  -1.5854   1.8749   3.0367  0.113  1.41  -0.976E+00    850.  0.196E+00  0.197E+00  0.238E-03  0.274E-13   16  27  17    9  39  39   14  24  23    0.000    0.000       0
     373  0    145 00:36:55.94  15.1000A  -1.5240   1.8633   2.9759  0.113  1.41  -0.973E+00    850.  0.197E+00  0.198E+00  0.243E-03  0.279E-13    1  36   1    9  39  39   15  24  23    0.000    0.000       0
     374  0    146 00:37:11.34  15.4000A  -1.5306   1.8671   2.9236  0.113  1.38  -0.971E+00    800.  0.198E+00  0.199E+00  0.248E-03  0.284E-13    7  13  18    9  39  39   15  24  23    0.000    0.000       0
     375  0    147 00:37:27.34  16.0000A  -1.5464   1.8917   2.8057  0.113  1.38  -0.973E+00    800.  0.198E+00  0.200E+00  0.258E-03  0.294E-13    7  13  18    9  39  39   11  27  16    0.000    0.000       0
     376  0    148 00:37:42.64  15.3000A  -1.5744   1.9273   2.9328  0.113  1.38  -0.972E+00    800.  0.199E+00  0.201E+00  0.247E-03  0.282E-13   17  18   5    9  39  39   11  27  16    0.000    0.000       0
     377  0    149 00:37:57.64  15.0000A  -1.5915   1.9433   2.9950  0.113  1.38  -0.967E+00    800.  0.200E+00  0.201E+00  0.243E-03  0.277E-13    8  13  17    9  39  39   11  27  16    0.000    0.000       0
     378  0    150 00:38:12.04  14.4000A  -1.6045   1.9131   3.1175  0.113  1.38  -0.962E+00    800.  0.201E+00  0.202E+00  0.234E-03  0.266E-13    8  13  17    9  39  39   12  27  16    0.000    0.000       0
     379  0    151 00:38:26.24  14.2000A  -1.5931   1.8957   3.1647  0.113  1.38  -0.960E+00    800.  0.202E+00  0.203E+00  0.232E-03  0.263E-13    8  13  17   16  31  16   12  27  16    0.000    0.000       0
     380  0    152 00:38:40.54  14.3000A  -1.5642   1.8981   3.1423  0.113  1.38  -0.966E+00    800.  0.203E+00  0.204E+00  0.235E-03  0.265E-13    8  13  17   16  32  16   13  27  16    0.000    0.000       0
     381  0    153 00:38:54.74  14.2000A  -1.6766   1.8809   3.1766  0.113  1.41  -0.962E+00    850.  0.204E+00  0.205E+00  0.234E-03  0.264E-13   10  14  11   16  32  16   13  27  16    0.000    0.000       0
     382  0    154 00:39:09.14  14.4000A  -1.7293   1.8304   3.1223  0.113  1.41  -0.958E+00    850.  0.205E+00  0.206E+00  0.239E-03  0.269E-13   10  14  11   16  33  16   13  27  16    0.000    0.000       0
     383  0    155 00:39:24.04  14.9000A  -1.7275   1.9699   3.0188  0.113  1.41  -0.957E+00    850.  0.206E+00  0.207E+00  0.249E-03  0.279E-13   10  14  11   17  32  16    9  24  19    0.000    0.000       0
     384  0    156 00:39:38.74  14.7000A   1.7255   1.9569   3.0555  0.113  1.41  -0.958E+00    850.  0.207E+00  0.208E+00  0.248E-03  0.276E-13   10   0   1   17  33  16    9  38  37    0.000    0.000       0
     385  0    157 00:39:53.34  14.6000A   1.7409   2.0114   3.0796  0.113  1.41  -0.963E+00    850.  0.208E+00  0.209E+00  0.248E-03  0.276E-13   11   0   1   17  33  16    7  37  37    0.000    0.000       0
     386  0    158 00:40:07.84  14.5000A   1.7898   1.8919   3.1125  0.113  1.41  -0.956E+00    850.  0.210E+00  0.210E+00  0.248E-03  0.275E-13   11   1   2   17  33  16    7  37  37    0.000    0.000       0
     387  0    159 00:40:22.24  14.4000A   1.8885   1.8871   3.1226  0.114  1.41  -0.955E+00    850.  0.211E+00  0.211E+00  0.248E-03  0.275E-13   11   1   2   17  34  16    8  37  37    0.000    0.000       0
     388  0    160 00:40:36.34  14.1000A   1.9262  -1.7861   3.1822  0.114  1.41  -0.954E+00    850.  0.212E+00  0.213E+00  0.244E-03  0.270E-13   11   1   2   11  23  21    8  37  37    0.000    0.000       0
     389  0    161 00:40:50.34  14.0000A   1.8698  -1.8111   3.2164  0.114  1.41  -0.954E+00    850.  0.213E+00  0.214E+00  0.243E-03  0.269E-13   11   1   2   11  23  21    8  37  37    0.000    0.000       0
     390  0    162 00:41:04.34  14.0000A   1.9238  -1.7947   3.2225  0.114  1.41  -0.955E+00    850.  0.215E+00  0.215E+00  0.243E-03  0.270E-13   12   1   3    6  12  35    8  37  37    0.000    0.000       0
     391  0    163 00:41:18.34  14.0000A   1.9440  -1.8018   3.2068  0.114  1.41  -0.957E+00    850.  0.216E+00  0.217E+00  0.244E-03  0.271E-13   12   1   3    6  12  35    8  37  37    0.000    0.000       0
     392  0    164 00:41:32.24  13.9000A  -1.9201  -1.8290   3.2373  0.114  1.41  -0.957E+00    850.  0.218E+00  0.218E+00  0.243E-03  0.270E-13   13  32  37    6  11  35    9  37  37    0.000    0.000       0
     393  0    165 00:41:45.94  13.7000A  -1.8482  -1.8558   3.2847  0.114  1.41  -0.958E+00    850.  0.219E+00  0.219E+00  0.240E-03  0.268E-13   13  32  37    6  11  35   13  38  36    0.000    0.000       0
     394  0    166 00:41:59.44  13.5000A   1.8362  -1.8657   3.3230  0.114  1.41  -0.962E+00    850.  0.221E+00  0.221E+00  0.238E-03  0.265E-13   13   1   4    6  11  35   13  38  36    0.000    0.000       0
     395  0    167 00:42:12.94  13.5000A  -1.9350  -1.8537   3.3415  0.114  1.41  -0.972E+00    850.  0.223E+00  0.223E+00  0.239E-03  0.266E-13   14  32  36    6  11  35   14  38  36    0.000    0.000       0
     396  0    168 00:42:26.34  13.4000A  -1.9390  -1.8160   3.3696  0.114  1.41  -0.988E+00    850.  0.224E+00  0.224E+00  0.238E-03  0.265E-13   14  32  36    6  11  35   14  38  36    0.000    0.000       0
     397  0    169 00:42:39.74  13.4000A  -1.8355  -1.7866   3.3498  0.114  1.41  -0.972E+00    850.  0.226E+00  0.226E+00  0.239E-03  0.266E-13   14  32  36    6  10  35   14  38  36    0.000    0.000       0
     398  0    170 00:42:53.34  13.6000A  -1.8600  -1.7937   3.3107  0.114  1.41  -0.969E+00    850.  0.228E+00  0.228E+00  0.243E-03  0.271E-13   14  31  36    6  11  30   10  37  37    0.000    0.000       0
     399  0    171 00:43:06.94  13.6000A  -1.9006  -1.7980   3.2997  0.114  1.41  -0.962E+00    850.  0.230E+00  0.230E+00  0.244E-03  0.272E-13   15  32  35   14  23  22   10  37  37    0.000    0.000       0
     400  0    172 00:43:20.54  13.6000A  -1.9281  -1.8409   3.3029  0.114  1.41  -0.961E+00    850.  0.232E+00  0.232E+00  0.244E-03  0.273E-13   15  32  35   14  23  22   11  37  37    0.000    0.000       0
     401  0    173 00:43:33.94  13.4000A  -1.8858  -1.8248   3.3472  0.114  1.41  -0.961E+00    850.  0.233E+00  0.233E+00  0.242E-03  0.270E-13   15  32  35   14  23  22    9  15  21    0.000    0.000       0
     402  0    174 00:43:47.34  13.4000A  -1.8110  -1.7869   3.3588  0.114  1.41  -0.963E+00    850.  0.235E+00  0.235E+00  0.242E-03  0.272E-13   15  32  35    5  12  30   10  15  21    0.000    0.000       0
     403  0    175 00:44:00.44  13.1000A  -1.7544  -1.8592   3.4414  0.114  1.43  -0.968E+00    900.  0.237E+00  0.237E+00  0.238E-03  0.267E-13   15  32  34    5  11  30   10  15  21    0.000    0.000       0
     404  0    176 00:44:13.34  12.9000A  -1.7039  -1.8409   3.4809  0.114  1.43  -0.963E+00    900.  0.239E+00  0.239E+00  0.236E-03  0.264E-13   15  32  34    5  11  30   11  16  22    0.000    0.000       0
     405  0    177 00:44:25.94  12.6000A   1.6820  -1.7806   3.5627  0.114  1.43  -0.963E+00    900.  0.240E+00  0.240E+00  0.231E-03  0.259E-13   15   1   6    5  13  32   11  16  22    0.000    0.000       0
     406  0    178 00:44:38.44  12.5000A  -1.6651  -1.8069   3.5965  0.114  1.43  -0.963E+00    900.  0.242E+00  0.242E+00  0.230E-03  0.258E-13   12   4  35    5  13  32   11  16  22    0.000    0.000       0
     407  0    179 00:44:50.84  12.4000A  -1.7245  -1.8197   3.6309  0.114  1.43  -0.962E+00    900.  0.243E+00  0.244E+00  0.229E-03  0.256E-13   12   4  35    5  13  32   12  16  22    0.000    0.000       0
     408  0    180 00:45:03.14  12.3000A  -1.7563  -1.8148   3.6549  0.114  1.43  -0.960E+00    900.  0.245E+00  0.245E+00  0.228E-03  0.255E-13   12   4  35    5  13  32   12  16  22    0.000    0.000       0
     409  0    181 00:45:15.44  12.3000A  -1.7566  -1.7915   3.6704  0.114  1.43  -0.957E+00    900.  0.246E+00  0.247E+00  0.228E-03  0.255E-13   12   4  35    5  13  32   13  15  21    0.000    0.000       0
     410  0    182 00:45:27.44  12.0000A  -1.7247  -1.7526   3.7425  0.114  1.43  -0.957E+00    900.  0.248E+00  0.248E+00  0.223E-03  0.249E-13   12   4  35    5  13  32   12  15  22    0.000    0.000       0
     411  0    183 00:45:39.24  11.8000A  -1.6982  -1.7119   3.8148  0.114  1.43  -0.960E+00    900.  0.249E+00  0.249E+00  0.220E-03  0.246E-13    8  14  33    5  12  32   13  15  22    0.000    0.000       0
     412  0    184 00:45:50.74  11.5000A  -1.7676  -1.7338   3.8979  0.114  1.43  -0.962E+00    900.  0.250E+00  0.251E+00  0.215E-03  0.240E-13   13  30   0   11   3  25   13  15  22    0.000    0.000       0
     413  0    185 00:46:02.24  11.5000A  -1.7606  -1.7702   3.9136  0.115  1.43  -0.956E+00    900.  0.251E+00  0.252E+00  0.215E-03  0.241E-13   13  30   0    9   8   5   13  15  22    0.000    0.000       0
     414  0    186 00:46:13.54  11.3000A  -1.7905  -1.7881   3.9814  0.115  1.43  -0.950E+00    900.  0.252E+00  0.253E+00  0.212E-03  0.238E-13    9  14  33    9   8   5   14  15  22    0.000    0.000       0
     415  0    187 00:46:24.84  11.3000A  -1.8643  -1.7536   3.9793  0.115  1.43  -0.967E+00    900.  0.253E+00  0.254E+00  0.212E-03  0.239E-13    9  14  33    8   8   6   14  15  22    0.000    0.000       0
     416  0    188 00:46:36.24  11.4000A  -1.9195  -1.7096   3.9437  0.115  1.43  -0.943E+00    900.  0.254E+00  0.255E+00  0.214E-03  0.242E-13    9  14  33    8   8   6   15  15  22    0.000    0.000       0
     417  0    189 00:46:47.64  11.4000A  -1.9591  -1.6986   3.9397  0.116  1.43  -0.942E+00    900.  0.255E+00  0.256E+00  0.214E-03  0.243E-13    9  14  33    6  30  25   15  15  22    0.000    0.000       0
     418  0    190 00:46:59.24  11.6000A  -1.9870  -1.7100   3.8840  0.116  1.43  -0.941E+00    900.  0.255E+00  0.257E+00  0.218E-03  0.248E-13    9  14  33    6  30  25   15  15  22    0.000    0.000       0
     419  0    191 00:47:11.14  11.9000A  -2.0069  -1.6942   3.7901  0.116  1.43  -0.939E+00    900.  0.256E+00  0.257E+00  0.225E-03  0.255E-13    9  14  33    6  30  25   15  15  22    0.000    0.000       0
     420  0    192 00:47:23.24  12.1000A  -2.0199   1.7267   3.7152  0.116  1.43  -0.939E+00    900.  0.257E+00  0.258E+00  0.229E-03  0.260E-13    9  14  33   11  29  13   16  15  22    0.000    0.000       0
     421  0    193 00:47:35.74  12.5000A  -2.0241   1.7604   3.6131  0.117  1.43  -0.941E+00    900.  0.257E+00  0.259E+00  0.236E-03  0.269E-13    9  14  33   11  29  13   16  15  22    0.000    0.000       0
     422  0    194 00:47:48.74  13.0000A  -2.0159   1.8096   3.4717  0.117  1.43  -0.945E+00    900.  0.258E+00  0.259E+00  0.246E-03  0.281E-13    9  14  33   12  29  14   16  15  22    0.000    0.000       0
     423  0    195 00:48:01.94  13.2000A  -2.0208   1.8347   3.3994  0.117  1.43  -0.946E+00    900.  0.258E+00  0.260E+00  0.251E-03  0.286E-13    9  14  32   12  29  14   16  27  20    0.000    0.000       0
     424  0    196 00:48:15.54  13.6000A  -2.0216   1.8136   3.3014  0.117  1.43  -0.942E+00    900.  0.259E+00  0.261E+00  0.259E-03  0.296E-13    9  14  32   12  29  14   16  27  20    0.000    0.000       0
     425  0    197 00:48:29.14  13.6000A  -1.9992   1.7816   3.3181  0.118  1.43  -0.934E+00    900.  0.259E+00  0.261E+00  0.260E-03  0.298E-13    9  14  32   19  30  19   16  29  17    0.000    0.000       0
     426  0    198 00:48:42.34  13.2000A  -1.9528   1.8058   3.4086  0.118  1.43  -0.930E+00    900.  0.260E+00  0.262E+00  0.253E-03  0.290E-13    9  14  32   13  29  14   16  29  17    0.000    0.000       0
     427  0    199 00:48:55.44  13.1000A  -1.8875   1.8596   3.4471  0.118  1.43  -0.928E+00    900.  0.260E+00  0.263E+00  0.252E-03  0.290E-13    9  14  32   13  30  14   16  29  17    0.000    0.000       0
     428  0    200 00:49:08.64  13.2000A  -1.8253   1.8874   3.4219  0.119  1.43  -0.925E+00    900.  0.261E+00  0.263E+00  0.255E-03  0.293E-13    9  15  33   13  30  14   16  29  17    0.000    0.000       0
     429  0    201 00:49:22.14  13.5000A  -1.7840   1.8558   3.3334  0.119  1.43  -0.923E+00    900.  0.261E+00  0.264E+00  0.262E-03  0.300E-13    4   5   3   13  30  14   16  29  17    0.000    0.000       0
     430  0    202 00:49:35.94  13.8000A  -1.7882   1.8614   3.2725  0.119  1.43  -0.924E+00    900.  0.262E+00  0.264E+00  0.268E-03  0.307E-13    4   5   3   14  30  14   17  29  17    0.000    0.000       0
     431  0    203 00:49:50.14  14.2000A  -1.7771   1.9038   3.1656  0.119  1.43  -0.924E+00    900.  0.263E+00  0.265E+00  0.277E-03  0.316E-13    4   5   3   14  30  14   17  29  17    0.000    0.000       0
     432  0    204 00:50:04.84  14.7000A  -1.7720   1.8878   3.0589  0.119  1.43  -0.924E+00    900.  0.263E+00  0.266E+00  0.287E-03  0.327E-13    5   4   3   14  30  14    7  16  22    0.000    0.000       0
     433  0    205 00:50:19.14  14.3000A  -1.7919   1.8335   3.1491  0.119  1.43  -0.926E+00    900.  0.264E+00  0.266E+00  0.280E-03  0.318E-13    5   4   3   15  31  14    8  16  22    0.000    0.000       0
     434  0    206 00:50:32.84  13.7000A  -1.7777   1.9040   3.2818  0.120  1.41  -0.928E+00    850.  0.265E+00  0.267E+00  0.269E-03  0.305E-13    5   4   3   15  31  14    8  16  22    0.000    0.000       0
     435  0    207 00:50:46.34  13.5000A  -1.7652   1.9180   3.3261  0.120  1.41  -0.929E+00    850.  0.265E+00  0.268E+00  0.266E-03  0.300E-13    5   4   2   15  31  14    8  17  22    0.000    0.000       0
     436  0    208 00:50:59.44  13.1000A  -1.7605   1.8841   3.4224  0.120  1.41  -0.929E+00    850.  0.266E+00  0.269E+00  0.258E-03  0.291E-13    5   4   2   15  31  14    9  17  22    0.000    0.000       0
     437  0    209 00:51:12.24  12.8000A   1.7723   1.8309   3.5293  0.119  1.41  -0.929E+00    850.  0.267E+00  0.269E+00  0.253E-03  0.283E-13   15  31  24   16  32  14    9  17  22    0.000    0.000       0
     438  0    210 00:51:24.74  12.5000A   1.7626   1.8626   3.5965  0.119  1.41  -0.929E+00    850.  0.268E+00  0.270E+00  0.248E-03  0.276E-13   15  31  24   16  32  14   10  17  22    0.000    0.000       0
     439  0    211 00:51:37.14  12.4000A  -1.7667   1.8468   3.6340  0.119  1.41  -0.930E+00    850.  0.269E+00  0.271E+00  0.246E-03  0.273E-13    9  35  19   16  32  14   10  17  22    0.000    0.000       0
     440  0    212 00:51:49.34  12.2000A   1.7911   1.8026   3.6738  0.119  1.41  -0.931E+00    850.  0.270E+00  0.272E+00  0.243E-03  0.268E-13   10   3   2   16  33  14    9  17  21    0.000    0.000       0
     441  0    213 00:52:01.14  11.8000A   1.8046   1.7960   3.8097  0.119  1.41  -0.935E+00    850.  0.271E+00  0.273E+00  0.236E-03  0.259E-13   10   3   2   16  33  14    9  18  21    0.000    0.000       0
     442  0    214 00:52:12.64  11.5000A  -1.8438   1.8572   3.9138  0.119  1.41  -0.937E+00    850.  0.272E+00  0.274E+00  0.231E-03  0.252E-13    9  34  19   16  27  20    9  18  21    0.000    0.000       0
     443  0    215 00:52:23.84  11.2000A  -1.8347   1.8921   4.0149  0.119  1.41  -0.939E+00    850.  0.273E+00  0.275E+00  0.225E-03  0.245E-13    9  34  19   16  27  20   10  18  21    0.000    0.000       0
     444  0    216 00:52:34.84  11.0000A   1.8681   1.8884   4.0912  0.119  1.41  -0.941E+00    850.  0.274E+00  0.276E+00  0.222E-03  0.240E-13   16  15  26   16  27  21   10  18  21    0.000    0.000       0
     445  0    217 00:52:45.74  10.9000A   1.9051   1.8536   4.1401  0.119  1.41  -0.946E+00    850.  0.275E+00  0.277E+00  0.220E-03  0.238E-13   15  15  25   16  28  20   11  18  21    0.000    0.000       0
     446  0    218 00:52:56.54  10.8000A   1.9250   1.8647   4.1828  0.119  1.40  -0.946E+00    850.  0.276E+00  0.278E+00  0.218E-03  0.235E-13   16  15  26   16  28  21   12  18  21    0.000    0.000       0
     447  0    219 00:53:07.24  10.7000A   1.9382   1.9479   4.1926  0.119  1.40  -0.944E+00    850.  0.277E+00  0.279E+00  0.216E-03  0.233E-13   16  15  26   15  22  22   12  18  21    0.000    0.000       0
     448  0    220 00:53:17.94  10.7000A   1.9849   1.9429   4.1922  0.119  1.40  -0.942E+00    850.  0.278E+00  0.280E+00  0.216E-03  0.233E-13   16  17  25   15  23  22   13  18  21    0.000    0.000       0
     449  0    221 00:53:28.74  10.8000A   2.0639  -1.8490   4.1611  0.119  1.40  -0.943E+00    850.  0.279E+00  0.281E+00  0.218E-03  0.235E-13   16  18  25   15  14  20   13  18  21    0.000    0.000       0
     450  0    222 00:53:39.84  11.1000A   2.1304   2.0264   4.0518  0.119  1.40  -0.947E+00    850.  0.279E+00  0.281E+00  0.224E-03  0.241E-13   16  18  25   16  23  22   14  18  21    0.000    0.000       0
     451  0    223 00:53:51.04  11.2000A   2.1119   2.0188   4.0274  0.119  1.43  -0.953E+00    900.  0.280E+00  0.282E+00  0.225E-03  0.244E-13   16  18  25   16  23  22   14  18  21    0.000    0.000       0
     452  0    224 00:54:02.44  11.4000A   1.9933   2.0240   3.9613  0.119  1.43  -0.947E+00    900.  0.281E+00  0.283E+00  0.229E-03  0.249E-13   16  18  25   16  23  23   13  19  21    0.000    0.000       0
     453  0    225 00:54:13.74  11.3000A   1.9802   2.0169   3.9756  0.119  1.43  -0.944E+00    900.  0.281E+00  0.283E+00  0.227E-03  0.247E-13   17  16  26   16  24  23   13  19  21    0.000    0.000       0
     454  0    226 00:54:25.04  11.3000A   1.9866   2.0438   3.9757  0.119  1.43  -0.943E+00    900.  0.281E+00  0.284E+00  0.227E-03  0.248E-13   17  16  26   17  24  23   14  19  21    0.000    0.000       0
     455  0    227 00:54:36.54  11.5000A  -1.9626   2.1912   3.9100  0.119  1.43  -0.942E+00    900.  0.282E+00  0.284E+00  0.231E-03  0.252E-13    8   0  21   17  24  23   14  19  21    0.000    0.000       0
     456  0    228 00:54:48.24  11.7000A   1.9993   2.0586   3.8457  0.119  1.43  -0.939E+00    900.  0.282E+00  0.284E+00  0.234E-03  0.257E-13   17  20  25   17  25  23   15  19  21    0.000    0.000       0
     457  0    229 00:55:00.34  12.1000A   2.0148   1.9686   3.7091  0.119  1.43  -0.933E+00    900.  0.282E+00  0.284E+00  0.242E-03  0.266E-13   17  20  25   17  25  24   15  19  21    0.000    0.000       0
     458  0    230 00:55:12.74  12.4000A   1.9420   2.1142   3.6188  0.119  1.43  -0.931E+00    900.  0.282E+00  0.284E+00  0.248E-03  0.273E-13   17  21  25   18  25  23   15  22  18    0.000    0.000       0
     459  0    231 00:55:25.34  12.6000A   1.9690   2.1214   3.5710  0.119  1.43  -0.931E+00    900.  0.281E+00  0.284E+00  0.252E-03  0.277E-13   18  20  25   18  26  23   15  22  18    0.000    0.000       0
     460  0    232 00:55:38.14  12.8000A   1.9871  -2.1545   3.5058  0.119  1.43  -0.932E+00    900.  0.281E+00  0.283E+00  0.256E-03  0.282E-13   18  20  25   19  12  20   12  17  19    0.000    0.000       0
     461  0    233 00:55:50.94  12.8000A   1.9316   2.2092   3.5035  0.119  1.43  -0.932E+00    900.  0.280E+00  0.282E+00  0.256E-03  0.282E-13   17  24  26   18  26  24   12  17  19    0.000    0.000       0
     462  0    234 00:56:03.74  12.8000A   2.0297  -2.3325   3.5109  0.119  1.43  -0.932E+00    900.  0.279E+00  0.282E+00  0.256E-03  0.282E-13   19  17  24   19  11  20   13  17  19    0.000    0.000       0
     463  0    235 00:56:16.54  12.8000A   2.1724  -2.3548   3.5077  0.119  1.43  -0.931E+00    900.  0.279E+00  0.281E+00  0.256E-03  0.283E-13   17  21  24   19  11  20   13  17  19    0.000    0.000       0
     464  0    236 00:56:29.44  12.9000A   2.2030  -2.2626   3.4864  0.119  1.40  -0.928E+00    850.  0.278E+00  0.280E+00  0.259E-03  0.285E-13   17  21  24   19  11  20   15  34  38    0.000    0.000       0
     465  0    237 00:56:42.34  12.9000A   2.3058   2.1761   3.4854  0.119  1.40  -0.925E+00    850.  0.277E+00  0.279E+00  0.259E-03  0.285E-13   17  22  25   18  28  24   15  34  38    0.000    0.000       0
     466  0    238 00:56:55.44  13.1000A   2.2991   2.1994   3.4480  0.119  1.40  -0.923E+00    850.  0.276E+00  0.278E+00  0.264E-03  0.289E-13   17  22  25   18  28  25   13  11  35    0.000    0.000       0
     467  0    239 00:57:08.54  13.1000A   2.3016   2.0862   3.4447  0.119  1.40  -0.923E+00    850.  0.275E+00  0.277E+00  0.264E-03  0.289E-13   18  20  25   18  28  25   13  11  35    0.000    0.000       0
     468  0    240 00:57:21.54  13.0000A   2.3847   2.0754   3.4715  0.119  1.40  -0.930E+00    850.  0.274E+00  0.277E+00  0.263E-03  0.287E-13   18  21  26   18  28  26   11  10  36    0.000    0.000       0
     469  0    241 00:57:34.44  12.9000A   2.4579   2.0616   3.4907  0.119  1.40  -0.929E+00    850.  0.274E+00  0.276E+00  0.262E-03  0.286E-13   18  21  26   17  29  23   11  10  36    0.000    0.000       0
     470  0    242 00:57:47.34  12.9000A   2.5289  -2.0981   3.4924  0.119  1.40  -0.931E+00    850.  0.273E+00  0.275E+00  0.262E-03  0.286E-13   18  22  27   19  12  19   12  10  36    0.000    0.000       0
     471  0    243 00:58:00.14  12.8000A   2.5557  -2.1094   3.5123  0.119  1.40  -0.932E+00    850.  0.273E+00  0.275E+00  0.261E-03  0.284E-13   18  22  27   19  11  19   12  10  36    0.000    0.000       0
     472  0    244 00:58:12.94  12.8000A   2.4804  -2.1399   3.5034  0.119  1.40  -0.933E+00    850.  0.272E+00  0.274E+00  0.261E-03  0.285E-13   18  22  27   19  11  19   12  10  36    0.000    0.000       0
     473  0    245 00:58:25.94  13.0000A   2.5240  -2.1239   3.4684  0.118  1.40  -0.934E+00    850.  0.272E+00  0.274E+00  0.266E-03  0.290E-13   18  22  28   19  11  19   12  10  36    0.000    0.000       0
     474  0    246 00:58:39.04  13.1000A   2.4933  -2.0731   3.4381  0.118  1.40  -0.935E+00    850.  0.271E+00  0.273E+00  0.268E-03  0.292E-13   18  22  28   19  11  19   10  19  20    0.000    0.000       0
     475  0    247 00:58:52.14  13.1000A   2.3695   2.0327   3.4468  0.118  1.40  -0.938E+00    850.  0.271E+00  0.273E+00  0.269E-03  0.293E-13   18  23  29   17  14  36   10  19  20    0.000    0.000       0
     476  0    248 00:59:05.04  12.9000A   2.3934   2.0130   3.4751  0.118  1.40  -0.945E+00    850.  0.271E+00  0.273E+00  0.265E-03  0.289E-13   18  23  29   17  14  36   11  19  20    0.000    0.000       0
     477  0    249 00:59:17.94  12.9000A   2.3329   2.0083   3.4885  0.117  1.40  -0.943E+00    850.  0.271E+00  0.273E+00  0.266E-03  0.290E-13   18  23  29   17  15  36   11  19  20    0.000    0.000       0
     478  0    250 00:59:30.74  12.8000A   2.2181   2.0011   3.5054  0.117  1.40  -0.944E+00    850.  0.271E+00  0.273E+00  0.264E-03  0.288E-13   18  23  29   17  15  36   12  19  20    0.000    0.000       0
     479  0    251 00:59:43.54  12.8000A   2.2073  -1.9892   3.5152  0.117  1.40  -0.947E+00    850.  0.271E+00  0.273E+00  0.265E-03  0.289E-13   18  23  30   17  11  16   12  19  20    0.000    0.000       0
     480  0    252 00:59:56.34  12.8000A   2.1599  -1.9694   3.5228  0.117  1.40  -0.950E+00    850.  0.271E+00  0.273E+00  0.265E-03  0.289E-13   18  23  30   17  11  16   13  19  20    0.000    0.000       0
     481  0    253 01:00:09.14  12.8000A   2.0730  -2.0018   3.5161  0.117  1.40  -0.954E+00    850.  0.271E+00  0.273E+00  0.265E-03  0.289E-13   18  23  30   17  10  16   13  19  20    0.000    0.000       0
  • palm/trunk/SOURCE/Makefile

    r1586 r1691  
    1313# PALM. If not, see <http://www.gnu.org/licenses/>.
    1414#
    15 # Copyright 1997-2014  Leibniz Universitaet Hannover
     15# Copyright 1997-2015  Leibniz Universitaet Hannover
    1616#--------------------------------------------------------------------------------#
    1717#
     
    2020# Current revisions:
    2121# ------------------
    22 #
     22# Replaced prandtl_fluxes with surface_layer_fluxes. Added radiation_model to
     23# prognostic_equations
    2324#
    2425# Former revisions:
     
    239240        mod_particle_attributes.f90 netcdf.f90 nudging.f90 package_parin.f90 \
    240241        palm.f90 parin.f90 plant_canopy_model.f90 poisfft.f90 poismg.f90 \
    241         poismg_fast.f90 prandtl_fluxes.f90 pres.f90 print_1d.f90 production_e.f90 \
     242        poismg_fast.f90 pres.f90 print_1d.f90 production_e.f90 \
    242243        prognostic_equations.f90 progress_bar.f90 radiation_model.f90 \
    243244        random_function.f90 random_gauss.f90 random_generator_parallel.f90 \
     
    245246        set_slicer_attributes_dvrp.f90 singleton.f90 sor.f90 \
    246247        subsidence.f90 sum_up_3d_data.f90 \
    247         surface_coupler.f90 swap_timelevel.f90 temperton_fft.f90 \
     248        surface_coupler.f90 surface_layer_fluxes.f90 swap_timelevel.f90 temperton_fft.f90 \
    248249        time_integration.f90 time_to_string.f90 timestep.f90 \
    249250        timestep_scheme_steering.f90 transpose.f90 tridia_solver.f90 \
     
    356357init_3d_model.o: modules.o cpulog.o mod_kinds.o random_function.o advec_ws.o\
    357358        land_surface_model.o ls_forcing.o lpm_init.o plant_canopy_model.o\
    358         radiation_model.o random_generator_parallel.o
     359        radiation_model.o random_generator_parallel.o surface_layer_fluxes.o
    359360init_advec.o: modules.o mod_kinds.o
    360361init_cloud_physics.o: modules.o mod_kinds.o
     
    421422poismg.o: modules.o cpulog.o mod_kinds.o
    422423poismg_fast.o: modules.o cpulog.o mod_kinds.o
    423 prandtl_fluxes.o: modules.o mod_kinds.o
    424424pres.o: modules.o cpulog.o mod_kinds.o poisfft.o poismg_fast.o
    425425print_1d.o: modules.o cpulog.o mod_kinds.o
     
    430430        cpulog.o diffusion_e.o diffusion_s.o diffusion_u.o diffusion_v.o diffusion_w.o \
    431431        eqn_state_seawater.o impact_of_latent_heat.o mod_kinds.o microphysics.o \
    432         nudging.o plant_canopy_model.o production_e.o subsidence.o user_actions.o
     432        nudging.o plant_canopy_model.o production_e.o radiation_model.o \
     433        subsidence.o user_actions.o
    433434progress_bar.o: modules.o mod_kinds.o
    434435radiation_model.o : modules.o mod_particle_attributes.o
     
    446447subsidence.o: modules.o mod_kinds.o
    447448sum_up_3d_data.o: modules.o cpulog.o mod_kinds.o land_surface_model.o\
    448                   radiation_model.o
     449                  radiation_model.o 
    449450surface_coupler.o: modules.o cpulog.o mod_kinds.o
     451surface_layer_fluxes.o: modules.o mod_kinds.o land_surface_model.o
    450452swap_timelevel.o: modules.o cpulog.o mod_kinds.o land_surface_model.o
    451453temperton_fft.o: modules.o mod_kinds.o
     
    454456        ls_forcing.o mod_kinds.o nudging.o production_e.o \
    455457        prognostic_equations.o progress_bar.o radiation_model.o \
    456         user_actions.o
     458         user_actions.o surface_layer_fluxes.o
    457459time_to_string.o: mod_kinds.o
    458460timestep.o: modules.o cpulog.o mod_kinds.o
     
    492494                   radiation_model.o random_function.o\
    493495                   random_generator_parallel.o
    494 write_var_list.o: modules.o mod_kinds.o plant_canopy_model.o
     496write_var_list.o: modules.o mod_kinds.o plant_canopy_model.o 
  • palm/trunk/SOURCE/advec_s_bc.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Formatting corrections
    2222!
    2323! Former revisions:
     
    464464                IF ( sw(k,i+1) == 1.0_wp )  THEN
    465465                   snenn = sk_p(k,j,i) - sk_p(k,j,i+2)
    466                    IF ( ABS( snenn ) .LT. 1E-9_wp )  snenn = 1E-9_wp
     466                   IF ( ABS( snenn ) < 1E-9_wp )  snenn = 1E-9_wp
    467467                   sterm = ( sk_p(k,j,i+1) - sk_p(k,j,i+2) ) / snenn
    468468                   sterm = MIN( sterm, 0.9999_wp )
     
    760760                IF ( sw(k,j+1) == 1.0_wp )  THEN
    761761                   snenn = sk_p(k,j,i) - sk_p(k,j+2,i)
    762                    IF ( ABS( snenn ) .LT. 1E-9_wp )  snenn = 1E-9_wp
     762                   IF ( ABS( snenn ) < 1E-9_wp )  snenn = 1E-9_wp
    763763                   sterm = ( sk_p(k,j+1,i) - sk_p(k,j+2,i) ) / snenn
    764764                   sterm = MIN( sterm, 0.9999_wp )
     
    12091209                IF ( sw(k+1,j) == 1.0_wp )  THEN
    12101210                   snenn = sk_p(k,j,i) - sk_p(k+2,j,i)
    1211                    IF ( ABS( snenn ) .LT. 1E-9_wp )  snenn = 1E-9_wp
     1211                   IF ( ABS( snenn ) < 1E-9_wp )  snenn = 1E-9_wp
    12121212                   sterm = ( sk_p(k+1,j,i) - sk_p(k+2,j,i) ) / snenn
    12131213                   sterm = MIN( sterm, 0.9999_wp )
  • palm/trunk/SOURCE/average_3d_data.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added output of Obukhov length and radiative heating rates for RRTMG.
    2222!
    2323! Former revisions:
     
    9696    USE radiation_model_mod,                                                   &
    9797        ONLY:  rad_net, rad_net_av, rad_lw_in, rad_lw_in_av, rad_lw_out,       &
    98                rad_lw_out_av, rad_sw_in, rad_sw_in_av, rad_sw_out,             &
    99                rad_sw_out_av
     98               rad_lw_out_av, rad_lw_cs_hr, rad_lw_cs_hr_av, rad_lw_hr,        &
     99               rad_lw_hr_av, rad_sw_in, rad_sw_in_av, rad_sw_out,              &
     100               rad_sw_out_av, rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr,        &
     101               rad_sw_hr_av
     102
    100103
    101104    IMPLICIT NONE
     
    213216             ENDDO
    214217
     218         CASE ( 'ol*' )
     219             DO  i = nxlg, nxrg
     220                DO  j = nysg, nyng
     221                   ol_av(j,i) = ol_av(j,i) / REAL( average_count_3d, KIND=wp )
     222                ENDDO
     223             ENDDO
     224
    215225          CASE ( 'p' )
    216226             DO  i = nxlg, nxrg
     
    383393             ENDDO
    384394
     395          CASE ( 'rad_lw_cs_hr' )
     396             DO  i = nxlg, nxrg
     397                DO  j = nysg, nyng
     398                   DO  k = nzb, nzt+1
     399                      rad_lw_cs_hr_av(k,j,i) = rad_lw_cs_hr_av(k,j,i) / REAL( average_count_3d, KIND=wp )
     400                   ENDDO
     401                ENDDO
     402             ENDDO
     403
     404          CASE ( 'rad_lw_hr' )
     405             DO  i = nxlg, nxrg
     406                DO  j = nysg, nyng
     407                   DO  k = nzb, nzt+1
     408                      rad_lw_hr_av(k,j,i) = rad_lw_hr_av(k,j,i) / REAL( average_count_3d, KIND=wp )
     409                   ENDDO
     410                ENDDO
     411             ENDDO
     412
    385413          CASE ( 'rad_sw_in' )
    386414             DO  i = nxlg, nxrg
     
    397425                   DO  k = nzb, nzt+1
    398426                      rad_sw_out_av(k,j,i) = rad_sw_out_av(k,j,i) / REAL( average_count_3d, KIND=wp )
     427                   ENDDO
     428                ENDDO
     429             ENDDO
     430
     431          CASE ( 'rad_sw_cs_hr' )
     432             DO  i = nxlg, nxrg
     433                DO  j = nysg, nyng
     434                   DO  k = nzb, nzt+1
     435                      rad_sw_cs_hr_av(k,j,i) = rad_sw_cs_hr_av(k,j,i) / REAL( average_count_3d, KIND=wp )
     436                   ENDDO
     437                ENDDO
     438             ENDDO
     439
     440          CASE ( 'rad_sw_hr' )
     441             DO  i = nxlg, nxrg
     442                DO  j = nysg, nyng
     443                   DO  k = nzb, nzt+1
     444                      rad_sw_hr_av(k,j,i) = rad_sw_hr_av(k,j,i) / REAL( average_count_3d, KIND=wp )
    399445                   ENDDO
    400446                ENDDO
  • palm/trunk/SOURCE/check_parameters.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added output of Obukhov length (ol) and radiative heating rates for RRTMG.
     22! Added checks for use of radiation / lsm with topography.
    2223!
    2324! Former revisions:
     
    307308    USE transpose_indices
    308309
     310
    309311    IMPLICIT NONE
    310312
     
    650652          WRITE( action, '(A)' )  'cloud_droplets = .TRUE.'
    651653       ENDIF
    652        IF ( .NOT. prandtl_layer )  THEN
    653           WRITE( action, '(A)' )  'prandtl_layer = .FALSE.'
     654       IF ( .NOT. constant_flux_layer )  THEN
     655          WRITE( action, '(A)' )  'constant_flux_layer = .FALSE.'
    654656       ENDIF
    655657       IF ( action /= ' ' )  THEN
     
    10071009       ENDIF
    10081010
    1009        IF ( .NOT. prandtl_layer )  THEN
     1011       IF ( .NOT. constant_flux_layer )  THEN
    10101012          message_string = 'lsm requires '//                                   &
    1011                            'prandtl_layer = .T.'
     1013                           'constant_flux_layer = .T.'
    10121014          CALL message( 'check_parameters', 'PA0400', 1, 2, 0, 6, 0 )
     1015       ENDIF
     1016
     1017       IF ( topography /= 'flat' )  THEN
     1018          message_string = 'lsm cannot be used ' //  &
     1019                           'in combination with  topography /= "flat"'
     1020          CALL message( 'check_parameters', 'PA0415', 1, 2, 0, 6, 0 )
    10131021       ENDIF
    10141022
     
    11961204          CALL message( 'check_parameters', 'PA0411', 1, 2, 0, 6, 0 )
    11971205       ENDIF
    1198 
    1199     ENDIF
    1200 
     1206       IF ( topography /= 'flat' )  THEN
     1207          message_string = 'radiation scheme cannot be used ' //  &
     1208                           'in combination with  topography /= "flat"'
     1209          CALL message( 'check_parameters', 'PA0414', 1, 2, 0, 6, 0 )
     1210       ENDIF
     1211    ENDIF
    12011212
    12021213    IF ( .NOT. ( loop_optimization == 'cache'  .OR.                            &
     
    17291740!-- In case of using a prandtl-layer, calculated (or prescribed) surface
    17301741!-- fluxes have to be used in the diffusion-terms
    1731     IF ( prandtl_layer )  use_surface_fluxes = .TRUE.
     1742    IF ( constant_flux_layer )  use_surface_fluxes = .TRUE.
    17321743
    17331744!
     
    17961807    ELSEIF ( bc_e_b == '(u*)**2+neumann' )  THEN
    17971808       ibc_e_b = 2
    1798        IF ( .NOT. prandtl_layer )  THEN
     1809       IF ( .NOT. constant_flux_layer )  THEN
    17991810          bc_e_b = 'neumann'
    18001811          ibc_e_b = 1
     
    20032014       IF ( surface_waterflux == 9999999.9_wp  )  THEN
    20042015          constant_waterflux = .FALSE.
    2005           IF ( large_scale_forcing )  THEN
     2016          IF ( large_scale_forcing .OR. land_surface )  THEN
    20062017             IF ( ibc_q_b == 0 )  THEN
    20072018                constant_waterflux = .FALSE.
     
    20452056    ELSEIF ( bc_uv_b == 'neumann' )  THEN
    20462057       ibc_uv_b = 1
    2047        IF ( prandtl_layer )  THEN
     2058       IF ( constant_flux_layer )  THEN
    20482059          message_string = 'boundary condition: bc_uv_b = "' // &
    2049                TRIM( bc_uv_b ) // '" is not allowed with prandtl_layer = .TRUE.'
     2060               TRIM( bc_uv_b ) // '" is not allowed with constant_flux_layer'  &
     2061               // ' = .TRUE.'
    20502062          CALL message( 'check_parameters', 'PA0075', 1, 2, 0, 6, 0 )
    20512063       ENDIF
     
    23562368             dopr_unit(i)  = 'm2/s2'
    23572369             hom(:,2,12,:) = SPREAD( zw, 2, statistic_regions+1 )
    2358              IF ( prandtl_layer )  hom(nzb,2,12,:) = zu(1)
     2370             IF ( constant_flux_layer )  hom(nzb,2,12,:) = zu(1)
    23592371
    23602372          CASE ( 'w*u*' )
     
    23672379             dopr_unit(i)  = 'm2/s2'
    23682380             hom(:,2,14,:) = SPREAD( zw, 2, statistic_regions+1 )
    2369              IF ( prandtl_layer )  hom(nzb,2,14,:) = zu(1)
     2381             IF ( constant_flux_layer )  hom(nzb,2,14,:) = zu(1)
    23702382
    23712383          CASE ( 'w*v*' )
     
    23932405             dopr_unit(i)  = 'm2/s2'
    23942406             hom(:,2,19,:) = SPREAD( zw, 2, statistic_regions+1 )
    2395              IF ( prandtl_layer )  hom(nzb,2,19,:) = zu(1)
     2407             IF ( constant_flux_layer )  hom(nzb,2,19,:) = zu(1)
    23962408
    23972409          CASE ( 'wv' )
     
    23992411             dopr_unit(i)  = 'm2/s2'
    24002412             hom(:,2,20,:) = SPREAD( zw, 2, statistic_regions+1 )
    2401              IF ( prandtl_layer )  hom(nzb,2,20,:) = zu(1)
     2413             IF ( constant_flux_layer )  hom(nzb,2,20,:) = zu(1)
    24022414
    24032415          CASE ( 'w*pt*BC' )
     
    31533165             ENDIF
    31543166
     3167          CASE ( 'rad_lw_cs_hr' )
     3168             IF ( (.NOT. radiation) .OR. radiation_scheme /= 'rrtmg' )  THEN
     3169                message_string = 'data_output_pr = ' //                        &
     3170                                 TRIM( data_output_pr(i) ) // ' is not ava' // &
     3171                                 'lable for radiation = .FALSE. or ' //        &
     3172                                 'radiation_scheme /= "rrtmg"'
     3173                CALL message( 'check_parameters', 'PA0413', 1, 2, 0, 6, 0 )
     3174             ELSE
     3175                dopr_index(i) = 106
     3176                dopr_unit(i)  = 'K/h'
     3177                hom(:,2,106,:)  = SPREAD( zu, 2, statistic_regions+1 )
     3178             ENDIF
     3179
     3180          CASE ( 'rad_lw_hr' )
     3181             IF ( (.NOT. radiation) .OR. radiation_scheme /= 'rrtmg' )  THEN
     3182                message_string = 'data_output_pr = ' //                        &
     3183                                 TRIM( data_output_pr(i) ) // ' is not ava' // &
     3184                                 'lable for radiation = .FALSE. or ' //        &
     3185                                 'radiation_scheme /= "rrtmg"'
     3186                CALL message( 'check_parameters', 'PA0413', 1, 2, 0, 6, 0 )
     3187             ELSE
     3188                dopr_index(i) = 107
     3189                dopr_unit(i)  = 'K/h'
     3190                hom(:,2,107,:)  = SPREAD( zu, 2, statistic_regions+1 )
     3191             ENDIF
     3192
     3193          CASE ( 'rad_sw_cs_hr' )
     3194             IF ( (.NOT. radiation) .OR. radiation_scheme /= 'rrtmg' )  THEN
     3195                message_string = 'data_output_pr = ' //                        &
     3196                                 TRIM( data_output_pr(i) ) // ' is not ava' // &
     3197                                 'lable for radiation = .FALSE. or ' //        &
     3198                                 'radiation_scheme /= "rrtmg"'
     3199                CALL message( 'check_parameters', 'PA0413', 1, 2, 0, 6, 0 )
     3200             ELSE
     3201                dopr_index(i) = 108
     3202                dopr_unit(i)  = 'K/h'
     3203                hom(:,2,108,:)  = SPREAD( zu, 2, statistic_regions+1 )
     3204             ENDIF
     3205
     3206          CASE ( 'rad_sw_hr' )
     3207             IF ( (.NOT. radiation) .OR. radiation_scheme /= 'rrtmg' )  THEN
     3208                message_string = 'data_output_pr = ' //                        &
     3209                                 TRIM( data_output_pr(i) ) // ' is not ava' // &
     3210                                 'lable for radiation = .FALSE. or ' //        &
     3211                                 'radiation_scheme /= "rrtmg"'
     3212                CALL message( 'check_parameters', 'PA0413', 1, 2, 0, 6, 0 )
     3213             ELSE
     3214                dopr_index(i) = 109
     3215                dopr_unit(i)  = 'K/h'
     3216                hom(:,2,109,:)  = SPREAD( zu, 2, statistic_regions+1 )
     3217             ENDIF
     3218
    31553219          CASE DEFAULT
    31563220
     
    33513415             unit = 'kg/kg'
    33523416
    3353 
    3354           CASE ( 'rad_lw_in', 'rad_lw_out', 'rad_sw_in', 'rad_sw_out' )
     3417          CASE ( 'rad_lw_in', 'rad_lw_out', 'rad_lw_cs_hr', 'rad_lw_hr',       &
     3418                 'rad_sw_in', 'rad_sw_out', 'rad_sw_cs_hr', 'rad_sw_hr' )
    33553419             IF ( .NOT. radiation .OR. radiation_scheme /= 'rrtmg' )  THEN
    3356                 message_string = '"output of "' // TRIM( var ) // '" requi' //  &
     3420                message_string = '"output of "' // TRIM( var ) // '" requi' // &
    33573421                                 'res radiation = .TRUE. and ' //              &
    33583422                                 'radiation_scheme = "rrtmg"'
     
    33953459
    33963460          CASE ( 'c_liq*', 'c_soil*', 'c_veg*', 'ghf_eb*', 'lai*', 'lwp*',     &
    3397                  'm_liq_eb*', 'pra*', 'prr*', 'qsws*', 'qsws_eb*',             &
     3461                 'm_liq_eb*', 'ol*', 'pra*', 'prr*', 'qsws*', 'qsws_eb*',      &
    33983462                 'qsws_liq_eb*', 'qsws_soil_eb*', 'qsws_veg_eb*', 'rad_net*',  &
    33993463                 'rrtm_aldif*', 'rrtm_aldir*', 'rrtm_asdif*', 'rrtm_asdir*',   &
     
    35143578             IF ( TRIM( var ) == 'ghf_eb*')  unit = 'W/m2'
    35153579             IF ( TRIM( var ) == 'lai*'   )  unit = 'none'
    3516              IF ( TRIM( var ) == 'lwp*'   )  unit = 'kg/kg*m'
     3580             IF ( TRIM( var ) == 'lwp*'   )  unit = 'kg/m2'
     3581             IF ( TRIM( var ) == 'm_liq_eb*'     )  unit = 'm'
     3582             IF ( TRIM( var ) == 'ol*'   )   unit = 'm'
    35173583             IF ( TRIM( var ) == 'pra*'   )  unit = 'mm'
    35183584             IF ( TRIM( var ) == 'prr*'   )  unit = 'mm/s'
     
    37883854          constant_diffusion = .TRUE.
    37893855
    3790           IF ( prandtl_layer )  THEN
    3791              message_string = 'prandtl_layer is not allowed with fixed ' //    &
    3792                               'value of km'
     3856          IF ( constant_flux_layer )  THEN
     3857             message_string = 'constant_flux_layer is not allowed with fixed ' &
     3858                              // 'value of km'
    37933859             CALL message( 'check_parameters', 'PA0123', 1, 2, 0, 6, 0 )
    37943860          ENDIF
     
    38163882
    38173883!
    3818 !-- Check value range for rif
    3819     IF ( rif_min >= rif_max )  THEN
    3820        WRITE( message_string, * )  'rif_min = ', rif_min, ' must be less ',    &
    3821                                    'than rif_max = ', rif_max
     3884!-- Check value range for zeta = z/L
     3885    IF ( zeta_min >= zeta_max )  THEN
     3886       WRITE( message_string, * )  'zeta_min = ', zeta_min, ' must be less ',  &
     3887                                   'than zeta_max = ', zeta_max
    38223888       CALL message( 'check_parameters', 'PA0125', 1, 2, 0, 6, 0 )
    38233889    ENDIF
     
    42354301
    42364302!
     4303!-- Check for valid setting of most_method
     4304    IF ( TRIM( most_method ) /= 'circular'  .AND.                              &
     4305         TRIM( most_method ) /= 'newton'  .AND.                                &
     4306         TRIM( most_method ) /= 'lookup' )  THEN
     4307       message_string = 'most_method = "' // TRIM( most_method ) //      &
     4308                        '" is unknown'
     4309       CALL message( 'check_parameters', 'PA0416', 1, 2, 0, 6, 0 )
     4310    ENDIF
     4311
     4312!
    42374313!-- Check &userpar parameters
    42384314    CALL user_check_parameters
  • palm/trunk/SOURCE/data_output_2d.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added output of Obukhov length (ol) and radiative heating rates  for RRTMG.
     22! Formatting corrections.
    2223!
    2324! Former revisions:
     
    112113
    113114    USE arrays_3d,                                                             &
    114         ONLY:  dzw, e, nr, p, pt, q, qc, ql, ql_c, ql_v, ql_vp, qr, qsws,      &
     115        ONLY:  dzw, e, nr, ol, p, pt, q, qc, ql, ql_c, ql_v, ql_vp, qr, qsws,  &
    115116               rho, sa, shf, tend, ts, u, us, v, vpt, w, z0, z0h, zu, zw
    116117       
     
    162163    USE radiation_model_mod,                                                   &
    163164        ONLY:  rad_net, rad_net_av, rad_sw_in, rad_sw_in_av, rad_sw_out,       &
    164                rad_sw_out_av, rad_lw_in, rad_lw_in_av, rad_lw_out,             &
    165                rad_lw_out_av
     165               rad_sw_out_av, rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr,        &
     166               rad_sw_hr_av, rad_lw_in, rad_lw_in_av, rad_lw_out,              &
     167               rad_lw_out_av, rad_lw_cs_hr, rad_lw_cs_hr_av, rad_lw_hr,        &
     168               rad_lw_hr_av
    166169
    167170    IMPLICIT NONE
     
    543546                IF ( mode == 'xy' )  level_z = zu
    544547
     548             CASE ( 'ol*_xy' )        ! 2d-array
     549                IF ( av == 0 ) THEN
     550                   DO  i = nxlg, nxrg
     551                      DO  j = nysg, nyng
     552                         local_pf(i,j,nzb+1) = ol(j,i)
     553                      ENDDO
     554                   ENDDO
     555                ELSE
     556                   DO  i = nxlg, nxrg
     557                      DO  j = nysg, nyng
     558                         local_pf(i,j,nzb+1) = ol_av(j,i)
     559                      ENDDO
     560                   ENDDO
     561                ENDIF
     562                resorted = .TRUE.
     563                two_d = .TRUE.
     564                level_z(nzb+1) = zu(nzb+1)
     565
    545566             CASE ( 'p_xy', 'p_xz', 'p_yz' )
    546567                IF ( av == 0 )  THEN
     
    937958                ENDIF
    938959
     960             CASE ( 'rad_lw_cs_hr_xy', 'rad_lw_cs_hr_xz', 'rad_lw_cs_hr_yz' )
     961                IF ( av == 0 )  THEN
     962                   to_be_resorted => rad_lw_cs_hr
     963                ELSE
     964                   to_be_resorted => rad_lw_cs_hr_av
     965                ENDIF
     966
     967             CASE ( 'rad_lw_hr_xy', 'rad_lw_hr_xz', 'rad_lw_hr_yz' )
     968                IF ( av == 0 )  THEN
     969                   to_be_resorted => rad_lw_hr
     970                ELSE
     971                   to_be_resorted => rad_lw_hr_av
     972                ENDIF
     973
    939974             CASE ( 'rad_sw_in_xy', 'rad_sw_in_xz', 'rad_sw_in_yz' )
    940975                IF ( av == 0 )  THEN
     
    949984                ELSE
    950985                   to_be_resorted => rad_sw_out_av
     986                ENDIF
     987
     988             CASE ( 'rad_sw_cs_hr_xy', 'rad_sw_cs_hr_xz', 'rad_sw_cs_hr_yz' )
     989                IF ( av == 0 )  THEN
     990                   to_be_resorted => rad_sw_cs_hr
     991                ELSE
     992                   to_be_resorted => rad_sw_cs_hr_av
     993                ENDIF
     994
     995             CASE ( 'rad_sw_hr_xy', 'rad_sw_hr_xz', 'rad_sw_hr_yz' )
     996                IF ( av == 0 )  THEN
     997                   to_be_resorted => rad_sw_hr
     998                ELSE
     999                   to_be_resorted => rad_sw_hr_av
    9511000                ENDIF
    9521001
     
    12271276!--                Exit the loop for layers beyond the data output domain
    12281277!--                (used for soil model)
    1229                    IF ( layer_xy .GT. nzt_do )  THEN
     1278                   IF ( layer_xy > nzt_do )  THEN
    12301279                      EXIT loop1
    12311280                   ENDIF
  • palm/trunk/SOURCE/data_output_3d.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Added output of radiative heating rates for RRTMG
    2222!
    2323! Former revisions:
     
    138138    USE radiation_model_mod,                                                   &
    139139        ONLY:  rad_lw_in, rad_lw_in_av, rad_lw_out, rad_lw_out_av,             &
    140                rad_sw_in, rad_sw_in_av, rad_sw_out, rad_sw_out_av
     140               rad_lw_cs_hr, rad_lw_cs_hr_av, rad_lw_hr, rad_lw_hr_av,         &
     141               rad_sw_in, rad_sw_in_av, rad_sw_out, rad_sw_out_av,             &
     142               rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr, rad_sw_hr_av
    141143
    142144
     
    495497             ENDIF
    496498
     499          CASE ( 'rad_sw_cs_hr' )
     500             IF ( av == 0 )  THEN
     501                to_be_resorted => rad_sw_cs_hr
     502             ELSE
     503                to_be_resorted => rad_sw_cs_hr_av
     504             ENDIF
     505
     506          CASE ( 'rad_sw_hr' )
     507             IF ( av == 0 )  THEN
     508                to_be_resorted => rad_sw_hr
     509             ELSE
     510                to_be_resorted => rad_sw_hr_av
     511             ENDIF
     512
    497513          CASE ( 'rad_lw_in' )
    498514             IF ( av == 0 )  THEN
     
    507523             ELSE
    508524                to_be_resorted => rad_lw_out_av
     525             ENDIF
     526
     527          CASE ( 'rad_lw_cs_hr' )
     528             IF ( av == 0 )  THEN
     529                to_be_resorted => rad_lw_cs_hr
     530             ELSE
     531                to_be_resorted => rad_lw_cs_hr_av
     532             ENDIF
     533
     534          CASE ( 'rad_lw_hr' )
     535             IF ( av == 0 )  THEN
     536                to_be_resorted => rad_lw_hr
     537             ELSE
     538                to_be_resorted => rad_lw_hr_av
    509539             ENDIF
    510540
  • palm/trunk/SOURCE/data_output_mask.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added output of radiative heating rates for RRTMG
    2222!
    2323! Former revisions:
     
    119119    USE radiation_model_mod,                                                   &
    120120        ONLY:  rad_lw_in, rad_lw_in_av, rad_lw_out, rad_lw_out_av,             &
    121                rad_sw_in, rad_sw_in_av, rad_sw_out, rad_sw_out_av
     121               rad_lw_cs_hr, rad_lw_cs_hr_av, rad_lw_hr, rad_lw_hr_av,         &
     122               rad_sw_in, rad_sw_in_av, rad_sw_out, rad_sw_out_av,             &
     123               rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr, rad_sw_hr_av
     124
    122125
    123126    IMPLICIT NONE
     
    405408             ENDIF
    406409
     410          CASE ( 'rad_lw_in' )
     411             IF ( av == 0 )  THEN
     412                to_be_resorted => rad_lw_in
     413             ELSE
     414                to_be_resorted => rad_lw_in_av
     415             ENDIF
     416
     417          CASE ( 'rad_lw_out' )
     418             IF ( av == 0 )  THEN
     419                to_be_resorted => rad_lw_out
     420             ELSE
     421                to_be_resorted => rad_lw_out_av
     422             ENDIF
     423
     424          CASE ( 'rad_lw_cs_hr' )
     425             IF ( av == 0 )  THEN
     426                to_be_resorted => rad_lw_cs_hr
     427             ELSE
     428                to_be_resorted => rad_lw_cs_hr_av
     429             ENDIF
     430
     431          CASE ( 'rad_lw_hr' )
     432             IF ( av == 0 )  THEN
     433                to_be_resorted => rad_lw_hr
     434             ELSE
     435                to_be_resorted => rad_lw_hr_av
     436             ENDIF
     437
    407438          CASE ( 'rad_sw_in' )
    408439             IF ( av == 0 )  THEN
     
    419450             ENDIF
    420451
    421           CASE ( 'rad_lw_in' )
    422              IF ( av == 0 )  THEN
    423                 to_be_resorted => rad_lw_in
    424              ELSE
    425                 to_be_resorted => rad_lw_in_av
    426              ENDIF
    427 
    428           CASE ( 'rad_lw_out' )
    429              IF ( av == 0 )  THEN
    430                 to_be_resorted => rad_lw_out
    431              ELSE
    432                 to_be_resorted => rad_lw_out_av
     452          CASE ( 'rad_sw_cs_hr' )
     453             IF ( av == 0 )  THEN
     454                to_be_resorted => rad_sw_cs_hr
     455             ELSE
     456                to_be_resorted => rad_sw_cs_hr_av
     457             ENDIF
     458
     459          CASE ( 'rad_sw_hr' )
     460             IF ( av == 0 )  THEN
     461                to_be_resorted => rad_sw_hr
     462             ELSE
     463                to_be_resorted => rad_sw_hr_av
    433464             ENDIF
    434465
  • palm/trunk/SOURCE/diffusion_s.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Formatting corrections.
    2222!
    2323! Former revisions:
     
    144144!
    145145!--          Apply prescribed horizontal wall heatflux where necessary
    146              IF ( ( wall_w_x(j,i) .NE. 0.0_wp ) .OR. ( wall_w_y(j,i) .NE. 0.0_wp ) ) &
    147              THEN
     146             IF ( ( wall_w_x(j,i) /= 0.0_wp ) .OR. ( wall_w_y(j,i) /= 0.0_wp ) &
     147                )  THEN
    148148                DO  k = nzb_s_inner(j,i)+1, nzb_s_outer(j,i)
    149149
     
    400400!
    401401!--    Apply prescribed horizontal wall heatflux where necessary
    402        IF ( ( wall_w_x(j,i) .NE. 0.0_wp ) .OR. ( wall_w_y(j,i) .NE. 0.0_wp ) )       &
     402       IF ( ( wall_w_x(j,i) /= 0.0_wp ) .OR. ( wall_w_y(j,i) /= 0.0_wp ) )     &
    403403       THEN
    404404          DO  k = nzb_s_inner(j,i)+1, nzb_s_outer(j,i)
  • palm/trunk/SOURCE/diffusion_u.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Formatting corrections.
    2222!
    2323! Former revisions:
     
    508508!
    509509!--    Wall functions at the north and south walls, respectively
    510        IF ( wall_u(j,i) .NE. 0.0_wp )  THEN
     510       IF ( wall_u(j,i) /= 0.0_wp )  THEN
    511511
    512512!
  • palm/trunk/SOURCE/flow_statistics.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Revised calculation of Obukhov length. Added output of radiative heating >
     22! rates for RRTMG.
    2223!
    2324! Former revisions:
     
    161162
    162163    USE arrays_3d,                                                             &
    163         ONLY:  ddzu, ddzw, e, hyp, km, kh, nr, p, prho, pt, q, qc, ql, qr, qs, &
    164                qsws, qswst, rho, sa, saswsb, saswst, shf, td_lsa_lpt, td_lsa_q,&
    165                td_sub_lpt, td_sub_q, time_vert, ts, tswst, u, ug, us, usws,    &
    166                uswst, vsws, v, vg, vpt, vswst, w, w_subs, zw
     164        ONLY:  ddzu, ddzw, e, hyp, km, kh, nr, ol, p, prho, pt, q, qc, ql, qr, &
     165               qs, qsws, qswst, rho, sa, saswsb, saswst, shf, td_lsa_lpt,      &
     166               td_lsa_q, td_sub_lpt, td_sub_q, time_vert, ts, tswst, u, ug, us,&
     167               usws, uswst, vsws, v, vg, vpt, vswst, w, w_subs, zw
    167168       
    168169    USE cloud_parameters,                                                      &
     
    172173        ONLY:   average_count_pr, cloud_droplets, cloud_physics, do_sum,       &
    173174                dt_3d, g, humidity, icloud_scheme, kappa, large_scale_forcing, &
    174                 large_scale_subsidence, max_pr_user, message_string, ocean,    &
    175                 passive_scalar, precipitation, simulated_time,                 &
     175                large_scale_subsidence, max_pr_user, message_string, neutral,  &
     176                ocean, passive_scalar, precipitation, simulated_time,          &
    176177                use_subsidence_tendencies, use_surface_fluxes, use_top_fluxes, &
    177178                ws_scheme_mom, ws_scheme_sca
     
    199200    USE radiation_model_mod,                                                   &
    200201        ONLY:  dots_rad, radiation, radiation_scheme, rad_net,                 &
    201                rad_lw_in, rad_lw_out, rad_sw_in, rad_sw_out
     202               rad_lw_in, rad_lw_out, rad_lw_cs_hr, rad_lw_hr,                 &
     203               rad_sw_in, rad_sw_out, rad_sw_cs_hr, rad_sw_hr
    202204
    203205#if defined ( __rrtmg )
     
    207209 
    208210    USE statistics
     211
    209212
    210213    IMPLICIT NONE
     
    240243    CALL cpu_log( log_point(10), 'flow_statistics', 'start' )
    241244
    242     !$acc update host( km, kh, e, pt, qs, qsws, rif, shf, ts, u, usws, v, vsws, w )
     245    !$acc update host( km, kh, e, ol, pt, qs, qsws, shf, ts, u, usws, v, vsws, w )
    243246
    244247!
     
    744747!
    745748!--                   Formula does not work if ql(nzb) /= 0.0
    746                       sums_l(nzb,51,tn) = sums_l(nzb,51,tn) + &   ! w"q" (w"qv")
    747                                           qsws(j,i) * rmask(j,i,sr)
     749                      sums_l(nzb,51,tn) = sums_l(nzb,51,tn) +                  &
     750                                          qsws(j,i) * rmask(j,i,sr) ! w"q" (w"qv")
    748751                   ENDIF
    749752                ENDIF
    750753                IF ( passive_scalar )  THEN
    751                    sums_l(nzb,48,tn) = sums_l(nzb,48,tn) + &
    752                                        qsws(j,i) * rmask(j,i,sr)  ! w"q" (w"qv")
     754                   sums_l(nzb,48,tn) = sums_l(nzb,48,tn) +                     &
     755                                       qsws(j,i) * rmask(j,i,sr) ! w"q" (w"qv")
    753756                ENDIF
    754757             ENDIF
     758
     759             IF ( .NOT. neutral )  THEN
     760                sums_l(nzb,114,tn) = sums_l(nzb,114,tn) +                      &
     761                                    ol(j,i)  * rmask(j,i,sr) ! L
     762             ENDIF
     763
    755764
    756765             IF ( land_surface )  THEN
     
    774783#if defined ( __rrtmg )
    775784                IF ( radiation_scheme == 'rrtmg' )  THEN
    776                    sums_l(nzb,106,tn)  = sums_l(nzb,106,tn)  + rrtm_aldif(0,j,i)
    777                    sums_l(nzb,107,tn)  = sums_l(nzb,107,tn)  + rrtm_aldir(0,j,i)
    778                    sums_l(nzb,108,tn)  = sums_l(nzb,108,tn)  + rrtm_asdif(0,j,i)
    779                    sums_l(nzb,109,tn)  = sums_l(nzb,109,tn)  + rrtm_asdir(0,j,i)
     785                   sums_l(nzb,110,tn)  = sums_l(nzb,110,tn)  + rrtm_aldif(0,j,i)
     786                   sums_l(nzb,111,tn)  = sums_l(nzb,111,tn)  + rrtm_aldir(0,j,i)
     787                   sums_l(nzb,112,tn)  = sums_l(nzb,112,tn)  + rrtm_asdif(0,j,i)
     788                   sums_l(nzb,113,tn)  = sums_l(nzb,113,tn)  + rrtm_asdir(0,j,i)
    780789                ENDIF
    781790#endif
     
    9971006!--    First calculate the products, then the divergence.
    9981007!--    Calculation is time consuming. Do it only, if profiles shall be plotted.
    999        IF ( hom(nzb+1,2,55,0) /= 0.0_wp  .OR.  hom(nzb+1,2,68,0) /= 0.0_wp )  THEN
    1000 
     1008       IF ( hom(nzb+1,2,55,0) /= 0.0_wp  .OR.  hom(nzb+1,2,68,0) /= 0.0_wp )   &
     1009       THEN
    10011010          sums_ll = 0.0_wp  ! local array
    10021011
     
    10371046!
    10381047!--    Divergence of vertical flux of SGS TKE and the flux itself (69)
    1039        IF ( hom(nzb+1,2,57,0) /= 0.0_wp  .OR.  hom(nzb+1,2,69,0) /= 0.0_wp )  THEN
    1040 
     1048       IF ( hom(nzb+1,2,57,0) /= 0.0_wp  .OR.  hom(nzb+1,2,69,0) /= 0.0_wp )   &
     1049       THEN
    10411050          !$OMP DO
    10421051          DO  i = nxl, nxr
     
    11091118!--    Collect current large scale advection and subsidence tendencies for
    11101119!--    data output
    1111        IF ( large_scale_forcing  .AND.  ( simulated_time .GT. 0.0_wp ) )  THEN
     1120       IF ( large_scale_forcing  .AND.  ( simulated_time > 0.0_wp ) )  THEN
    11121121!
    11131122!--       Interpolation in time of LSF_DATA
     
    11561165             DO  j =  nys, nyn
    11571166                DO  k = nzb_soil, nzt_soil
    1158                    sums_l(k,89,tn)  = sums_l(k,89,tn)  + t_soil(k,j,i) * rmask(j,i,sr)
    1159                    sums_l(k,91,tn)  = sums_l(k,91,tn)  + m_soil(k,j,i) * rmask(j,i,sr)
     1167                   sums_l(k,89,tn)  = sums_l(k,89,tn)  + t_soil(k,j,i)         &
     1168                                      * rmask(j,i,sr)
     1169                   sums_l(k,91,tn)  = sums_l(k,91,tn)  + m_soil(k,j,i)         &
     1170                                      * rmask(j,i,sr)
    11601171                ENDDO
    11611172             ENDDO
     
    11681179             DO  j =  nys, nyn
    11691180                DO  k = nzb_s_inner(j,i)+1, nzt+1
    1170                    sums_l(k,102,tn)  = sums_l(k,102,tn)  + rad_lw_in(k,j,i) * rmask(j,i,sr)
    1171                    sums_l(k,103,tn)  = sums_l(k,103,tn)  + rad_lw_out(k,j,i) * rmask(j,i,sr)
    1172                    sums_l(k,104,tn)  = sums_l(k,104,tn)  + rad_sw_in(k,j,i) * rmask(j,i,sr)
    1173                    sums_l(k,105,tn)  = sums_l(k,105,tn)  + rad_sw_out(k,j,i) * rmask(j,i,sr)
     1181                   sums_l(k,102,tn)  = sums_l(k,102,tn)  + rad_lw_in(k,j,i)    &
     1182                                       * rmask(j,i,sr)
     1183                   sums_l(k,103,tn)  = sums_l(k,103,tn)  + rad_lw_out(k,j,i)   &
     1184                                       * rmask(j,i,sr)
     1185                   sums_l(k,104,tn)  = sums_l(k,104,tn)  + rad_sw_in(k,j,i)    &
     1186                                       * rmask(j,i,sr)
     1187                   sums_l(k,105,tn)  = sums_l(k,105,tn)  + rad_sw_out(k,j,i)   &
     1188                                       * rmask(j,i,sr)
     1189                   sums_l(k,106,tn)  = sums_l(k,106,tn)  + rad_lw_cs_hr(k,j,i) &
     1190                                       * rmask(j,i,sr)
     1191                   sums_l(k,107,tn)  = sums_l(k,107,tn)  + rad_lw_hr(k,j,i)    &
     1192                                       * rmask(j,i,sr)
     1193                   sums_l(k,108,tn)  = sums_l(k,108,tn)  + rad_sw_cs_hr(k,j,i) &
     1194                                       * rmask(j,i,sr)
     1195                   sums_l(k,109,tn)  = sums_l(k,108,tn)  + rad_sw_hr(k,j,i)    &
     1196                                       * rmask(j,i,sr)
    11741197                ENDDO
    11751198             ENDDO
     
    13741397          hom(:,1,105,sr) = sums(:,105)            ! rad_sw_out
    13751398
     1399          IF ( radiation_scheme == 'rrtmg' )  THEN
     1400             hom(:,1,106,sr) = sums(:,106)            ! rad_lw_cs_hr
     1401             hom(:,1,107,sr) = sums(:,107)            ! rad_lw_hr
     1402             hom(:,1,108,sr) = sums(:,108)            ! rad_sw_cs_hr
     1403             hom(:,1,109,sr) = sums(:,109)            ! rad_sw_hr
     1404
    13761405#if defined ( __rrtmg )
    1377           IF ( radiation_scheme == 'rrtmg' )  THEN
    1378              hom(:,1,106,sr) = sums(:,106)            ! rrtm_aldif
    1379              hom(:,1,107,sr) = sums(:,107)            ! rrtm_aldir
    1380              hom(:,1,108,sr) = sums(:,108)            ! rrtm_asdif
    1381              hom(:,1,109,sr) = sums(:,109)            ! rrtm_asdir
     1406             hom(:,1,110,sr) = sums(:,110)            ! rrtm_aldif
     1407             hom(:,1,111,sr) = sums(:,111)            ! rrtm_aldir
     1408             hom(:,1,112,sr) = sums(:,112)            ! rrtm_asdif
     1409             hom(:,1,113,sr) = sums(:,113)            ! rrtm_asdir
     1410#endif
    13821411          ENDIF
    1383 #endif
    1384 
    1385        ENDIF
     1412
     1413
     1414       ENDIF
     1415
     1416       hom(:,1,114,sr) = sums(:,114)            !: L
    13861417
    13871418       hom(:,1,pr_palm-1,sr) = sums(:,pr_palm-1)
     
    15201551       ts_value(20,sr) = hom(nzb+2,1,pr_palm,sr)    ! v'w'    at k=0
    15211552       ts_value(21,sr) = hom(nzb,1,48,sr)           ! w"q"    at k=0
    1522 
     1553 
     1554!
     1555!--    Calculate obukhov length
    15231556       IF ( ts_value(5,sr) /= 0.0_wp )  THEN
    1524           ts_value(22,sr) = ts_value(4,sr)**2 / &
    1525                             ( kappa * g * ts_value(5,sr) / ts_value(18,sr) ) ! L
     1557!           IF ( most_method == 'circular' )  THEN
     1558!              ts_value(22,sr) = ts_value(4,sr)**2 /                             &
     1559!                           ( kappa * g * ts_value(5,sr) / ts_value(18,sr) )
     1560!           ELSE
     1561             ts_value(22,sr) = hom(nzb,1,114,sr) 
     1562!          ENDIF     
    15261563       ELSE
    15271564          ts_value(22,sr) = 10000.0_wp
     
    15531590#if defined ( __rrtmg )
    15541591          IF ( radiation_scheme == 'rrtmg' )  THEN
    1555              ts_value(dots_rad+5,sr) = hom(nzb,1,106,sr)          ! rrtm_aldif
    1556              ts_value(dots_rad+6,sr) = hom(nzb,1,107,sr)          ! rrtm_aldir
    1557              ts_value(dots_rad+7,sr) = hom(nzb,1,108,sr)          ! rrtm_asdif
    1558              ts_value(dots_rad+8,sr) = hom(nzb,1,109,sr)          ! rrtm_asdir
     1592             ts_value(dots_rad+5,sr) = hom(nzb,1,110,sr)          ! rrtm_aldif
     1593             ts_value(dots_rad+6,sr) = hom(nzb,1,111,sr)          ! rrtm_aldir
     1594             ts_value(dots_rad+7,sr) = hom(nzb,1,112,sr)          ! rrtm_asdif
     1595             ts_value(dots_rad+8,sr) = hom(nzb,1,113,sr)          ! rrtm_asdir
    15591596          ENDIF
    15601597#endif
     
    16421679#if defined ( __rrtmg )
    16431680    USE radiation_model_mod,                                                   &
    1644         ONLY:  rrtm_aldif, rrtm_aldir, rrtm_asdif, rrtm_asdir
     1681        ONLY:  rrtm_aldif, rrtm_aldir, rrtm_asdif, rrtm_asdir, rad_lw_cs_hr,   &
     1682               rad_lw_hr,  rad_sw_cs_hr, rad_sw_hr
    16451683#endif
    16461684
     
    30633101!--    Collect current large scale advection and subsidence tendencies for
    30643102!--    data output
    3065        IF ( large_scale_forcing  .AND.  ( simulated_time .GT. 0.0_wp ) )  THEN
     3103       IF ( large_scale_forcing  .AND.  ( simulated_time > 0.0_wp ) )  THEN
    30663104!
    30673105!--       Interpolation in time of LSF_DATA
     
    31103148             DO  j =  nys, nyn
    31113149                DO  k = nzb_soil, nzt_soil
    3112                    sums_l(k,89,tn)  = sums_l(k,89,tn)  + t_soil(k,j,i) * rmask(j,i,sr)
    3113                    sums_l(k,91,tn)  = sums_l(k,91,tn)  + m_soil(k,j,i) * rmask(j,i,sr)
     3150                   sums_l(k,89,tn)  = sums_l(k,89,tn)  + t_soil(k,j,i)         &
     3151                                      * rmask(j,i,sr)
     3152                   sums_l(k,91,tn)  = sums_l(k,91,tn)  + m_soil(k,j,i)         &
     3153                                      * rmask(j,i,sr)
    31143154                ENDDO
    31153155             ENDDO
     
    31233163             DO  j =  nys, nyn
    31243164                DO  k = nzb_s_inner(j,i)+1, nzt+1
    3125                    sums_l(k,102,tn)  = sums_l(k,102,tn)  + rad_lw_in(k,j,i) * rmask(j,i,sr)
    3126                    sums_l(k,103,tn)  = sums_l(k,103,tn)  + rad_lw_out(k,j,i) * rmask(j,i,sr)
    3127                    sums_l(k,104,tn)  = sums_l(k,104,tn)  + rad_sw_in(k,j,i) * rmask(j,i,sr)
    3128                    sums_l(k,105,tn)  = sums_l(k,105,tn)  + rad_sw_out(k,j,i) * rmask(j,i,sr)
     3165                   sums_l(k,102,tn)  = sums_l(k,102,tn)  + rad_lw_in(k,j,i)    &
     3166                                       * rmask(j,i,sr)
     3167                   sums_l(k,103,tn)  = sums_l(k,103,tn)  + rad_lw_out(k,j,i)   &
     3168                                       * rmask(j,i,sr)
     3169                   sums_l(k,104,tn)  = sums_l(k,104,tn)  + rad_sw_in(k,j,i)    &
     3170                                       * rmask(j,i,sr)
     3171                   sums_l(k,105,tn)  = sums_l(k,105,tn)  + rad_sw_out(k,j,i)   &
     3172                                       * rmask(j,i,sr)
     3173#if defined ( __rrtmg )
     3174                   sums_l(k,106,tn)  = sums_l(k,106,tn)  + rad_lw_cs_hr(k,j,i) &
     3175                                       * rmask(j,i,sr)
     3176                   sums_l(k,107,tn)  = sums_l(k,107,tn)  + rad_lw_hr(k,j,i)    &
     3177                                       * rmask(j,i,sr)
     3178                   sums_l(k,108,tn)  = sums_l(k,108,tn)  + rad_sw_cs_hr(k,j,i) &
     3179                                       * rmask(j,i,sr)
     3180                   sums_l(k,109,tn)  = sums_l(k,109,tn)  + rad_sw_hr(k,j,i)    &
     3181                                       * rmask(j,i,sr)
     3182#endif
    31293183                ENDDO
    31303184             ENDDO
     
    31933247          sums(k,70:80)           = sums(k,70:80)       / ngp_2dh_s_inner(k,sr)
    31943248          sums(k,81:88)           = sums(k,81:88)       / ngp_2dh(sr)
    3195           sums(k,89:105)           = sums(k,89:105)     / ngp_2dh(sr)
    3196           sums(k,106:pr_palm-2)    = sums(k,106:pr_palm-2)/ ngp_2dh_s_inner(k,sr)
     3249          sums(k,89:114)           = sums(k,89:114)     / ngp_2dh(sr)
     3250          sums(k,115:pr_palm-2)    = sums(k,115:pr_palm-2)/ ngp_2dh_s_inner(k,sr)
     3251
    31973252       ENDDO
    31983253
     
    34463501
    34473502       IF ( ts_value(5,sr) /= 0.0_wp )  THEN
    3448           ts_value(22,sr) = ts_value(4,sr)**2_wp / &
    3449                             ( kappa * g * ts_value(5,sr) / ts_value(18,sr) ) ! L
     3503          ts_value(22,sr) = hom(nzb,1,114,sr)
    34503504       ELSE
    34513505          ts_value(22,sr) = 10000.0_wp
  • palm/trunk/SOURCE/header.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Renamed prandtl_layer to constant_flux_layer, renames rif_min/rif_max to
     22! zeta_min/zeta_max.
    2223!
    2324! Former revisions:
     
    11181119    ENDIF
    11191120
    1120     IF ( prandtl_layer )  THEN
    1121        WRITE ( io, 305 )  (zu(1)-zu(0)), roughness_length, &
    1122                           z0h_factor*roughness_length, kappa, &
    1123                           rif_min, rif_max
     1121    IF ( constant_flux_layer )  THEN
     1122       WRITE ( io, 305 )  (zu(1)-zu(0)), roughness_length,                     &
     1123                          z0h_factor*roughness_length, kappa,                  &
     1124                          zeta_min, zeta_max
    11241125       IF ( .NOT. constant_heatflux )  WRITE ( io, 308 )
    11251126       IF ( humidity  .AND.  .NOT. constant_waterflux )  THEN
     
    11311132    ELSE
    11321133       IF ( INDEX(initializing_actions, 'set_1d-model_profiles') /= 0 )  THEN
    1133           WRITE ( io, 310 )  rif_min, rif_max
     1134          WRITE ( io, 310 )  zeta_min, zeta_max
    11341135       ENDIF
    11351136    ENDIF
  • palm/trunk/SOURCE/init_1d_model.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Renamed prandtl_layer to constant_flux_layer. rif is replaced by ol and zeta.
    2222!
    2323! Former revisions:
     
    7272!> of the wind profile is being computed.
    7373!> All subroutines required can be found within this file.
     74!>
     75!> @todo harmonize code with new surface_layer_fluxes module
    7476!------------------------------------------------------------------------------!
    7577 SUBROUTINE init_1d_model
     
    9092   
    9193    USE control_parameters,                                                    &
    92         ONLY:  constant_diffusion, f, humidity, kappa, km_constant,            &
    93                mixing_length_1d, passive_scalar, prandtl_layer,                &
    94                prandtl_number, roughness_length, simulated_time_chr,           &
    95                z0h_factor
     94        ONLY:  constant_diffusion, constant_flux_layer, f, humidity, kappa,    &
     95               km_constant, mixing_length_1d, passive_scalar, prandtl_number,  &
     96               roughness_length, simulated_time_chr, z0h_factor
    9697
    9798    IMPLICIT NONE
     
    166167!
    167168!-- For u*, theta* and the momentum fluxes plausible values are set
    168     IF ( prandtl_layer )  THEN
     169    IF ( constant_flux_layer )  THEN
    169170       us1d = 0.1_wp   ! without initial friction the flow would not change
    170171    ELSE
     
    213214       
    214215    USE control_parameters,                                                    &
    215         ONLY:  constant_diffusion, dissipation_1d, humidity,                   &
    216                intermediate_timestep_count, intermediate_timestep_count_max,   &
    217                f, g, ibc_e_b, kappa, mixing_length_1d, passive_scalar,         &
    218                prandtl_layer, rif_max, rif_min, simulated_time_chr,            &
    219                timestep_scheme, tsc
     216        ONLY:  constant_diffusion, constant_flux_layer, dissipation_1d,        &
     217               humidity, intermediate_timestep_count,                          &
     218               intermediate_timestep_count_max, f, g, ibc_e_b, kappa,          & 
     219               mixing_length_1d, passive_scalar,                               &
     220               simulated_time_chr, timestep_scheme, tsc, zeta_max, zeta_min
    220221               
    221222    USE indices,                                                               &
     
    334335!--       Finite differences of the momentum fluxes are computed using half the
    335336!--       normal grid length (2.0*ddzw(k)) for the sake of enhanced accuracy
    336           IF ( prandtl_layer )  THEN
     337          IF ( constant_flux_layer )  THEN
    337338
    338339             k = nzb+1
     
    465466!
    466467!--          First compute the vertical fluxes in the Prandtl-layer
    467              IF ( prandtl_layer )  THEN
     468             IF ( constant_flux_layer )  THEN
    468469!
    469470!--             Compute theta* using Rif numbers of the previous time step
     
    498499                ENDIF
    499500
    500              ENDIF    ! prandtl_layer
     501             ENDIF    ! constant_flux_layer
    501502
    502503!
     
    506507!--          the rif-numbers of the previous time step are used.
    507508
    508              IF ( prandtl_layer )  THEN
     509             IF ( constant_flux_layer )  THEN
    509510                IF ( .NOT. humidity )  THEN
    510511                   pt_0 = pt_init(nzb+1)
     
    547548!--          range. It is exceeded excessively for very small velocities
    548549!--          (u,v --> 0).
    549              WHERE ( rif1d < rif_min )  rif1d = rif_min
    550              WHERE ( rif1d > rif_max )  rif1d = rif_max
     550             WHERE ( rif1d < zeta_min )  rif1d = zeta_min
     551             WHERE ( rif1d > zeta_max )  rif1d = zeta_max
    551552
    552553!
    553554!--          Compute u* from the absolute velocity value
    554              IF ( prandtl_layer )  THEN
     555             IF ( constant_flux_layer )  THEN
    555556                uv_total = SQRT( u1d(nzb+1)**2 + v1d(nzb+1)**2 )
    556557
     
    639640                ENDIF             
    640641
    641              ENDIF   !  prandtl_layer
     642             ENDIF   !  constant_flux_layer
    642643
    643644!
     
    673674!--          computed via the adiabatic mixing length, for the unstability has
    674675!--          already been taken account of via the TKE (cf. also Diss.).
    675              IF ( prandtl_layer )  THEN
     676             IF ( constant_flux_layer )  THEN
    676677                IF ( rif1d(nzb+1) >= 0.0_wp )  THEN
    677678                   km1d(nzb+1) = us1d * kappa * zu(nzb+1) /                    &
     
    805806
    806807       uv_total = SQRT( u1d(nzb+1)**2 + v1d(nzb+1)**2 )
    807        IF ( ABS( v1d(nzb+1) ) .LT. 1.0E-5_wp )  THEN
     808       IF ( ABS( v1d(nzb+1) ) < 1.0E-5_wp )  THEN
    808809          alpha = ACOS( SIGN( 1.0_wp , u1d(nzb+1) ) )
    809810       ELSE
  • palm/trunk/SOURCE/init_3d_model.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Call to init_surface_layer added. rif is replaced by ol and zeta.
    2222!
    2323! Former revisions:
     
    266266               sums_l_l, sums_up_fraction_l, sums_wsts_bc_l, ts_value,         &
    267267               var_d, weight_pres, weight_substep
    268    
     268 
     269    USE surface_layer_fluxes_mod,                                              &
     270        ONLY:  init_surface_layer_fluxes
     271   
    269272    USE transpose_indices
    270273
     
    313316    ALLOCATE( ptdf_x(nxlg:nxrg), ptdf_y(nysg:nyng) )
    314317
    315     ALLOCATE( rif(nysg:nyng,nxlg:nxrg), shf(nysg:nyng,nxlg:nxrg),     &
     318    ALLOCATE( ol(nysg:nyng,nxlg:nxrg), shf(nysg:nyng,nxlg:nxrg),      &
    316319              ts(nysg:nyng,nxlg:nxrg), tswst(nysg:nyng,nxlg:nxrg),    &
    317320              us(nysg:nyng,nxlg:nxrg), usws(nysg:nyng,nxlg:nxrg),     &
     
    714717             hom(:,1,25,:) = SPREAD( l1d, 2, statistic_regions+1 )
    715718
    716              IF ( prandtl_layer )  THEN
    717                 rif  = rif1d(nzb+1)
     719             IF ( constant_flux_layer )  THEN
     720                ol   = ( zu(nzb+1) - zw(nzb) ) / rif1d(nzb+1)
    718721                ts   = 0.0_wp  ! could actually be computed more accurately in the
    719722                               ! 1D model. Update when opportunity arises.
     
    723726             ELSE
    724727                ts   = 0.0_wp  ! must be set, because used in
    725                 rif  = 0.0_wp  ! flowste
     728                ol   = ( zu(nzb+1) - zw(nzb) ) / zeta_min  ! flowste
    726729                us   = 0.0_wp
    727730                usws = 0.0_wp
     
    731734          ELSE
    732735             e    = 0.0_wp  ! must be set, because used in
    733              rif  = 0.0_wp  ! flowste
     736             ol   = ( zu(nzb+1) - zw(nzb) ) / zeta_min  ! flowste
    734737             ts   = 0.0_wp
    735738             us   = 0.0_wp
     
    886889             e    = 0.0_wp
    887890          ENDIF
    888           rif   = 0.0_wp
     891          ol    = ( zu(nzb+1) - zw(nzb) ) / zeta_min
    889892          ts    = 0.0_wp
    890893          us    = 0.0_wp
     
    10951098!
    10961099!--    Initialize Prandtl layer quantities
    1097        IF ( prandtl_layer )  THEN
     1100       IF ( constant_flux_layer )  THEN
    10981101
    10991102          z0 = roughness_length
     
    11031106!
    11041107!--          Surface temperature is prescribed. Here the heat flux cannot be
    1105 !--          simply estimated, because therefore rif, u* and theta* would have
     1108!--          simply estimated, because therefore ol, u* and theta* would have
    11061109!--          to be computed by iteration. This is why the heat flux is assumed
    11071110!--          to be zero before the first time step. It approaches its correct
     
    16241627       CALL location_message( 'initializing land surface model', .FALSE. )
    16251628       CALL init_lsm
     1629       CALL location_message( 'finished', .TRUE. )
     1630    ENDIF
     1631
     1632!
     1633!-- Initialize surface layer (done after LSM as roughness length are required
     1634!-- for initialization
     1635    IF ( constant_flux_layer )  THEN
     1636       CALL location_message( 'initializing surface layer', .FALSE. )
     1637       CALL init_surface_layer_fluxes
    16261638       CALL location_message( 'finished', .TRUE. )
    16271639    ENDIF
  • palm/trunk/SOURCE/init_cloud_physics.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Removed typo
    2222!
    2323! Former revisions:
     
    117117    dpirho_l = 1.0_wp / pirho_l
    118118!
    119 !-- constant fot the sedimentation of cloud water (2-moment cloud physics)
     119!-- constant for the sedimentation of cloud water (2-moment cloud physics)
    120120    sed_qc_const = k_st * ( 3.0_wp / ( 4.0_wp * pi * rho_l )                   &
    121121                          )**( 2.0_wp / 3.0_wp ) *                             &
  • palm/trunk/SOURCE/init_grid.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Renamed prandtl_layer to constant_flux_layer.
    2222!
    2323! Former revisions:
     
    144144               building_length_y, building_wall_left, building_wall_south,     &
    145145               canyon_height, canyon_wall_left, canyon_wall_south,             &
    146                canyon_width_x, canyon_width_y, coupling_char, dp_level_ind_b,  &
    147                dz, dz_max, dz_stretch_factor, dz_stretch_level,                &
    148                dz_stretch_level_index, ibc_uv_b, io_blocks, io_group,          &
    149                inflow_l, inflow_n, inflow_r, inflow_s, masking_method,         &
    150                maximum_grid_level, message_string, momentum_advec, ocean,      &
    151                outflow_l, outflow_n, outflow_r, outflow_s, prandtl_layer,      &
    152                psolver, scalar_advec, topography, topography_grid_convention,  &
    153                use_surface_fluxes, use_top_fluxes, wall_adjustment_factor
     146               canyon_width_x, canyon_width_y, constant_flux_layer,            &
     147               coupling_char, dp_level_ind_b, dz, dz_max, dz_stretch_factor,   &
     148               dz_stretch_level, dz_stretch_level_index, ibc_uv_b, io_blocks,  &
     149               io_group, inflow_l, inflow_n, inflow_r, inflow_s,               &
     150               masking_method, maximum_grid_level, message_string,             &
     151               momentum_advec, ocean, outflow_l, outflow_n, outflow_r,         &
     152               outflow_s, psolver, scalar_advec, topography,                   &
     153               topography_grid_convention, use_surface_fluxes, use_top_fluxes, &
     154               wall_adjustment_factor
    154155       
    155156    USE grid_variables,                                                        &
     
    477478!-- Define vertical gridpoint from (or to) which on the usual finite difference
    478479!-- form (which does not use surface fluxes) is applied
    479     IF ( prandtl_layer  .OR.  use_surface_fluxes )  THEN
     480    IF ( constant_flux_layer  .OR.  use_surface_fluxes )  THEN
    480481       nzb_diff = nzb + 2
    481482    ELSE
     
    955956!-- the usual finite difference form (which does not use surface fluxes) is
    956957!-- applied
    957     IF ( prandtl_layer  .OR.  use_surface_fluxes )  THEN
     958    IF ( constant_flux_layer  .OR.  use_surface_fluxes )  THEN
    958959       nzb_diff_u         = nzb_u_inner + 2
    959960       nzb_diff_v         = nzb_v_inner + 2
  • palm/trunk/SOURCE/land_surface_model.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added skip_time_do_lsm to allow for spin-ups without LSM. Various bugfixes:
     22! Soil temperatures are now defined at the edges of the layers, calculation of
     23! shb_eb corrected, prognostic equation for skin temperature corrected. Surface
     24! fluxes are now directly transfered to atmosphere
    2225!
    2326! Former revisions:
     
    7376!> DALES and UCLA-LES models.
    7477!>
    75 !> @todo Check dewfall parametrization for fog simulations.
    76 !> @todo Consider partial absorption of the net shortwave radiation by the surface layer.
    77 !> @todo Allow for water surfaces, check performance for bare soils.
    78 !> @todo Invert indices (running from -3 to 0. Currently: nzb_soil=0, nzt_soil=3)).
    79 !> @todo Implement surface runoff model (required when performing long-term LES with
    80 !>       considerable precipitation.
     78!> @todo Consider partial absorption of the net shortwave radiation by the
     79!>       surface layer.
     80!> @todo Allow for water surfaces
     81!> @todo Invert indices (running from -3 to 0. Currently: nzb_soil=0,
     82!>       nzt_soil=3)).
     83!> @todo Implement surface runoff model (required when performing long-term LES
     84!>       with considerable precipitation.
    8185!>
    82 !> @note  No time step criterion is required as long as the soil layers do not become
    83 !>        too thin.
     86!> @note  No time step criterion is required as long as the soil layers do not
     87!>        become too thin.
    8488!------------------------------------------------------------------------------!
    8589 MODULE land_surface_model_mod
    8690 
    87      USE arrays_3d,                                                            &
    88          ONLY:  pt, pt_p, q_p, qsws, rif, shf, ts, us, z0, z0h
    89 
    90      USE cloud_parameters,                                                     &
    91          ONLY:  cp, l_d_r, l_v, precipitation_rate, rho_l, r_d, r_v
    92 
    93      USE control_parameters,                                                   &
    94          ONLY:  cloud_physics, dt_3d, humidity, intermediate_timestep_count,   &
    95                 initializing_actions, intermediate_timestep_count_max,         &
    96                 max_masks, precipitation, pt_surface, rho_surface,             &
    97                 roughness_length, surface_pressure, timestep_scheme, tsc,      &
    98                 z0h_factor, time_since_reference_point
    99 
    100      USE indices,                                                              &
    101          ONLY:  nbgp, nxlg, nxrg, nyng, nysg, nzb, nzb_s_inner
    102 
    103      USE kinds
     91    USE arrays_3d,                                                             &
     92        ONLY:  hyp, pt, pt_p, q, q_p, ql, qsws, rif, shf, ts, us, vpt, z0, z0h
     93
     94    USE cloud_parameters,                                                      &
     95        ONLY:  cp, hyrho, l_d_cp, l_d_r, l_v, prr, pt_d_t, rho_l, r_d, r_v
     96
     97    USE control_parameters,                                                    &
     98        ONLY:  cloud_physics, dt_3d, humidity, intermediate_timestep_count,    &
     99               initializing_actions, intermediate_timestep_count_max,          &
     100               max_masks, precipitation, pt_surface, rho_surface,              &
     101               roughness_length, surface_pressure, timestep_scheme, tsc,       &
     102               z0h_factor, time_since_reference_point
     103
     104    USE indices,                                                               &
     105        ONLY:  nbgp, nxlg, nxrg, nyng, nysg, nzb, nzb_s_inner
     106
     107    USE kinds
    104108
    105109    USE netcdf_control,                                                        &
    106110        ONLY:  dots_label, dots_num, dots_unit
    107111
    108      USE radiation_model_mod,                                                  &
    109          ONLY:  radiation_scheme, rad_net, rad_sw_in, sigma_sb
    110 
    111      USE statistics,                                                           &
    112          ONLY:  hom, statistic_regions
     112    USE pegrid
     113
     114    USE radiation_model_mod,                                                   &
     115        ONLY:  force_radiation_call, radiation_scheme, rad_net, rad_sw_in,     &
     116               rad_lw_out, sigma_sb
     117       
     118#if defined ( __rrtmg )
     119    USE radiation_model_mod,                                                   &
     120        ONLY:  rrtm_lwuflx_dt, rrtm_idrv
     121#endif
     122
     123    USE statistics,                                                            &
     124        ONLY:  hom, statistic_regions
    113125
    114126    IMPLICIT NONE
     
    144156                    soil_type = 3    !< soil type, 0: user-defined, 1-6: generic (see list)
    145157
    146     LOGICAL :: conserve_water_content = .TRUE., & !< open or closed bottom surface for the soil model
    147                dewfall = .TRUE.,                & !< allow/inhibit dewfall
    148                land_surface = .FALSE.             !< flag parameter indicating wheather the lsm is used
     158    LOGICAL :: conserve_water_content = .TRUE.,  & !< open or closed bottom surface for the soil model
     159               dewfall = .TRUE.,                 & !< allow/inhibit dewfall
     160               force_radiation_call_l = .FALSE., & !< flag parameter for unscheduled radiation model calls
     161               land_surface = .FALSE.              !< flag parameter indicating wheather the lsm is used
    149162
    150163!   value 9999999.9_wp -> generic available or user-defined value must be set
     
    160173                hydraulic_conductivity = 9999999.9_wp,  & !< NAMELIST gamma_w_sat
    161174                ke = 0.0_wp,                            & !< Kersten number
     175                lambda_h_sat = 0.0_wp,                  & !< heat conductivity for saturated soil
    162176                lambda_surface_stable = 9999999.9_wp,   & !< NAMELIST lambda_surface_s
    163177                lambda_surface_unstable = 9999999.9_wp, & !< NAMELIST lambda_surface_u
     
    174188                rd_d_rv,                                & !< r_d / r_v
    175189                saturation_moisture = 9999999.9_wp,     & !< NAMELIST m_sat
     190                skip_time_do_lsm = 0.0_wp,              & !< LSM is not called before this time
    176191                vegetation_coverage = 9999999.9_wp,     & !< NAMELIST c_veg
    177192                wilting_point = 9999999.9_wp,           & !< NAMELIST m_wilt
    178193                z0_eb  = 9999999.9_wp,                  & !< NAMELIST z0 (lsm_par)
    179                 z0h_eb = 9999999.9_wp                    !< NAMELIST z0h (lsm_par)
     194                z0h_eb = 9999999.9_wp                     !< NAMELIST z0h (lsm_par)
    180195
    181196    REAL(wp), DIMENSION(nzb_soil:nzt_soil) :: &
    182               ddz_soil,                     & !< 1/dz_soil
    183               ddz_soil_stag,                & !< 1/dz_soil_stag
    184               dz_soil,                      & !< soil grid spacing (center-center)
    185               dz_soil_stag,                 & !< soil grid spacing (edge-edge)
    186               root_extr = 0.0_wp,           & !< root extraction
     197              ddz_soil_stag,                  & !< 1/dz_soil_stag
     198              dz_soil_stag,                   & !< soil grid spacing (center-center)
     199              root_extr = 0.0_wp,             & !< root extraction
    187200              root_fraction = (/9999999.9_wp, 9999999.9_wp,    &
    188201                                9999999.9_wp, 9999999.9_wp /), & !< distribution of root surface area to the individual soil layers
     
    191204
    192205    REAL(wp), DIMENSION(nzb_soil:nzt_soil+1) ::   &
    193               soil_temperature = (/290.0_wp, 287.0_wp, 285.0_wp,  283.0_wp,    &
    194                                    283.0_wp /) !< soil temperature (K)
     206              soil_temperature = (/290.0_wp, 287.0_wp, 285.0_wp,  283.0_wp,    & !< soil temperature (K)
     207                                   283.0_wp /),                                &                                   
     208              ddz_soil,                                                        & !< 1/dz_soil
     209              dz_soil                                                            !< soil grid spacing (edge-edge)
    195210
    196211#if defined( __nopointer )
     
    218233!
    219234!-- Energy balance variables               
    220     REAL(wp), DIMENSION(:,:), ALLOCATABLE ::                                   &
     235    REAL(wp), DIMENSION(:,:), ALLOCATABLE :: &
    221236              alpha_vg,         & !< coef. of Van Genuchten
    222237              c_liq,            & !< liquid water coverage (of vegetated area)
     
    232247              lai,              & !< leaf area index
    233248              lai_av,           & !< average of lai
    234               lambda_h_sat,     & !< heat conductivity for dry soil
    235               lambda_surface_s,    & !< coupling between surface and soil (depends on vegetation type)
    236               lambda_surface_u,    & !< coupling between surface and soil (depends on vegetation type)
     249              lambda_surface_s, & !< coupling between surface and soil (depends on vegetation type)
     250              lambda_surface_u, & !< coupling between surface and soil (depends on vegetation type)
    237251              l_vg,             & !< coef. of Van Genuchten
    238252              m_fc,             & !< soil moisture at field capacity (m3/m3)
     
    253267              r_a_av,           & !< avergae of r_a
    254268              r_canopy,         & !< canopy resistance
    255               r_soil,           & !< soil resitance
     269              r_soil,           & !< soil resistance
    256270              r_soil_min,       & !< minimum soil resistance
    257271              r_s,              & !< total surface resistance (combination of r_soil and r_canopy)
    258               r_s_av,           & !< avergae of r_s
     272              r_s_av,           & !< average of r_s
    259273              r_canopy_min,     & !< minimum canopy (stomatal) resistance
    260274              shf_eb,           & !< surface flux of sensible heat
    261275              shf_eb_av           !< average of shf_eb
     276
    262277
    263278    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::                                 &
     
    472487           lsm_swap_timelevel, l_vangenuchten, min_canopy_resistance,          &
    473488           min_soil_resistance, n_vangenuchten, residual_moisture, rho_cp,     &
    474            rho_lv, root_fraction, saturation_moisture, soil_moisture,          &
    475            soil_temperature, soil_type, soil_type_name, vegetation_coverage,   &
    476            veg_type, veg_type_name, wilting_point, z0_eb, z0h_eb
     489           rho_lv, root_fraction, saturation_moisture, skip_time_do_lsm,       &
     490           soil_moisture, soil_temperature, soil_type, soil_type_name,         &
     491           vegetation_coverage, veg_type, veg_type_name, wilting_point, z0_eb, &
     492           z0h_eb
    477493
    478494!
     
    483499           zs
    484500
    485 
    486501!
    487502!-- Public 2D output variables
     
    490505           qsws_soil_eb, qsws_soil_eb_av, qsws_veg_eb, qsws_veg_eb_av,         &
    491506           r_a, r_a_av, r_s, r_s_av, shf_eb, shf_eb_av
    492 
    493507
    494508!
     
    565579       ALLOCATE ( lai(nysg:nyng,nxlg:nxrg) )
    566580       ALLOCATE ( l_vg(nysg:nyng,nxlg:nxrg) )
    567        ALLOCATE ( lambda_h_sat(nysg:nyng,nxlg:nxrg) )
    568581       ALLOCATE ( lambda_surface_u(nysg:nyng,nxlg:nxrg) )
    569582       ALLOCATE ( lambda_surface_s(nysg:nyng,nxlg:nxrg) )
     
    612625       INTEGER(iwp) ::  k !< running index
    613626
     627       REAL(wp) :: pt_1   !< potential temperature at first grid level
     628
    614629
    615630!
    616631!--    Calculate Exner function
    617        exn       = ( surface_pressure / 1000.0_wp )**0.286_wp
     632       exn = ( surface_pressure / 1000.0_wp )**0.286_wp
    618633
    619634
     
    674689!
    675690!--    Calculate grid spacings. Temperature and moisture are defined at
    676 !--    the center of the soil layers, whereas gradients/fluxes are defined
    677 !--    at the edges (_stag)
    678        dz_soil_stag(nzb_soil) = zs(nzb_soil)
    679 
    680        DO k = nzb_soil+1, nzt_soil
    681           dz_soil_stag(k) = zs(k) - zs(k-1)
     691!--    the edges of the soil layers (_stag), whereas gradients/fluxes are defined
     692!--    at the centers
     693       dz_soil(nzb_soil) = zs(nzb_soil)
     694
     695       DO  k = nzb_soil+1, nzt_soil
     696          dz_soil(k) = zs(k) - zs(k-1)
    682697       ENDDO
    683 
    684        DO k = nzb_soil, nzt_soil-1
    685           dz_soil(k) = 0.5 * (dz_soil_stag(k+1) + dz_soil_stag(k))
     698       dz_soil(nzt_soil+1) = dz_soil(nzt_soil)
     699
     700       DO  k = nzb_soil, nzt_soil-1
     701          dz_soil_stag(k) = 0.5_wp * (dz_soil(k+1) + dz_soil(k))
    686702       ENDDO
    687        dz_soil(nzt_soil) = dz_soil_stag(nzt_soil)
     703       dz_soil_stag(nzt_soil) = dz_soil(nzt_soil)
    688704
    689705       ddz_soil      = 1.0_wp / dz_soil
     
    752768!--       (make sure that the soil moisture does not drop below the permanent
    753769!--       wilting point) -> problems with devision by zero)
    754           DO k = nzb_soil, nzt_soil
     770          DO  k = nzb_soil, nzt_soil
    755771             t_soil(k,:,:)    = soil_temperature(k)
    756772             m_soil(k,:,:)    = MAX(soil_moisture(k),m_wilt(:,:))
     
    761777!
    762778!--       Calculate surface temperature
    763           t_surface = pt_surface * exn
     779          t_surface   = pt_surface * exn
     780          t_surface_p = t_surface
    764781
    765782!
     
    770787                k = nzb_s_inner(j,i)
    771788
     789                IF ( cloud_physics )  THEN
     790                   pt_1 = pt(k+1,j,i) + l_d_cp * pt_d_t(k+1) * ql(k+1,j,i)
     791                ELSE
     792                   pt_1 = pt(k+1,j,i)
     793                ENDIF
     794
    772795!
    773796!--             Assure that r_a cannot be zero at model start
    774                 IF ( pt(k+1,j,i) == pt(k,j,i) )  pt(k+1,j,i) = pt(k+1,j,i)     &
    775                                                  + 1.0E-10_wp
    776 
    777                 us(j,i) = 0.1_wp
    778                 ts(j,i) = (pt(k+1,j,i) - pt(k,j,i)) / r_a(j,i)
     797                IF ( pt_1 == pt(k,j,i) )  pt_1 = pt_1 + 1.0E-10_wp
     798
     799                us(j,i)  = 0.1_wp
     800                ts(j,i)  = (pt_1 - pt(k,j,i)) / r_a(j,i)
    779801                shf(j,i) = - us(j,i) * ts(j,i)
    780802             ENDDO
     
    794816       ENDIF
    795817
    796 !
    797 !--    Calculate saturation soil heat conductivity
    798        lambda_h_sat(:,:) = lambda_h_sm ** (1.0_wp - m_sat(:,:)) *              &
    799                            lambda_h_water ** m_sat(:,:)
    800 
    801 
    802 
    803 
    804        DO k = nzb_soil, nzt_soil
     818       DO  k = nzb_soil, nzt_soil
    805819          root_fr(k,:,:) = root_fraction(k)
    806820       ENDDO
     
    838852
    839853          IF ( ANY( root_fraction == 9999999.9_wp ) )  THEN
    840              DO k = nzb_soil, nzt_soil
     854             DO  k = nzb_soil, nzt_soil
    841855                root_fr(k,:,:) = root_distribution(k,veg_type)
    842856                root_fraction(k) = root_distribution(k,veg_type)
     
    886900
    887901!
    888 !--    Calculate humidity at the surface
    889        IF ( humidity )  THEN
    890           CALL calc_q_surface
    891        ENDIF
    892 
    893 
    894 
    895 !
    896902!--    Add timeseries for land surface model
    897 
    898        dots_label(dots_num+1) = "ghf_eb"
    899        dots_label(dots_num+2) = "shf_eb"
    900        dots_label(dots_num+3) = "qsws_eb"
    901        dots_label(dots_num+4) = "qsws_liq_eb"
    902        dots_label(dots_num+5) = "qsws_soil_eb"
    903        dots_label(dots_num+6) = "qsws_veg_eb"
    904        dots_unit(dots_num+1:dots_num+6) = "W/m2"
    905 
    906        dots_label(dots_num+7) = "r_a"
    907        dots_label(dots_num+8) = "r_s"
    908        dots_unit(dots_num+7:dots_num+8) = "s/m"
    909 
    910903       dots_soil = dots_num + 1
    911904       dots_num  = dots_num + 8
     905
     906       dots_label(dots_soil) = "ghf_eb"
     907       dots_label(dots_soil+1) = "shf_eb"
     908       dots_label(dots_soil+2) = "qsws_eb"
     909       dots_label(dots_soil+3) = "qsws_liq_eb"
     910       dots_label(dots_soil+4) = "qsws_soil_eb"
     911       dots_label(dots_soil+5) = "qsws_veg_eb"
     912       dots_label(dots_soil+6) = "r_a"
     913       dots_label(dots_soil+7) = "r_s"
     914
     915       dots_unit(dots_soil:dots_soil+5) = "W/m2"
     916       dots_unit(dots_soil+6:dots_soil+7) = "s/m"
    912917
    913918       RETURN
     
    921926! ------------
    922927!> Solver for the energy balance at the surface.
    923 !> @note Surface fluxes are calculated in the land surface model, but these are
    924 !>       not used in the atmospheric code. The fluxes are calculated afterwards in
    925 !>       prandtl_fluxes using the surface values of temperature and humidity as
    926 !>       provided by the land surface model. In this way, the fluxes in the land
    927 !>       surface model are not equal to the ones calculated in prandtl_fluxes
    928928!------------------------------------------------------------------------------!
    929929    SUBROUTINE lsm_energy_balance
     
    940940                   f3,          & !< resistance correction term 3
    941941                   m_min,       & !< minimum soil moisture
    942                    T_1,         & !< actual temperature at first grid point
    943942                   e,           & !< water vapour pressure
    944943                   e_s,         & !< water vapour saturation pressure
     
    954953                   f_shf,       & !< factor for shf_eb
    955954                   lambda_surface, & !< Current value of lambda_surface
    956                    m_liq_eb_max   !< maxmimum value of the liq. water reservoir
    957 
     955                   m_liq_eb_max,   & !< maxmimum value of the liq. water reservoir
     956                   pt_1,        & !< potential temperature at first grid level
     957                   qv_1           !< specific humidity at first grid level
    958958
    959959!
     
    961961       exn = ( surface_pressure / 1000.0_wp )**0.286_wp
    962962
    963        
    964 
    965        DO i = nxlg, nxrg
    966           DO j = nysg, nyng
     963       DO  i = nxlg, nxrg
     964          DO  j = nysg, nyng
    967965             k = nzb_s_inner(j,i)
    968966
     
    980978!--          time step is used here. Note that this formulation is the
    981979!--          equivalent to the ECMWF formulation using drag coefficients
    982              r_a(j,i) = (pt(k+1,j,i) - pt(k,j,i)) / (ts(j,i) * us(j,i) +       &
    983                          1.0E-20_wp)
     980             IF ( cloud_physics )  THEN
     981                pt_1 = pt(k+1,j,i) + l_d_cp * pt_d_t(k+1) * ql(k+1,j,i)
     982                qv_1 = q(k+1,j,i) - ql(k+1,j,i)
     983             ELSE
     984                pt_1 = pt(k+1,j,i)
     985                qv_1 = q(k+1,j,i)
     986             ENDIF
     987
     988             r_a(j,i) = (pt_1 - pt(k,j,i)) / (ts(j,i) * us(j,i) + 1.0E-20_wp)
    984989
    985990!
     
    10021007!--          f2 = 0 for very dry soils
    10031008             m_total = 0.0_wp
    1004              DO ks = nzb_soil, nzt_soil
     1009             DO  ks = nzb_soil, nzt_soil
    10051010                 m_total = m_total + root_fr(ks,j,i)                           &
    10061011                           * MAX(m_soil(ks,j,i),m_wilt(j,i))
    10071012             ENDDO
    10081013
    1009              IF ( m_total .GT. m_wilt(j,i) .AND. m_total .LT. m_fc(j,i) )  THEN
     1014             IF ( m_total > m_wilt(j,i) .AND. m_total < m_fc(j,i) )  THEN
    10101015                f2 = ( m_total - m_wilt(j,i) ) / (m_fc(j,i) - m_wilt(j,i) )
    1011              ELSEIF ( m_total .GE. m_fc(j,i) )  THEN
     1016             ELSEIF ( m_total >= m_fc(j,i) )  THEN
    10121017                f2 = 1.0_wp
    10131018             ELSE
     
    10251030!
    10261031!--             Calculate vapour pressure
    1027                 e  = q_p(k+1,j,i) * surface_pressure / 0.622_wp
     1032                e  = qv_1 * surface_pressure / 0.622_wp
    10281033                f3 = EXP ( -g_d(j,i) * (e_s - e) )
    10291034             ELSE
     
    10671072!--          In case of dewfall, set evapotranspiration to zero
    10681073!--          All super-saturated water is then removed from the air
    1069              IF ( humidity .AND. dewfall .AND. q_s .LE. q_p(k+1,j,i) )  THEN
     1074             IF ( humidity .AND. q_s <= qv_1 )  THEN
    10701075                r_canopy(j,i) = 0.0_wp
    10711076                r_soil(j,i)   = 0.0_wp
    1072              ENDIF 
     1077             ENDIF
    10731078
    10741079!
     
    10851090!--          If soil moisture is below wilting point, plants do no longer
    10861091!--          transpirate.
    1087 !              IF ( m_soil(k,j,i) .LT. m_wilt(j,i) )  THEN
     1092!              IF ( m_soil(k,j,i) < m_wilt(j,i) )  THEN
    10881093!                 f_qsws_veg = 0.0_wp
    10891094!              ENDIF
     
    10941099!--          air.
    10951100             IF ( humidity )  THEN
    1096                 IF ( q_s .LE. q_p(k+1,j,i) )  THEN
     1101                IF ( q_s <= qv_1 )  THEN
    10971102                   IF ( .NOT. dewfall )  THEN
    10981103                      f_qsws_veg  = 0.0_wp
     
    11141119             dq_s_dt = 0.622_wp * e_s_dt / surface_pressure
    11151120
    1116              T_1 = pt_p(k+1,j,i) * exn
    1117 
    11181121!
    11191122!--          Add LW up so that it can be removed in prognostic equation
    1120              rad_net_l(j,i) = rad_net(j,i) + sigma_sb * t_surface(j,i) ** 4
     1123             rad_net_l(j,i) = rad_net(j,i) + rad_lw_out(nzb,j,i)
     1124
    11211125
    11221126             IF ( humidity )  THEN
    1123 
     1127#if defined ( __rrtmg )
    11241128!
    11251129!--             Numerator of the prognostic equation
    1126                 coef_1 = rad_net_l(j,i) + 3.0_wp * sigma_sb * t_surface(j,i) ** 4&
    1127                          + f_shf / exn * T_1 + f_qsws * ( q_p(k+1,j,i) - q_s   &
     1130                coef_1 = rad_net_l(j,i) + rrtm_lwuflx_dt(0,nzb)                &
     1131                         * t_surface(j,i) - rad_lw_out(nzb,j,i)                &
     1132                         + f_shf * pt_1 + f_qsws * ( qv_1 - q_s                &
    11281133                         + dq_s_dt * t_surface(j,i) ) + lambda_surface         &
    11291134                         * t_soil(nzb_soil,j,i)
     
    11311136!
    11321137!--             Denominator of the prognostic equation
    1133                 coef_2 = 4.0_wp * sigma_sb * t_surface(j,i) ** 3 + f_qsws      &
    1134                          * dq_s_dt + lambda_surface + f_shf / exn
    1135 
     1138                coef_2 = rrtm_lwuflx_dt(0,nzb) + f_qsws * dq_s_dt              &
     1139                         + lambda_surface + f_shf / exn
     1140#else
     1141
     1142!
     1143!--             Numerator of the prognostic equation
     1144                coef_1 = rad_net_l(j,i) + 3.0_wp * sigma_sb                    &
     1145                         * t_surface(j,i) ** 4                                 &
     1146                         + f_shf * pt_1 + f_qsws * ( qv_1                      &
     1147                         - q_s + dq_s_dt * t_surface(j,i) )                    &
     1148                         + lambda_surface * t_soil(nzb_soil,j,i)
     1149
     1150!
     1151!--                Denominator of the prognostic equation
     1152                   coef_2 = 4.0_wp * sigma_sb * t_surface(j,i) ** 3 + f_qsws   &
     1153                            * dq_s_dt + lambda_surface + f_shf / exn
     1154 
     1155#endif
    11361156             ELSE
    11371157
     1158#if defined ( __rrtmg )
    11381159!
    11391160!--             Numerator of the prognostic equation
    1140                 coef_1 = rad_net_l(j,i) + 3.0_wp * sigma_sb * t_surface(j,i) ** 4&
    1141                          + f_shf / exn * T_1 + lambda_surface                  &
     1161                coef_1 = rad_net_l(j,i) + rrtm_lwuflx_dt(0,nzb)                &
     1162                         * t_surface(j,i) - rad_lw_out(nzb,j,i)                &
     1163                         + f_shf * pt_1  + lambda_surface                      &
    11421164                         * t_soil(nzb_soil,j,i)
     1165
     1166!
     1167!--             Denominator of the prognostic equation
     1168                coef_2 = rrtm_lwuflx_dt(0,nzb) + lambda_surface + f_shf / exn
     1169#else
     1170
     1171!
     1172!--             Numerator of the prognostic equation
     1173                coef_1 = rad_net_l(j,i) + 3.0_wp * sigma_sb                    &
     1174                          * t_surface(j,i) ** 4 + f_shf * pt_1                 &
     1175                          + lambda_surface * t_soil(nzb_soil,j,i)
    11431176
    11441177!
     
    11461179                coef_2 = 4.0_wp * sigma_sb * t_surface(j,i) ** 3               &
    11471180                         + lambda_surface + f_shf / exn
    1148 
    1149              ENDIF
     1181#endif
     1182             ENDIF
     1183
    11501184
    11511185             tend = 0.0_wp
     
    11591193!
    11601194!--          Add RK3 term
    1161              t_surface_p(j,i) = t_surface_p(j,i) + dt_3d * tsc(3)              &
    1162                                 * tt_surface_m(j,i)
    1163 
    1164 !
    1165 !--          Calculate true tendency
    1166              tend = (t_surface_p(j,i) - t_surface(j,i) - dt_3d * tsc(3)        &
    1167                     * tt_surface_m(j,i)) / (dt_3d  * tsc(2))
    1168 !
    1169 !--          Calculate t_surface tendencies for the next Runge-Kutta step
    1170              IF ( timestep_scheme(1:5) == 'runge' )  THEN
    1171                 IF ( intermediate_timestep_count == 1 )  THEN
    1172                    tt_surface_m(j,i) = tend
    1173                 ELSEIF ( intermediate_timestep_count <                         &
    1174                          intermediate_timestep_count_max )  THEN
    1175                    tt_surface_m(j,i) = -9.5625_wp * tend + 5.3125_wp           &
    1176                                        * tt_surface_m(j,i)
     1195             IF ( c_surface /= 0.0_wp )  THEN
     1196
     1197                t_surface_p(j,i) = t_surface_p(j,i) + dt_3d * tsc(3)           &
     1198                                   * tt_surface_m(j,i)
     1199
     1200!
     1201!--             Calculate true tendency
     1202                tend = (t_surface_p(j,i) - t_surface(j,i) - dt_3d * tsc(3)     &
     1203                       * tt_surface_m(j,i)) / (dt_3d  * tsc(2))
     1204!
     1205!--             Calculate t_surface tendencies for the next Runge-Kutta step
     1206                IF ( timestep_scheme(1:5) == 'runge' )  THEN
     1207                   IF ( intermediate_timestep_count == 1 )  THEN
     1208                      tt_surface_m(j,i) = tend
     1209                   ELSEIF ( intermediate_timestep_count <                      &
     1210                            intermediate_timestep_count_max )  THEN
     1211                      tt_surface_m(j,i) = -9.5625_wp * tend + 5.3125_wp        &
     1212                                          * tt_surface_m(j,i)
     1213                   ENDIF
    11771214                ENDIF
    1178              ENDIF
    1179 
    1180              pt_p(k,j,i) = t_surface_p(j,i) / exn
     1215
     1216             ENDIF
     1217
     1218!
     1219!--          In case of fast changes in the skin temperature, it is required to
     1220!--          update the radiative fluxes in order to keep the solution stable
     1221             IF ( ABS( t_surface_p(j,i) - t_surface(j,i) ) > 0.2_wp )  THEN
     1222                force_radiation_call_l = .TRUE.
     1223             ENDIF
     1224
     1225             pt(k,j,i) = t_surface_p(j,i) / exn
     1226
    11811227!
    11821228!--          Calculate fluxes
    1183              rad_net_l(j,i)   = rad_net_l(j,i) + 3.0_wp * sigma_sb                 &
    1184                               * t_surface(j,i)**4 - 4.0_wp * sigma_sb          &
    1185                               * t_surface(j,i)**3 * t_surface_p(j,i)
     1229#if defined ( __rrtmg )
     1230             rad_net_l(j,i)   = rad_net_l(j,i) + rrtm_lwuflx_dt(0,nzb)         &
     1231                                * t_surface(j,i) - rad_lw_out(nzb,j,i)         &
     1232                                - rrtm_lwuflx_dt(0,nzb) * t_surface_p(j,i)
     1233
     1234             IF ( rrtm_idrv == 1 )  THEN
     1235                rad_net(j,i) = rad_net_l(j,i)
     1236                rad_lw_out(nzb,j,i) = rad_lw_out(nzb,j,i)                      &
     1237                                      + rrtm_lwuflx_dt(0,nzb)                  &
     1238                                      * ( t_surface_p(j,i) - t_surface(j,i) )
     1239             ENDIF
     1240#else
     1241             rad_net_l(j,i)   = rad_net_l(j,i) + 3.0_wp * sigma_sb             &
     1242                                * t_surface(j,i)**4 - 4.0_wp * sigma_sb        &
     1243                                * t_surface(j,i)**3 * t_surface_p(j,i)
     1244             rad_net(j,i) = rad_net_l(j,i)
     1245#endif
     1246
    11861247             ghf_eb(j,i)    = lambda_surface * (t_surface_p(j,i)               &
    11871248                              - t_soil(nzb_soil,j,i))
    1188              shf_eb(j,i)    = - f_shf  * ( pt_p(k+1,j,i) - pt_p(k,j,i) )
     1249
     1250             shf_eb(j,i)    = - f_shf * ( pt_1 - pt(k,j,i) )
     1251
     1252             shf(j,i) = shf_eb(j,i) / rho_cp
    11891253
    11901254             IF ( humidity )  THEN
    1191                 qsws_eb(j,i)  = - f_qsws    * ( q_p(k+1,j,i) - q_s + dq_s_dt   &
     1255                qsws_eb(j,i)  = - f_qsws    * ( qv_1 - q_s + dq_s_dt           &
    11921256                                * t_surface(j,i) - dq_s_dt * t_surface_p(j,i) )
    11931257
    1194                 qsws_veg_eb(j,i)  = - f_qsws_veg  * ( q_p(k+1,j,i) - q_s       &
     1258                qsws(j,i) = qsws_eb(j,i) / rho_lv
     1259
     1260                qsws_veg_eb(j,i)  = - f_qsws_veg  * ( qv_1 - q_s               &
    11951261                                    + dq_s_dt * t_surface(j,i) - dq_s_dt       &
    11961262                                    * t_surface_p(j,i) )
    11971263
    1198                 qsws_soil_eb(j,i) = - f_qsws_soil * ( q_p(k+1,j,i) - q_s       &
     1264                qsws_soil_eb(j,i) = - f_qsws_soil * ( qv_1 - q_s               &
    11991265                                    + dq_s_dt * t_surface(j,i) - dq_s_dt       &
    12001266                                    * t_surface_p(j,i) )
    12011267
    1202                 qsws_liq_eb(j,i)  = - f_qsws_liq  * ( q_p(k+1,j,i) - q_s       &
     1268                qsws_liq_eb(j,i)  = - f_qsws_liq  * ( qv_1 - q_s               &
    12031269                                    + dq_s_dt * t_surface(j,i) - dq_s_dt       &
    12041270                                    * t_surface_p(j,i) )
    12051271             ENDIF
    1206 
    12071272!
    12081273!--          Calculate the true surface resistance
    1209              IF ( qsws_eb(j,i) .EQ. 0.0_wp )  THEN
     1274             IF ( qsws_eb(j,i) == 0.0_wp )  THEN
    12101275                r_s(j,i) = 1.0E10_wp
    12111276             ELSE
    1212                 r_s(j,i) = - rho_lv * ( q_p(k+1,j,i) - q_s + dq_s_dt           &
     1277                r_s(j,i) = - rho_lv * ( qv_1 - q_s + dq_s_dt                   &
    12131278                           * t_surface(j,i) - dq_s_dt * t_surface_p(j,i) )     &
    12141279                           / qsws_eb(j,i) - r_a(j,i)
     
    12281293!--                Add precipitation to liquid water reservoir, if possible.
    12291294!--                Otherwise, add the water to bare soil fraction.
    1230                    IF ( m_liq_eb(j,i) .EQ. m_liq_eb_max )  THEN
     1295                   IF ( m_liq_eb(j,i) /= m_liq_eb_max )  THEN
    12311296                      qsws_liq_eb(j,i) = qsws_liq_eb(j,i)                      &
    1232                                        + c_veg(j,i) * precipitation_rate(j,i)  &
     1297                                       + c_veg(j,i) * prr(k,j,i) * hyrho(k)    &
    12331298                                       * 0.001_wp * rho_l * l_v
    12341299                   ELSE
    12351300                      qsws_soil_eb(j,i) = qsws_soil_eb(j,i)                    &
    1236                                         + c_veg(j,i) * precipitation_rate(j,i) &
     1301                                        + c_veg(j,i) * prr(k,j,i) * hyrho(k)  &
    12371302                                        * 0.001_wp * rho_l * l_v
    12381303                   ENDIF
     
    12411306!--                coverage.
    12421307                   qsws_soil_eb(j,i) = qsws_soil_eb(j,i) * (1.0_wp             &
    1243                                        - c_veg(j,i)) * precipitation_rate(j,i) &
     1308                                       - c_veg(j,i)) * prr(k,j,i) * hyrho(k)  &
    12441309                                       * 0.001_wp * rho_l * l_v
    12451310                ENDIF
     1311
    12461312!
    12471313!--             If the air is saturated, check the reservoir water level
    1248                 IF ( q_s .LE. q_p(k+1,j,i))  THEN
     1314                IF ( qsws_eb(j,i) < 0.0_wp )  THEN
     1315
    12491316!
    12501317!--                Check if reservoir is full (avoid values > m_liq_eb_max)
     
    12521319!--                case qsws_veg_eb is zero anyway (because c_liq = 1),       
    12531320!--                so that tend is zero and no further check is needed
    1254                    IF ( m_liq_eb(j,i) .EQ. m_liq_eb_max )  THEN
     1321                   IF ( m_liq_eb(j,i) == m_liq_eb_max )  THEN
    12551322                      qsws_soil_eb(j,i) = qsws_soil_eb(j,i)                    &
    12561323                                           + qsws_liq_eb(j,i)
     
    12621329!--                let the water enter the liquid water reservoir as dew on the
    12631330!--                plant
    1264                    IF ( qsws_veg_eb(j,i) .LT. 0.0_wp )  THEN
     1331                   IF ( qsws_veg_eb(j,i) < 0.0_wp )  THEN
    12651332                      qsws_liq_eb(j,i) = qsws_liq_eb(j,i) + qsws_veg_eb(j,i)
    12661333                      qsws_veg_eb(j,i) = 0.0_wp
     
    13011368       ENDDO
    13021369
     1370#if defined( __parallel )
     1371!
     1372!--    Make a logical OR for all processes. Force radiation call if at
     1373!--    least one processor
     1374       IF ( intermediate_timestep_count == intermediate_timestep_count_max-1 )&
     1375       THEN
     1376
     1377          IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
     1378          CALL MPI_ALLREDUCE( force_radiation_call_l, force_radiation_call,    &
     1379                              1, MPI_LOGICAL, MPI_LOR, comm2d, ierr )
     1380#else
     1381          force_radiation_call = force_radiation_call_l
     1382#endif
     1383          force_radiation_call_l = .FALSE.
     1384       ENDIF
     1385
     1386
    13031387    END SUBROUTINE lsm_energy_balance
    13041388
     
    13221406
    13231407       REAL(wp), DIMENSION(nzb_soil:nzt_soil) :: gamma_temp,  & !< temp. gamma
    1324                                                lambda_temp, & !< temp. lambda
    1325                                                tend           !< tendency
    1326 
    1327        DO i = nxlg, nxrg   
    1328           DO j = nysg, nyng
    1329              DO k = nzb_soil, nzt_soil
     1408                                                 lambda_temp, & !< temp. lambda
     1409                                                 tend           !< tendency
     1410
     1411       DO  i = nxlg, nxrg
     1412          DO  j = nysg, nyng
     1413             DO  k = nzb_soil, nzt_soil
    13301414!
    13311415!--             Calculate volumetric heat capacity of the soil, taking into
     
    13351419
    13361420!
    1337 !--             Calculate soil heat conductivity at the center of the soil 
     1421!--             Calculate soil heat conductivity at the center of the soil
    13381422!--             layers
     1423                lambda_h_sat = lambda_h_sm ** (1.0_wp - m_sat(j,i)) *          &
     1424                               lambda_h_water ** m_soil(k,j,i)
     1425
    13391426                ke = 1.0_wp + LOG10(MAX(0.1_wp,m_soil(k,j,i) / m_sat(j,i)))
    1340                 lambda_temp(k) = ke * (lambda_h_sat(j,i) + lambda_h_dry) +     &
     1427
     1428                lambda_temp(k) = ke * (lambda_h_sat - lambda_h_dry) +          &
    13411429                                 lambda_h_dry
    13421430
     
    13461434!--          Calculate soil heat conductivity (lambda_h) at the _stag level
    13471435!--          using linear interpolation
    1348              DO k = nzb_soil, nzt_soil-1
    1349                  
    1350                 lambda_h(k,j,i) = lambda_temp(k) +                             &
    1351                                   ( lambda_temp(k+1) - lambda_temp(k) )        &
    1352                                   * 0.5 * dz_soil_stag(k) * ddz_soil(k+1)
    1353 
     1436             DO  k = nzb_soil, nzt_soil-1
     1437                lambda_h(k,j,i) = ( lambda_temp(k+1) + lambda_temp(k) ) * 0.5_wp
    13541438             ENDDO
    13551439             lambda_h(nzt_soil,j,i) = lambda_temp(nzt_soil)
     
    13581442!--          Prognostic equation for soil temperature t_soil
    13591443             tend(:) = 0.0_wp
    1360              tend(0) = (1.0_wp/rho_c_total(nzb_soil,j,i)) *                    &
     1444             tend(nzb_soil) = (1.0_wp/rho_c_total(nzb_soil,j,i)) *             &
    13611445                       ( lambda_h(nzb_soil,j,i) * ( t_soil(nzb_soil+1,j,i)     &
    1362                          - t_soil(nzb_soil,j,i) ) * ddz_soil(nzb_soil       &
     1446                         - t_soil(nzb_soil,j,i) ) * ddz_soil(nzb_soil+1)       &
    13631447                         + ghf_eb(j,i) ) * ddz_soil_stag(nzb_soil)
    13641448
    1365              DO  k = 1, nzt_soil
     1449
     1450
     1451
     1452             DO  k = nzb_soil+1, nzt_soil
    13661453                tend(k) = (1.0_wp/rho_c_total(k,j,i))                          &
    13671454                          * (   lambda_h(k,j,i)                                &
    13681455                              * ( t_soil(k+1,j,i) - t_soil(k,j,i) )            &
    1369                               * ddz_soil(k                                  &
     1456                              * ddz_soil(k+1)                                  &
    13701457                              - lambda_h(k-1,j,i)                              &
    13711458                              * ( t_soil(k,j,i) - t_soil(k-1,j,i) )            &
    1372                               * ddz_soil(k-1)                                  &
     1459                              * ddz_soil(k                                  &
    13731460                            ) * ddz_soil_stag(k)
    13741461             ENDDO
     
    13961483
    13971484
    1398              DO k = nzb_soil, nzt_soil
     1485             DO  k = nzb_soil, nzt_soil
    13991486
    14001487!
     
    14141501                              / (n_vg(j,i)-1.0_wp)) - 1.0_wp                   &
    14151502                          )**(1.0_wp/n_vg(j,i)) / alpha_vg(j,i)
     1503
    14161504
    14171505                   gamma_temp(k) = gamma_w_sat(j,i) * ( ( (1.0_wp +            &
     
    14381526!--             using linear interpolation. To do: replace this with
    14391527!--             ECMWF-IFS Eq. 8.81
    1440                 DO k = nzb_soil, nzt_soil-1
     1528                DO  k = nzb_soil, nzt_soil-1
    14411529                     
    1442                    lambda_w(k,j,i) = lambda_temp(k) +                          &
    1443                                      ( lambda_temp(k+1) - lambda_temp(k) )     &
    1444                                      * 0.5_wp * dz_soil_stag(k) * ddz_soil(k+1)
    1445                    gamma_w(k,j,i)  = gamma_temp(k) +                           &
    1446                                      ( gamma_temp(k+1) - gamma_temp(k) )       &
    1447                                      * 0.5_wp * dz_soil_stag(k) * ddz_soil(k+1)                 
     1530                   lambda_w(k,j,i) = ( lambda_temp(k+1) + lambda_temp(k) )     &
     1531                                     * 0.5_wp
     1532                   gamma_w(k,j,i)  = ( gamma_temp(k+1) + gamma_temp(k) )       &
     1533                                     * 0.5_wp
    14481534
    14491535                ENDDO
     
    14571543                   gamma_w(nzt_soil,j,i) = 0.0_wp
    14581544                ELSE
    1459                    gamma_w(nzt_soil,j,i) = lambda_temp(nzt_soil)
     1545                   gamma_w(nzt_soil,j,i) = gamma_temp(nzt_soil)
    14601546                ENDIF     
    14611547
     
    14701556
    14711557!
    1472 !--             Calculate the root extraction (ECMWF 7.69, modified so that the
    1473 !--             sum of root_extr = 1). The energy balance solver guarantees a
    1474 !--             positive transpiration, so that there is no need for an
    1475 !--             additional check.
    1476 
    1477                 m_total = 0.0_wp
    1478                 DO k = nzb_soil, nzt_soil
    1479                     IF ( m_soil(k,j,i) .GT. m_wilt(j,i) )  THEN
     1558!--             Calculate the root extraction (ECMWF 7.69, the sum of root_extr
     1559!--             = 1). The energy balance solver guarantees a positive
     1560!--             transpiration, so that there is no need for an additional check.
     1561                DO  k = nzb_soil, nzt_soil
     1562                    IF ( m_soil(k,j,i) > m_wilt(j,i) )  THEN
    14801563                       m_total = m_total + root_fr(k,j,i) * m_soil(k,j,i)
    14811564                    ENDIF
    14821565                ENDDO 
    14831566
    1484                 DO k = nzb_soil, nzt_soil
    1485                    IF ( m_soil(k,j,i) .GT. m_wilt(j,i) )  THEN
    1486                       root_extr(k) = root_fr(k,j,i) * m_soil(k,j,i) / m_total
    1487                    ELSE
    1488                       root_extr(k) = 0.0_wp
    1489                    ENDIF
    1490                 ENDDO
     1567                IF ( m_total > 0.0_wp )  THEN
     1568                   DO  k = nzb_soil, nzt_soil
     1569                      IF ( m_soil(k,j,i) > m_wilt(j,i) )  THEN
     1570                         root_extr(k) = root_fr(k,j,i) * m_soil(k,j,i) / m_total
     1571                      ELSE
     1572                         root_extr(k) = 0.0_wp
     1573                      ENDIF
     1574                   ENDDO
     1575                ENDIF
    14911576
    14921577!
     
    14951580                tend(nzb_soil) = ( lambda_w(nzb_soil,j,i) * (                  &
    14961581                            m_soil(nzb_soil+1,j,i) - m_soil(nzb_soil,j,i) )    &
    1497                             * ddz_soil(nzb_soil) - gamma_w(nzb_soil,j,i) - (  &
     1582                            * ddz_soil(nzb_soil+1) - gamma_w(nzb_soil,j,i) - ( &
    14981583                            root_extr(nzb_soil) * qsws_veg_eb(j,i)             &
    14991584                            + qsws_soil_eb(j,i) ) * drho_l_lv )                &
     
    15021587                DO  k = nzb_soil+1, nzt_soil-1
    15031588                   tend(k) = ( lambda_w(k,j,i) * ( m_soil(k+1,j,i)             &
    1504                                - m_soil(k,j,i) ) * ddz_soil(k) - gamma_w(k,j,i)&
    1505                                - lambda_w(k-1,j,i) * (m_soil(k,j,i) -          &
    1506                                m_soil(k-1,j,i)) * ddz_soil(k-1)                &
    1507                                + gamma_w(k-1,j,i) - (root_extr(k)              &
    1508                                * qsws_veg_eb(j,i) * drho_l_lv)                 &
     1589                             - m_soil(k,j,i) ) * ddz_soil(k+1) - gamma_w(k,j,i)&
     1590                             - lambda_w(k-1,j,i) * (m_soil(k,j,i) -            &
     1591                             m_soil(k-1,j,i)) * ddz_soil(k)                    &
     1592                             + gamma_w(k-1,j,i) - (root_extr(k)                &
     1593                             * qsws_veg_eb(j,i) * drho_l_lv)                   &
    15091594                             ) * ddz_soil_stag(k)
    15101595
     
    15141599                                        * (m_soil(nzt_soil,j,i)                &
    15151600                                        - m_soil(nzt_soil-1,j,i))              &
    1516                                         * ddz_soil(nzt_soil-1)                 &
     1601                                        * ddz_soil(nzt_soil                 &
    15171602                                        + gamma_w(nzt_soil-1,j,i) - (          &
    15181603                                          root_extr(nzt_soil)                  &
     
    15731658       REAL(wp) :: resistance    !< aerodynamic and soil resistance term
    15741659
    1575        DO i = nxlg, nxrg   
    1576           DO j = nysg, nyng
     1660       DO  i = nxlg, nxrg   
     1661          DO  j = nysg, nyng
    15771662             k = nzb_s_inner(j,i)
    15781663
    15791664!
    15801665!--          Calculate water vapour pressure at saturation
    1581              e_s = 0.01_wp * 610.78_wp * EXP( 17.269_wp * ( t_surface(j,i)     &
    1582                                               - 273.16_wp ) / ( t_surface(j,i) &
    1583                                               - 35.86_wp ) )
     1666             e_s = 0.01_wp * 610.78_wp * EXP( 17.269_wp * ( t_surface_p(j,i)   &
     1667                   - 273.16_wp ) / ( t_surface_p(j,i) - 35.86_wp ) )
    15841668
    15851669!
     
    15871671             q_s = 0.622_wp * e_s / surface_pressure
    15881672
    1589 
    15901673             resistance = r_a(j,i) / (r_a(j,i) + r_s(j,i))
    15911674
    15921675!
    15931676!--          Calculate specific humidity at surface
    1594              q_p(k,j,i) = resistance * q_s + (1.0_wp - resistance)             &
    1595                           * q_p(k+1,j,i)
     1677             IF ( cloud_physics )  THEN
     1678                q(k,j,i) = resistance * q_s + (1.0_wp - resistance)            &
     1679                             * ( q(k+1,j,i) - ql(k+1,j,i) )
     1680             ELSE
     1681                q(k,j,i) = resistance * q_s + (1.0_wp - resistance)            &
     1682                             * q(k+1,j,i)
     1683             ENDIF
     1684
     1685!
     1686!--          Update virtual potential temperature
     1687             vpt(k,j,i) = pt(k,j,i) * ( 1.0_wp + 0.61_wp * q(k,j,i) )
    15961688
    15971689          ENDDO
  • palm/trunk/SOURCE/lpm_advec.f90

    r1686 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Renamed prandtl_layer to constant_flux_layer.
    2222!
    2323! Former revisions:
     
    8383
    8484    USE control_parameters,                                                    &
    85         ONLY:  atmos_ocean_sign, cloud_droplets, dt_3d, dt_3d_reached_l, dz,   &
    86                g, kappa, molecular_viscosity, prandtl_layer, topography,      &
     85        ONLY:  atmos_ocean_sign, cloud_droplets, constant_flux_layer, dt_3d,   &
     86               dt_3d_reached_l, dz, g, kappa, molecular_viscosity, topography, &
    8787               u_gtrans, v_gtrans, simulated_time
    8888
     
    224224!--       First, check if particle is located below first vertical grid level
    225225!--       (Prandtl-layer height)
    226           IF ( prandtl_layer  .AND.  particles(n)%z < z_p )  THEN
     226          IF ( constant_flux_layer  .AND.  particles(n)%z < z_p )  THEN
    227227!
    228228!--          Resolved-scale horizontal particle velocity is zero below z0.
     
    294294       DO  n = start_index(nb), end_index(nb)
    295295
    296           IF ( prandtl_layer  .AND.  particles(n)%z < z_p )  THEN
     296          IF ( constant_flux_layer  .AND.  particles(n)%z < z_p )  THEN
    297297
    298298             IF ( particles(n)%z < z0_av_global )  THEN
  • palm/trunk/SOURCE/lpm_exchange_horiz.f90

    r1686 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Formatting corrections.
    2222!
    2323! Former revisions:
     
    12081208             ENDDO
    12091209
    1210              IF ( n_start .GE. 0 )  THEN
     1210             IF ( n_start >= 0 )  THEN
    12111211                pack_done = .FALSE.
    12121212                DO  n = n_start, np_old_cell
  • palm/trunk/SOURCE/lpm_init.f90

    r1686 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Renamed prandtl_layer to constant_flux_layer.
    2222!
    2323! Former revisions:
     
    100100
    101101    USE control_parameters,                                                    &
    102         ONLY:  cloud_droplets, current_timestep_number, dz,                    &
    103                initializing_actions, message_string, netcdf_data_format,       &
    104                ocean, prandtl_layer, simulated_time
     102        ONLY:  cloud_droplets, constant_flux_layer, current_timestep_number,   &
     103               dz, initializing_actions, message_string, netcdf_data_format,   &
     104               ocean, simulated_time
    105105
    106106    USE dvrp_variables,                                                        &
     
    295295!-- To obtain exact height levels of particles, linear interpolation is applied
    296296!-- (see lpm_advec.f90).
    297     IF ( prandtl_layer )  THEN
     297    IF ( constant_flux_layer )  THEN
    298298       
    299299       ALLOCATE ( log_z_z0(0:number_of_sublayers) )
  • palm/trunk/SOURCE/microphysics.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Added new routine calc_precipitation_amount. The routine now allows to account
     22! for precipitation due to sedimenation of cloud (fog) droplets
    2223!
    2324! Former revisions:
     
    130131    END INTERFACE sedimentation_rain
    131132
     133    INTERFACE calc_precipitation_amount
     134       MODULE PROCEDURE calc_precipitation_amount
     135       MODULE PROCEDURE calc_precipitation_amount_ij
     136    END INTERFACE calc_precipitation_amount
     137
     138
    132139 CONTAINS
    133140
     
    208215
    209216       IF ( drizzle )  CALL sedimentation_cloud
     217
     218       IF ( precipitation )  THEN
     219          CALL calc_precipitation_amount
     220       ENDIF
    210221
    211222    END SUBROUTINE microphysics_control
     
    726737
    727738       USE cloud_parameters,                                                   &
    728            ONLY:  eps_sb, hyrho, l_d_cp, nc_const, pt_d_t, sed_qc_const
     739           ONLY:  eps_sb, hyrho, l_d_cp, nc_const, prr, pt_d_t, sed_qc_const
    729740
    730741       USE constants,                                                          &
     
    732743
    733744       USE control_parameters,                                                 &
    734            ONLY:  dt_do2d_xy, dt_micro, intermediate_timestep_count
     745           ONLY:  call_microphysics_at_all_substeps, dt_micro,                 &
     746                  intermediate_timestep_count, precipitation
    735747
    736748       USE cpulog,                                                             &
     
    741753
    742754       USE kinds
    743        
     755
     756       USE statistics,                                                         &
     757           ONLY:  weight_substep
     758   
     759
    744760       IMPLICIT NONE
    745761
     
    777793                                        pt_d_t(k) * dt_micro
    778794
     795!
     796!--             Compute the precipitation rate due to cloud (fog) droplets
     797                IF ( precipitation )  THEN
     798                   IF ( call_microphysics_at_all_substeps )  THEN
     799                      prr(k,j,i) = prr(k,j,i) +  sed_qc(k) / hyrho(k)          &
     800                                   * weight_substep(intermediate_timestep_count)
     801                   ELSE
     802                      prr(k,j,i) = prr(k,j,i) + sed_qc(k) / hyrho(k)
     803                   ENDIF
     804                ENDIF
     805
    779806             ENDDO
    780807          ENDDO
     
    799826       USE cloud_parameters,                                                   &
    800827           ONLY:  a_term, b_term, c_term, cof, dpirho_l, eps_sb, hyrho,        &
    801                   limiter_sedimentation, l_d_cp, precipitation_amount, prr,    &
    802                   pt_d_t, stp
     828                  limiter_sedimentation, l_d_cp, prr,  pt_d_t, stp
    803829
    804830       USE control_parameters,                                                 &
    805            ONLY:  call_microphysics_at_all_substeps, dt_do2d_xy, dt_micro,     &
    806                   dt_3d, intermediate_timestep_count,                          &
    807                   intermediate_timestep_count_max,                             &
    808                   precipitation_amount_interval, time_do2d_xy
    809 
     831           ONLY:  call_microphysics_at_all_substeps, dt_micro,                 &
     832                  intermediate_timestep_count
    810833       USE cpulog,                                                             &
    811834           ONLY:  cpu_log, log_point_s
     
    10051028!--             Compute the rain rate
    10061029                IF ( call_microphysics_at_all_substeps )  THEN
    1007                    prr(k,j,i) = prr(k,j,i) + sed_qr(k) / hyrho(k) *            &
    1008                                 weight_substep(intermediate_timestep_count)
     1030                   prr(k,j,i) = prr(k,j,i) + sed_qr(k) / hyrho(k)             &
     1031                                * weight_substep(intermediate_timestep_count)
    10091032                ELSE
    1010                    prr(k,j,i) = sed_qr(k) / hyrho(k)
     1033                   prr(k,j,i) = prr(k,j,i) + sed_qr(k) / hyrho(k)
    10111034                ENDIF
    10121035
     
    10151038       ENDDO
    10161039
    1017 !
    1018 !--    Precipitation amount
    1019        IF ( intermediate_timestep_count == intermediate_timestep_count_max     &
    1020             .AND.  ( dt_do2d_xy - time_do2d_xy ) <                             &
    1021                    precipitation_amount_interval )  THEN
     1040       CALL cpu_log( log_point_s(60), 'sed_rain', 'stop' )
     1041
     1042    END SUBROUTINE sedimentation_rain
     1043
     1044
     1045!------------------------------------------------------------------------------!
     1046! Description:
     1047! ------------
     1048!> Computation of the precipitation amount due to gravitational settling of
     1049!> rain and cloud (fog) droplets
     1050!------------------------------------------------------------------------------!
     1051    SUBROUTINE calc_precipitation_amount
     1052
     1053       USE cloud_parameters,                                                   &
     1054           ONLY:  hyrho, precipitation_amount, prr
     1055
     1056       USE control_parameters,                                                 &
     1057           ONLY:  call_microphysics_at_all_substeps, dt_do2d_xy, dt_3d,        &
     1058                  intermediate_timestep_count, intermediate_timestep_count_max,&
     1059                  precipitation_amount_interval, time_do2d_xy
     1060
     1061       USE indices,                                                            &
     1062           ONLY:  nxl, nxr, nys, nyn, nzb_s_inner
     1063
     1064       USE kinds
     1065
     1066       IMPLICIT NONE
     1067
     1068       INTEGER(iwp) ::  i                          !:
     1069       INTEGER(iwp) ::  j                          !:
     1070
     1071
     1072       IF ( ( dt_do2d_xy - time_do2d_xy ) < precipitation_amount_interval .AND.&
     1073            ( .NOT. call_microphysics_at_all_substeps .OR.                     &
     1074            intermediate_timestep_count == intermediate_timestep_count_max ) ) &
     1075       THEN
     1076
    10221077          DO  i = nxl, nxr
    10231078             DO  j = nys, nyn
     1079
    10241080                precipitation_amount(j,i) = precipitation_amount(j,i) +        &
    10251081                                            prr(nzb_s_inner(j,i)+1,j,i) *      &
    10261082                                            hyrho(nzb_s_inner(j,i)+1) * dt_3d
     1083
    10271084             ENDDO
    10281085          ENDDO
    10291086       ENDIF
    10301087
    1031        CALL cpu_log( log_point_s(60), 'sed_rain', 'stop' )
    1032 
    1033     END SUBROUTINE sedimentation_rain
     1088    END SUBROUTINE calc_precipitation_amount
    10341089
    10351090
     
    11211176
    11221177       IF ( drizzle )  CALL sedimentation_cloud( i,j )
     1178
     1179       IF ( precipitation )  THEN
     1180          CALL calc_precipitation_amount( i,j )
     1181       ENDIF
    11231182
    11241183!
     
    15911650
    15921651       USE cloud_parameters,                                                   &
    1593            ONLY:  eps_sb, hyrho, l_d_cp, pt_d_t, sed_qc_const
     1652           ONLY:  eps_sb, hyrho, l_d_cp, prr, pt_d_t, sed_qc_const
    15941653
    15951654       USE constants,                                                          &
     
    15971656
    15981657       USE control_parameters,                                                 &
    1599            ONLY:  dt_do2d_xy, dt_micro, intermediate_timestep_count
     1658           ONLY:  call_microphysics_at_all_substeps, dt_do2d_xy, dt_micro,     &
     1659                  intermediate_timestep_count, precipitation
    16001660
    16011661       USE indices,                                                            &
     
    16041664       USE kinds
    16051665       
     1666       USE statistics,                                                         &
     1667           ONLY:  weight_substep
     1668
    16061669       IMPLICIT NONE
    16071670
     
    16321695          pt_1d(k) = pt_1d(k) - ( sed_qc(k+1) - sed_qc(k) ) * ddzu(k+1) /      &
    16331696                                hyrho(k) * l_d_cp * pt_d_t(k) * dt_micro
     1697
     1698!
     1699!--       Compute the precipitation rate of cloud (fog) droplets
     1700          IF ( precipitation )  THEN
     1701             IF ( call_microphysics_at_all_substeps )  THEN
     1702                prr(k,j,i) = prr(k,j,i) + sed_qc(k) / hyrho(k) *               &
     1703                             weight_substep(intermediate_timestep_count)
     1704             ELSE
     1705                prr(k,j,i) = prr(k,j,i) +  sed_qc(k) / hyrho(k)
     1706             ENDIF
     1707          ENDIF
    16341708
    16351709       ENDDO
     
    18371911!--       Compute the rain rate
    18381912          IF ( call_microphysics_at_all_substeps )  THEN
    1839              prr(k,j,i) = prr(k,j,i) + sed_qr(k) / hyrho(k) *                  &
    1840                           weight_substep(intermediate_timestep_count)
     1913             prr(k,j,i) = prr(k,j,i) + sed_qr(k) / hyrho(k)                    &
     1914                          * weight_substep(intermediate_timestep_count)
    18411915          ELSE
    1842              prr(k,j,i) = sed_qr(k) / hyrho(k)
     1916             prr(k,j,i) = prr(k,j,i) + sed_qr(k) / hyrho(k)
    18431917          ENDIF
    18441918
    18451919       ENDDO
    18461920
    1847 !
    1848 !--    Precipitation amount
    1849        IF ( intermediate_timestep_count == intermediate_timestep_count_max     &
    1850             .AND.  ( dt_do2d_xy - time_do2d_xy ) <                             &
    1851                    precipitation_amount_interval )  THEN
     1921    END SUBROUTINE sedimentation_rain_ij
     1922
     1923
     1924!------------------------------------------------------------------------------!
     1925! Description:
     1926! ------------
     1927!> This subroutine computes the precipitation amount due to gravitational
     1928!> settling of rain and cloud (fog) droplets
     1929!------------------------------------------------------------------------------!
     1930    SUBROUTINE calc_precipitation_amount_ij( i, j )
     1931
     1932       USE cloud_parameters,                                                   &
     1933           ONLY:  hyrho, precipitation_amount, prr
     1934
     1935       USE control_parameters,                                                 &
     1936           ONLY:  call_microphysics_at_all_substeps, dt_do2d_xy, dt_3d,        &
     1937                  intermediate_timestep_count, intermediate_timestep_count_max,&
     1938                  precipitation_amount_interval,         &
     1939                  time_do2d_xy
     1940
     1941       USE indices,                                                            &
     1942           ONLY:  nzb_s_inner
     1943
     1944       USE kinds
     1945
     1946       IMPLICIT NONE
     1947
     1948       INTEGER(iwp) ::  i                          !:
     1949       INTEGER(iwp) ::  j                          !:
     1950
     1951
     1952       IF ( ( dt_do2d_xy - time_do2d_xy ) < precipitation_amount_interval .AND.&
     1953            ( .NOT. call_microphysics_at_all_substeps .OR.                     &
     1954            intermediate_timestep_count == intermediate_timestep_count_max ) ) &
     1955       THEN
    18521956
    18531957          precipitation_amount(j,i) = precipitation_amount(j,i) +              &
     
    18561960       ENDIF
    18571961
    1858     END SUBROUTINE sedimentation_rain_ij
    1859 
    1860    
     1962    END SUBROUTINE calc_precipitation_amount_ij
     1963
    18611964!------------------------------------------------------------------------------!
    18621965! Description:
  • palm/trunk/SOURCE/modules.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Renamed Obukhov length. Added ol, removed rif. Increased number of profiles
     22! (pr_palm). Changed default values for dissipation_1d to 'detering' and
     23! (mixing_length_1d to 'blackadar'. Added most_method. rif_min and rif_max
     24! renamed to zeta_min and zeta_max and new values assigned.
    2225!
    2326! Former revisions:
     
    300303!
    301304!
     305!------------------------------------------------------------------------------!
     306! Description:
     307! ------------
     308!> Definition of all variables
     309!>
     310!> @todo Add description for each variable
     311!------------------------------------------------------------------------------!
     312
     313
     314!------------------------------------------------------------------------------!
    302315! Description:
    303316! ------------
     
    338351          flux_s_e, flux_s_nr, flux_s_pt, flux_s_q, flux_s_qr, flux_s_sa,      &
    339352          flux_s_u, flux_s_v, flux_s_w, f1_mg, f2_mg, f3_mg,                   &
    340           mean_inflow_profiles, nrs, nrsws, nrswst, ptnudge, pt_slope_ref,     &
     353          mean_inflow_profiles, nrs, nrsws, nrswst,                            &
     354          ol,                                                                  & !< Obukhov length
     355          ptnudge, pt_slope_ref,                                               &
    341356          qnudge, qs, qsws, qswst, qswst_remote, qrs, qrsws, qrswst, rif,      &
    342357          saswsb, saswst, shf, tnudge, td_lsa_lpt, td_lsa_q, td_sub_lpt,       &
     
    390405    USE kinds
    391406
    392     REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  lwp_av, precipitation_rate_av,   &
    393                                           qsws_av, shf_av,ts_av, us_av, z0_av, &
    394                                           z0h_av
     407    REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  lwp_av,                & !> Avg. liquid water path
     408                                              precipitation_rate_av, & !> Avg. of precipitation rate
     409                                              ol_av,                 & !> Avg. of Obukhov length
     410                                              qsws_av,               & !> Avg. of surface moisture flux
     411                                              shf_av,                & !> Avg. of surface heat flux
     412                                              ts_av,                 & !> Avg. of characteristic temperature scale
     413                                              us_av,                 & !> Avg. of friction velocity
     414                                              z0_av,                 & !> Avg. of roughness length for momentum
     415                                              z0h_av                   !> Avg. of roughness length for heat and moisture
    395416
    396417    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE, TARGET ::                         &
     
    541562    CHARACTER (LEN=2)    ::  coupling_char = ''
    542563    CHARACTER (LEN=5)    ::  write_binary = 'false'
    543     CHARACTER (LEN=8)    ::  run_date, run_time
     564    CHARACTER (LEN=8)    ::  most_method = 'lookup', & !< NAMELIST parameter defining method to be used to calculate Okukhov length,
     565                             run_date,               & !<
     566                             run_time                  !<
    544567    CHARACTER (LEN=9)    ::  simulated_time_chr
    545568    CHARACTER (LEN=11)   ::  topography_grid_convention = ' '
     
    563586                             coupling_mode = 'uncoupled', &
    564587                             coupling_mode_remote = 'uncoupled', &
    565                              dissipation_1d = 'as_in_3d_model', &
     588                             dissipation_1d = 'detering', &
    566589                             fft_method = 'system-specific', &
    567                              mixing_length_1d = 'as_in_3d_model', &
     590                             mixing_length_1d = 'blackadar', &
    568591                             random_generator = 'numerical-recipes', &
    569592                             reference_state = 'initial_profile', &
     
    653676                cloud_top_radiation = .FALSE., &
    654677                conserve_volume_flow = .FALSE., constant_diffusion = .FALSE., &
     678                constant_flux_layer = .TRUE., &
    655679                constant_heatflux = .TRUE., constant_top_heatflux = .TRUE., &
    656680                constant_top_momentumflux = .FALSE., &
     
    679703                outflow_l = .FALSE., outflow_n = .FALSE., outflow_r = .FALSE., &
    680704                outflow_s = .FALSE., passive_scalar = .FALSE., &
    681                 prandtl_layer = .TRUE., &
    682705                precipitation = .FALSE., &
    683706                random_heatflux = .FALSE., recycling_yshift = .FALSE.,&
     
    745768                 recycling_width = 9999999.9_wp, residual_limit = 1.0E-4_wp, &
    746769                 restart_time = 9999999.9_wp, rho_reference, rho_surface, &
    747                  rif_max = 1.0_wp, rif_min = -5.0_wp, roughness_length = 0.1_wp, &
     770                 roughness_length = 0.1_wp, &
    748771                 sa_surface = 35.0_wp, &
    749772                 simulated_time = 0.0_wp, simulated_time_at_begin, sin_alpha_surface, &
     
    768791                 vg_surface = 0.0_wp, vpt_reference = 9999999.9_wp, &
    769792                 v_bulk = 0.0_wp, v_gtrans = 0.0_wp, wall_adjustment_factor = 1.8_wp, &
     793                 zeta_max = 20.0_wp,    & !< Maximum value of zeta = z/L
     794                 zeta_min = -9990.0_wp, & !< Minimum value of zeta = z/L
    770795                 z_max_do2d = -1.0_wp, z0h_factor = 1.0_wp
    771796
     
    11491174             'wpt          ', 'pt(0)        ', 'pt(zp)       ',                &
    11501175             'w"u"0        ', 'w"v"0        ', 'w"q"0        ',                &
    1151              'mo_L         ', 'q*           ',                                 &
     1176             'ol           ', 'q*           ',                                 &
    11521177             ( 'unknown      ', i9 = 1, dots_max-23 ) /)
    11531178
     
    14291454
    14301455    CHARACTER (LEN=40) ::  region(0:9)
    1431     INTEGER(iwp) ::  pr_palm = 120, statistic_regions = 0
     1456    INTEGER(iwp) ::  pr_palm = 130, statistic_regions = 0
    14321457    INTEGER(iwp) ::  u_max_ijk(3) = -1, v_max_ijk(3) = -1, w_max_ijk(3) = -1
    14331458    LOGICAL ::  flow_statistics_called = .FALSE.
  • palm/trunk/SOURCE/netcdf.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Added output of radiative heating rates for RRTMG. Corrected output of
     22! radiative fluxes
    2223!
    2324! Former revisions:
     
    116117#if defined( __netcdf )
    117118
    118     USE arrays_3d,                                                              &
     119    USE arrays_3d,                                                             &
    119120        ONLY:  zu, zw
    120121
    121     USE constants,                                                              &
     122    USE constants,                                                             &
    122123        ONLY:  pi
    123124
    124     USE control_parameters,                                                     &
    125         ONLY:  averaging_interval, averaging_interval_pr, averaging_interval_sp,&
    126         data_output_pr,  domask,  dopr_n,dopr_time_count, dopts_time_count,     &
    127         dots_time_count, dosp_time_count, do2d, do2d_xz_time_count, do3d,       &
    128         do2d_yz_time_count, mask_size, do2d_xy_time_count, do3d_time_count,     &
    129         domask_time_count, mask_i_global, mask_j_global,mask_k_global,          &
    130         message_string, mid, netcdf_data_format, netcdf_precision, ntdim_2d_xy, &
    131         ntdim_2d_xz, ntdim_2d_yz, ntdim_3d, nz_do3d, prt_time_count,            &
    132         run_description_header, section, simulated_time, topography
    133 
    134     USE grid_variables,                                                         &
     125    USE control_parameters,                                                    &
     126        ONLY:  averaging_interval, averaging_interval_pr,                      &
     127               averaging_interval_sp, data_output_pr,  domask,  dopr_n,        &
     128               dopr_time_count, dopts_time_count, dots_time_count,             &
     129               dosp_time_count, do2d, do2d_xz_time_count, do3d,                &
     130               do2d_yz_time_count, mask_size, do2d_xy_time_count,              &
     131               do3d_time_count, domask_time_count, mask_i_global,              &
     132               mask_j_global, mask_k_global, message_string, mid,              &
     133               netcdf_data_format, netcdf_precision, ntdim_2d_xy,              &
     134               ntdim_2d_xz, ntdim_2d_yz, ntdim_3d, nz_do3d, prt_time_count,    &
     135              run_description_header, section, simulated_time, topography
     136
     137    USE grid_variables,                                                        &
    135138        ONLY:  dx, dy, zu_s_inner, zw_w_inner
    136139
    137     USE indices,                                                                &
     140    USE indices,                                                               &
    138141        ONLY:  nx, ny, nz ,nzb, nzt
    139142
     
    150153    USE pegrid
    151154
    152     USE particle_attributes,                                                    &
     155    USE particle_attributes,                                                   &
    153156        ONLY:  maximum_number_of_particles, number_of_particle_groups
    154157
    155     USE profil_parameter,                                                       &
    156         ONLY:  crmax, cross_profiles, dopr_index,profile_columns, profile_rows
    157 
    158     USE radiation_model_mod,                                                    &
    159         ONLY:  rad_lw_in, rad_lw_out, rad_sw_in, rad_sw_out
    160 
    161     USE spectrum,                                                               &
     158    USE profil_parameter,                                                      &
     159        ONLY:  crmax, cross_profiles, dopr_index, profile_columns, profile_rows
     160
     161    USE radiation_model_mod,                                                   &
     162        ONLY:  rad_lw_in, rad_lw_out, rad_lw_cs_hr, rad_lw_hr,                 &
     163               rad_sw_in, rad_sw_out, rad_sw_cs_hr, rad_sw_hr
     164
     165
     166    USE spectrum,                                                              &
    162167        ONLY:  comp_spectra_level, data_output_sp, spectra_direction
    163168
    164     USE statistics,                                                             &
     169    USE statistics,                                                            &
    165170        ONLY:  hom, statistic_regions
    166171
     
    531536!
    532537!--             Most variables are defined on the scalar grid
    533                 CASE ( 'e', 'lpt', 'nr', 'p', 'pc', 'pr', 'prr', 'pt', 'q',&
    534                        'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv',    &
    535                        'rho', 's', 'sa', 'vpt', 'rad_lw_in', 'rad_lw_out', &
    536                        'rad_sw_in', 'rad_sw_out' )
     538                CASE ( 'e', 'lpt', 'nr', 'p', 'pc', 'pr', 'prr', 'pt', 'q',    &
     539                       'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv',        &
     540                       'rad_lw_cs_hr', 'rad_lw_hr', 'rad_sw_cs_hr',            &
     541                       'rad_sw_hr', 'rho', 's', 'sa', 'vpt' )
    537542
    538543                   grid_x = 'x'
     
    555560!
    556561!--             w grid
    557                 CASE ( 'w' )
     562                CASE ( 'rad_lw_in', 'rad_lw_out', 'rad_sw_in', 'rad_sw_out',   &
     563                       'w' )
    558564
    559565                   grid_x = 'x'
     
    562568!
    563569!--             soil grid
    564                 CASE ( 't_soil', 'm_soil' )
     570                CASE ( 'm_soil', 't_soil' )
    565571
    566572                   grid_x = 'x'
     
    11121118!
    11131119!--             Most variables are defined on the scalar grid
    1114                 CASE ( 'e', 'lpt', 'nr', 'p', 'pc', 'pr', 'prr', 'pt', 'q',   &
    1115                        'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv', 'rho',&
    1116                        's', 'sa', 'vpt' , 'rad_lw_in', 'rad_lw_out',          &
    1117                        'rad_sw_in', 'rad_sw_out' )
     1120                CASE ( 'e', 'lpt', 'nr', 'p', 'pc', 'pr', 'prr', 'pt', 'q',    &
     1121                       'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv', 'rho', &
     1122                       's', 'sa', 'vpt' , 'rad_lw_cs_hr', 'rad_lw_hr',         &
     1123                       'rad_sw_cs_hr', 'rad_sw_hr' )
    11181124
    11191125                   grid_x = 'x'
     
    11361142!
    11371143!--             w grid
    1138                 CASE ( 'w' )
     1144                CASE ( 'rad_lw_in', 'rad_lw_out', 'rad_sw_in', 'rad_sw_out',   &
     1145                       'w' )
    11391146
    11401147                   grid_x = 'x'
     
    11431150!
    11441151!--             soil grid
    1145                 CASE ( 't_soil', 'm_soil' )
     1152                CASE ( 'm_soil', 't_soil' )
    11461153
    11471154                   grid_x = 'x'
     
    17651772!
    17661773!--                   Most variables are defined on the zu grid
    1767                       CASE ( 'e_xy', 'lpt_xy', 'nr_xy', 'p_xy', 'pc_xy', 'pr_xy',&
    1768                              'prr_xy', 'pt_xy', 'q_xy', 'qc_xy', 'ql_xy',        &
    1769                              'ql_c_xy', 'ql_v_xy', 'ql_vp_xy', 'qr_xy', 'qv_xy', &
    1770                              'rho_xy', 's_xy', 'sa_xy', 'vpt_xy', 'rad_lw_in_xy',&
    1771                              'rad_lw_out_xy', 'rad_sw_in_xy', 'rad_sw_out_xy' )
     1774                      CASE ( 'e_xy', 'lpt_xy', 'nr_xy', 'p_xy', 'pc_xy',       &
     1775                             'pr_xy', 'prr_xy', 'pt_xy', 'q_xy', 'qc_xy',      &
     1776                             'ql_xy', 'ql_c_xy', 'ql_v_xy', 'ql_vp_xy',        &
     1777                             'qr_xy', 'qv_xy', 'rad_lw_cs_hr_xy',              &
     1778                             'rad_lw_hr_xy', 'rad_sw_cs_hr_xy', 'rad_sw_hr_xy',&
     1779                             'rho_xy', 's_xy', 'sa_xy', 'vpt_xy' )
    17721780
    17731781                         grid_x = 'x'
     
    17901798!
    17911799!--                   w grid
    1792                       CASE ( 'w_xy' )
     1800                      CASE ( 'rad_lw_in_xy', 'rad_lw_out_xy', 'rad_sw_in_xy',  &
     1801                             'rad_sw_out_xy' , 'w_xy' )
    17931802
    17941803                         grid_x = 'x'
     
    17971806!
    17981807!--                   soil grid
    1799                       CASE ( 't_soil_xy', 'm_soil_xy' )
     1808                      CASE ( 'm_soil_xy', 't_soil_xy' )
    18001809                         grid_x = 'x'
    18011810                         grid_y = 'y'
     
    24522461                          'prr_xz', 'pt_xz', 'q_xz', 'qc_xz', 'ql_xz',         &
    24532462                          'ql_c_xz', 'ql_v_xz', 'ql_vp_xz', 'qr_xz', 'qv_xz',  &
    2454                           'rho_xz', 's_xz', 'sa_xz', 'vpt_xz' , 'rad_lw_in_xz',&
    2455                              'rad_lw_out_xz', 'rad_sw_in_xz', 'rad_sw_out_xz' )
     2463                          'rad_lw_cs_hr_xz', 'rad_lw_hr_xz',                   &
     2464                          'rad_sw_cs_hr_xz', 'rad_sw_hr_xz''rho_xz', 's_xz',   &
     2465                          'sa_xz', 'vpt_xz' )
    24562466
    24572467                      grid_x = 'x'
     
    24742484!
    24752485!--                w grid
    2476                    CASE ( 'w_xz' )
     2486                   CASE ( 'rad_lw_in_xz', 'rad_lw_out_xz', 'rad_sw_in_xz',     &
     2487                          'rad_sw_out_xz', 'w_xz' )
    24772488
    24782489                      grid_x = 'x'
     
    24822493!
    24832494!--                soil grid
    2484                    CASE ( 't_soil_xz', 'm_soil_xz' )
     2495                   CASE ( 'm_soil_xz', 't_soil_xz' )
    24852496
    24862497                      grid_x = 'x'
     
    31263137!
    31273138!--                Most variables are defined on the zu grid
    3128                    CASE ( 'e_yz', 'lpt_yz', 'nr_yz', 'p_yz', 'pc_yz', 'pr_yz',&
    3129                           'prr_yz', 'pt_yz', 'q_yz', 'qc_yz', 'ql_yz',        &
    3130                           'ql_c_yz', 'ql_v_yz', 'ql_vp_yz', 'qr_yz', 'qv_yz', &
    3131                           'rho_yz', 's_yz', 'sa_yz', 'vpt_yz', 'rad_lw_in_yz',&
    3132                              'rad_lw_out_yz', 'rad_sw_in_yz', 'rad_sw_out_yz' )
     3139                   CASE ( 'e_yz', 'lpt_yz', 'nr_yz', 'p_yz', 'pc_yz', 'pr_yz', &
     3140                          'prr_yz', 'pt_yz', 'q_yz', 'qc_yz', 'ql_yz',         &
     3141                          'ql_c_yz', 'ql_v_yz', 'ql_vp_yz', 'qr_yz', 'qv_yz',  &
     3142                          'rad_lw_cs_hr_yz', 'rad_lw_hr_yz',                   &
     3143                          'rad_sw_cs_hr_yz', 'rad_sw_hr_yz''rho_yz', 's_yz',   &
     3144                          'sa_yz', 'vpt_yz' )
    31333145
    31343146                      grid_x = 'x'
     
    31513163!
    31523164!--                w grid
    3153                    CASE ( 'w_yz' )
     3165                   CASE ( 'rad_lw_in_yz', 'rad_lw_out_yz', 'rad_sw_in_yz',     &
     3166                          'rad_sw_out_yz', 'w_yz' )
    31543167
    31553168                      grid_x = 'x'
     
    31583171!
    31593172!--                soil grid
    3160                    CASE ( 't_soil_yz', 'm_soil_yz' )
     3173                   CASE ( 'm_soil_yz', 't_soil_yz' )
    31613174
    31623175                      grid_x = 'x'
  • palm/trunk/SOURCE/package_parin.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added skip_time_do_lsm, skip_time_do_radiation, and emissivity
    2222!
    2323! Former revisions:
     
    9292!> This subroutine reads from the NAMELIST file variables controling model
    9393!> software packages which are used optionally in the run.
     94!>
     95!> @todo Perform all actions in the respective submodules and remove
     96!>       package_parin
    9497!------------------------------------------------------------------------------!
    9598 SUBROUTINE package_parin
     
    117120    USE land_surface_model_mod,                                                &
    118121        ONLY: alpha_vangenuchten, c_surface, canopy_resistance_coefficient,    &
    119               conserve_water_content, dewfall, f_shortwave_incoming,           &
    120               hydraulic_conductivity, lambda_surface_stable,                   &
    121               lambda_surface_unstable,                                        &
    122               leaf_area_index, land_surface, l_vangenuchten,                   &
    123               min_canopy_resistance, min_soil_resistance, field_capacity,      &
    124               residual_moisture, saturation_moisture, wilting_point,           &
    125               n_vangenuchten, root_fraction, soil_moisture, soil_temperature,  &
    126               soil_type, vegetation_coverage, veg_type, z0_eb, z0h_eb, zs
     122              conserve_water_content, dewfall, field_capacity,                 &
     123              f_shortwave_incoming, hydraulic_conductivity,                    &
     124              lambda_surface_stable, lambda_surface_unstable, leaf_area_index, &
     125              land_surface, l_vangenuchten, min_canopy_resistance,             &
     126              min_soil_resistance, n_vangenuchten, residual_moisture,          &
     127              root_fraction, saturation_moisture, wilting_point,               &
     128              skip_time_do_lsm, soil_moisture, soil_temperature, soil_type,    &
     129              vegetation_coverage, veg_type, zs, z0_eb, z0h_eb
    127130
    128131    USE kinds
     
    152155    USE radiation_model_mod,                                                   &
    153156        ONLY: albedo, albedo_type, albedo_lw_dif, albedo_lw_dir, albedo_sw_dif,&
    154               albedo_sw_dir, day_init, constant_albedo, dt_radiation, lambda,  &
    155               lw_radiation, net_radiation, radiation, radiation_scheme,        &
    156               sw_radiation, time_utc_init
     157              albedo_sw_dir, constant_albedo, day_init, dt_radiation,          &
     158              emissivity, lambda, lw_radiation, net_radiation, radiation,      &
     159              radiation_scheme, skip_time_do_radiation, sw_radiation,          &
     160              time_utc_init
    157161               
    158162
     
    200204                                  min_soil_resistance, n_vangenuchten,         &
    201205                                  residual_moisture, root_fraction,            &
    202                                   saturation_moisture, soil_moisture,          &
    203                                   soil_temperature, soil_type,                 &
     206                                  saturation_moisture, skip_time_do_lsm,       &
     207                                  soil_moisture, soil_temperature, soil_type,  &
    204208                                  vegetation_coverage, veg_type, wilting_point,&
    205209                                  zs, z0_eb, z0h_eb
     
    234238                                  constant_albedo, day_init, dt_radiation,     &
    235239                                  lambda, lw_radiation, net_radiation,         &
    236                                   radiation_scheme, sw_radiation, time_utc_init
     240                                  radiation_scheme, skip_time_do_radiation,    &
     241                                  sw_radiation, time_utc_init
    237242
    238243    NAMELIST /spectra_par/        averaging_interval_sp, comp_spectra_level,   &
  • palm/trunk/SOURCE/parin.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added parameter most_method. Renamed prandtl_layer to constant_flux_layer.
    2222!
    2323! Former revisions:
     
    185185               cloud_droplets, cloud_physics, cloud_scheme,                    &
    186186               cloud_top_radiation, conserve_volume_flow,                      &
    187                conserve_volume_flow_mode, coupling_start_time,                 &
     187               conserve_volume_flow_mode, constant_flux_layer,                 &
     188               coupling_start_time,                                            &
    188189               create_disturbances, cycle_mg, data_output, data_output_masks,  &
    189190               data_output_pr, data_output_2d_on_each_pe,                      &
     
    210211               maximum_parallel_io_streams, max_pr_user, message_string,       &
    211212               mg_cycles, mg_switch_to_pe0_level, mixing_length_1d,            &
    212                momentum_advec, netcdf_data_format, netcdf_precision, neutral,  &
    213                ngsrb, normalizing_region, nsor, nsor_ini, nudging, ocean,      &
     213               momentum_advec, most_method, netcdf_data_format,                &
     214               netcdf_precision, neutral, ngsrb, normalizing_region, nsor,     &
     215               nsor_ini, nudging, ocean,                                       &
    214216               omega, omega_sor, passive_scalar, phi, nz_do3d,                 &
    215                prandtl_layer, prandtl_number, precipitation,                   &
     217               prandtl_number, precipitation,                                  &
    216218               precipitation_amount_interval, psolver, pt_damping_factor,      &
    217219               pt_damping_width, pt_reference, pt_surface,                     &
     
    224226               reference_state, residual_limit,                                &
    225227               restart_time, return_addres, return_username,                   &
    226                revision, rif_max, rif_min, roughness_length, runnr,            &
     228               revision, roughness_length, runnr,                              &
    227229               run_identifier, sa_surface, sa_vertical_gradient,               &
    228230               sa_vertical_gradient_level, scalar_advec,                       &
     
    246248               vg_vertical_gradient_level, v_bulk, v_profile,                  &
    247249               wall_adjustment, wall_heatflux, wall_humidityflux,              &
    248                wall_scalarflux, write_binary, z0h_factor, z_max_do2d
     250               wall_scalarflux, write_binary, zeta_max, zeta_min, z0h_factor,  &
     251               z_max_do2d
    249252
    250253    USE cpulog,                                                                &
     
    274277    USE statistics,                                                            &
    275278        ONLY:  hom, hom_sum, pr_palm, region, statistic_regions
     279
    276280
    277281    IMPLICIT NONE
     
    291295             cloud_physics, cloud_scheme, cloud_top_radiation,                 &
    292296             collective_wait, conserve_volume_flow,                            &
    293              conserve_volume_flow_mode, coupling_start_time,                   &
     297             conserve_volume_flow_mode, constant_flux_layer,                   &
     298             coupling_start_time,                                              &
    294299             curvature_solution_effects, cycle_mg, damp_level_1d,              &
    295300             dissipation_1d,                                                   &
     
    306311             loop_optimization, masking_method, mg_cycles,                     &
    307312             mg_switch_to_pe0_level, mixing_length_1d, momentum_advec,         &
    308              nc_const, netcdf_precision, neutral, ngsrb,                       &
     313             most_method, nc_const, netcdf_precision, neutral, ngsrb,          &
    309314             nsor, nsor_ini, nudging, nx, ny, nz, ocean, omega, omega_sor,     &
    310              passive_scalar, phi, prandtl_layer,                               &
     315             passive_scalar, phi,                                              &
    311316             prandtl_number, precipitation, psolver, pt_damping_factor,        &
    312317             pt_damping_width, pt_reference, pt_surface,                       &
     
    318323             recycling_width, recycling_yshift,                                &
    319324             reference_state, residual_limit,                                  &
    320              rif_max, rif_min, roughness_length, sa_surface,                   &
     325             roughness_length, sa_surface,                                     &
    321326             sa_vertical_gradient, sa_vertical_gradient_level, scalar_advec,   &
    322327             scalar_rayleigh_damping,                                          &
     
    335340             vg_vertical_gradient_level, v_bulk, v_profile, ventilation_effect,&
    336341             wall_adjustment, wall_heatflux, wall_humidityflux,                &
    337              wall_scalarflux, z0h_factor
     342             wall_scalarflux, zeta_max, zeta_min, z0h_factor
    338343     
    339344    NAMELIST /d3par/  averaging_interval, averaging_interval_pr,               &
  • palm/trunk/SOURCE/production_e.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Renamed prandtl_layer to constant_flux_layer.
    2222!
    2323! Former revisions:
     
    7878! ------------
    7979!> Production terms (shear + buoyancy) of the TKE.
    80 !> @warning The case with prandtl_layer = F and use_surface_fluxes = T is
     80!> @warning The case with constant_flux_layer = F and use_surface_fluxes = T is
    8181!>          not considered well!
    8282!------------------------------------------------------------------------------!
     
    128128
    129129       USE control_parameters,                                                 &
    130            ONLY:  cloud_droplets, cloud_physics, g, humidity, kappa, neutral,  &
    131                   ocean, prandtl_layer, pt_reference, rho_reference,           &
    132                   use_single_reference_value, use_surface_fluxes,              &
    133                   use_top_fluxes
     130           ONLY:  cloud_droplets, cloud_physics, constant_flux_layer, g,       &
     131                  humidity, kappa, neutral, ocean, pt_reference,               &
     132                  rho_reference, use_single_reference_value,                   &
     133                  use_surface_fluxes, use_top_fluxes
    134134
    135135       USE grid_variables,                                                     &
     
    217217          ENDDO
    218218
    219           IF ( prandtl_layer )  THEN
     219          IF ( constant_flux_layer )  THEN
    220220
    221221!
     
    734734
    735735       USE control_parameters,                                                 &
    736            ONLY:  cloud_droplets, cloud_physics, g, humidity, kappa, neutral,  &
    737                   ocean, prandtl_layer, pt_reference, rho_reference,           &
    738                   topography, use_single_reference_value, use_surface_fluxes,  &
    739                   use_top_fluxes
     736           ONLY:  cloud_droplets, cloud_physics, constant_flux_layer, g,       &
     737                  humidity, kappa, neutral, ocean, pt_reference,               &
     738                  rho_reference, topography, use_single_reference_value,       &
     739                  use_surface_fluxes, use_top_fluxes
    740740
    741741       USE grid_variables,                                                     &
     
    832832       ENDDO
    833833
    834        IF ( prandtl_layer )  THEN
     834       IF ( constant_flux_layer )  THEN
    835835
    836836!
     
    14021402
    14031403       USE control_parameters,                                                 &
    1404            ONLY:  cloud_droplets, cloud_physics, g, humidity, kappa, neutral,  &
    1405                   ocean, prandtl_layer, pt_reference, rho_reference,           &
    1406                   use_single_reference_value, use_surface_fluxes,              &
    1407                   use_top_fluxes
     1404           ONLY:  cloud_droplets, cloud_physics, constant_flux_layer, g,       &
     1405                  humidity, kappa, neutral, ocean, pt_reference,               &
     1406                  rho_reference, use_single_reference_value,                   &
     1407                  use_surface_fluxes, use_top_fluxes
    14081408
    14091409       USE grid_variables,                                                     &
     
    14731473       ENDDO
    14741474
    1475        IF ( prandtl_layer )  THEN
     1475       IF ( constant_flux_layer )  THEN
    14761476
    14771477          IF ( ( wall_e_x(j,i) /= 0.0_wp ) .OR. ( wall_e_y(j,i) /= 0.0_wp ) )  THEN
     
    19241924
    19251925       USE control_parameters,                                                 &
    1926            ONLY:  kappa, prandtl_layer
     1926           ONLY:  constant_flux_layer, kappa
    19271927
    19281928       USE indices,                                                            &
     
    19371937       INTEGER(iwp) ::  kv  !<
    19381938
    1939        IF ( prandtl_layer )  THEN
     1939       IF ( constant_flux_layer )  THEN
    19401940
    19411941          IF ( first_call )  THEN
  • palm/trunk/SOURCE/prognostic_equations.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Added optional model spin-up without radiation / land surface model calls.
     22! Formatting corrections.
    2223!
    2324! Former revisions:
     
    286287
    287288    USE radiation_model_mod,                                                   &
    288         ONLY:  radiation, radiation_scheme, radiation_tendency
     289        ONLY:  radiation, radiation_scheme, radiation_tendency,                &
     290               skip_time_do_radiation
    289291
    290292    USE statistics,                                                            &
     
    410412!
    411413!--          Nudging
    412              IF ( nudging )  CALL nudge( i, j, simulated_time, 'u' ) 
     414             IF ( nudging )  CALL nudge( i, j, simulated_time, 'u' )
    413415
    414416             CALL user_actions( i, j, 'u-tendency' )
     
    469471!
    470472!--          Nudging
    471              IF ( nudging )  CALL nudge( i, j, simulated_time, 'v' ) 
     473             IF ( nudging )  CALL nudge( i, j, simulated_time, 'v' )
    472474
    473475             CALL user_actions( i, j, 'v-tendency' )
     
    610612!
    611613!--          If required, add tendency due to radiative heating/cooling
    612              IF ( radiation .AND. radiation_scheme == 'rrtmg' )  THEN
     614             IF ( radiation .AND. radiation_scheme == 'rrtmg' .AND.            &
     615                  simulated_time > skip_time_do_radiation )  THEN
    613616                CALL radiation_tendency ( i, j, tend )
    614617             ENDIF
     
    718721             ENDIF
    719722             CALL diffusion_s( i, j, q, qsws, qswst, wall_qflux )
    720      
     723
    721724!
    722725!--          If required compute decrease of total water content due to
     
    724727             IF ( cloud_physics  .AND.  icloud_scheme == 1  .AND.              &
    725728                  precipitation )  THEN
    726                 CALL calc_precipitation( i, j )             
    727              ENDIF
     729                CALL calc_precipitation( i, j )
     730             ENDIF
     731
    728732!
    729733!--          Sink or source of scalar concentration due to canopy elements
     
    10091013!
    10101014!-- Nudging
    1011     IF ( nudging )  CALL nudge( simulated_time, 'u' ) 
     1015    IF ( nudging )  CALL nudge( simulated_time, 'u' )
    10121016
    10131017    CALL user_actions( 'u-tendency' )
     
    10851089!
    10861090!-- Nudging
    1087     IF ( nudging )  CALL nudge( simulated_time, 'v' ) 
     1091    IF ( nudging )  CALL nudge( simulated_time, 'v' )
    10881092
    10891093    CALL user_actions( 'v-tendency' )
     
    12741278!
    12751279!--    If required, add tendency due to radiative heating/cooling
    1276        IF ( radiation .AND. radiation_scheme == 'rrtmg' )  THEN
    1277           CALL radiation_tendency ( tend )
     1280       IF ( radiation .AND. radiation_scheme == 'rrtmg' .AND.                  &
     1281            simulated_time > skip_time_do_radiation )  THEN
     1282            CALL radiation_tendency ( tend )
    12781283       ENDIF
    12791284
     
    18591864!
    18601865!-- Nudging
    1861     IF ( nudging )  CALL nudge( simulated_time, 'u' ) 
     1866    IF ( nudging )  CALL nudge( simulated_time, 'u' )
    18621867
    18631868    CALL user_actions( 'u-tendency' )
     
    19261931!
    19271932!-- Nudging
    1928     IF ( nudging )  CALL nudge( simulated_time, 'v' ) 
     1933    IF ( nudging )  CALL nudge( simulated_time, 'v' )
    19291934
    19301935    CALL user_actions( 'v-tendency' )
     
    20962101       ENDIF
    20972102
     2103       IF ( radiation .AND. radiation_scheme == 'rrtmg' .AND.                  &
     2104            simulated_time > skip_time_do_radiation )  THEN
     2105            CALL radiation_tendency ( tend )
     2106       ENDIF
     2107
    20982108       CALL user_actions( 'pt-tendency' )
    20992109
  • palm/trunk/SOURCE/radiation_model.f90

    r1683 r1691  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added option for spin-up runs without radiation (skip_time_do_radiation). Bugfix
     22! in calculation of pressure profiles. Bugfix in calculation of trace gas profiles.
     23! Added output of radiative heating rates.
    2224!
    2325! Former revisions:
     
    6163!> @todo Output of other rrtm arrays (such as volume mixing ratios)
    6264!> @todo Adapt for use with topography
    63 !> @todo Remove 3D dummy arrays (such as clear-sky output)
    6465!>
    6566!> @note Many variables have a leading dummy dimension (0:0) in order to
     
    7071
    7172    USE arrays_3d,                                                             &
    72         ONLY:  hyp, pt, q, ql, zw
     73        ONLY:  dzw, hyp, pt, q, ql, zw
    7374
    7475    USE cloud_parameters,                                                      &
    75         ONLY:  cp, l_v, nc_const, rho_l, sigma_gc 
     76        ONLY:  cp, l_d_cp, nc_const, rho_l, sigma_gc 
    7677
    7778    USE constants,                                                             &
     
    8081    USE control_parameters,                                                    &
    8182        ONLY:  cloud_droplets, cloud_physics, g, initializing_actions,         &
    82                large_scale_forcing, lsf_surf, phi, pt_surface,                 &
     83               large_scale_forcing, lsf_surf, phi, pt_surface, rho_surface,    &
    8384               surface_pressure, time_since_reference_point
    8485
     
    153154
    154155
    155     LOGICAL ::  constant_albedo = .FALSE., & !< flag parameter indicating whether the albedo may change depending on zenith
    156                 lw_radiation = .TRUE.,     & !< flag parameter indicing whether longwave radiation shall be calculated
    157                 radiation = .FALSE.,       & !< flag parameter indicating whether the radiation model is used
    158                 sun_up    = .TRUE.,        & !< flag parameter indicating whether the sun is up or down
    159                 sw_radiation = .TRUE.        !< flag parameter indicing whether shortwave radiation shall be calculated
    160 
    161     REAL(wp), PARAMETER :: sigma_sb       = 5.67E-8_wp, & !< Stefan-Boltzmann constant
    162                            solar_constant = 1368.0_wp     !< solar constant at top of atmosphere
    163  
    164     REAL(wp) :: albedo = 9999999.9_wp,        & !< NAMELIST alpha
    165                 albedo_lw_dif = 9999999.9_wp, & !< NAMELIST aldif
    166                 albedo_lw_dir = 9999999.9_wp, & !< NAMELIST aldir
    167                 albedo_sw_dif = 9999999.9_wp, & !< NAMELIST asdif
    168                 albedo_sw_dir = 9999999.9_wp, & !< NAMELIST asdir
    169                 dt_radiation = 0.0_wp,        & !< radiation model timestep
    170                 emissivity = 0.95_wp,         & !< NAMELIST surface emissivity
    171                 exn,                          & !< Exner function
    172                 lon = 0.0_wp,                 & !< longitude in radians
    173                 lat = 0.0_wp,                 & !< latitude in radians
    174                 decl_1,                       & !< declination coef. 1
    175                 decl_2,                       & !< declination coef. 2
    176                 decl_3,                       & !< declination coef. 3
    177                 time_utc,                     & !< current time in UTC
    178                 time_utc_init = 43200.0_wp,   & !< UTC time at model start (noon)
    179                 lambda = 0.0_wp,              & !< longitude in degrees
    180                 net_radiation = 0.0_wp,       & !< net radiation at surface
    181                 time_radiation = 0.0_wp,      & !< time since last call of radiation code
    182                 sky_trans                       !< sky transmissivity
    183 
     156    LOGICAL ::  constant_albedo = .FALSE.,       & !< flag parameter indicating whether the albedo may change depending on zenith
     157                force_radiation_call = .FALSE.,  & !< flag parameter for unscheduled radiation calls
     158                lw_radiation = .TRUE.,           & !< flag parameter indicing whether longwave radiation shall be calculated
     159                radiation = .FALSE.,             & !< flag parameter indicating whether the radiation model is used
     160                sun_up    = .TRUE.,              & !< flag parameter indicating whether the sun is up or down
     161                sw_radiation = .TRUE.              !< flag parameter indicing whether shortwave radiation shall be calculated
     162
     163
     164    REAL(wp), PARAMETER :: d_seconds_hour  = 0.000277777777778_wp,  & !< inverse of seconds per hour (1/3600)
     165                           d_hours_day    = 0.0416666666667_wp,     & !< inverse of hours per day (1/24)
     166                           sigma_sb       = 5.67037321E-8_wp,       & !< Stefan-Boltzmann constant
     167                           solar_constant = 1368.0_wp                 !< solar constant at top of atmosphere
     168
     169    REAL(wp) :: albedo = 9999999.9_wp,           & !< NAMELIST alpha
     170                albedo_lw_dif = 9999999.9_wp,    & !< NAMELIST aldif
     171                albedo_lw_dir = 9999999.9_wp,    & !< NAMELIST aldir
     172                albedo_sw_dif = 9999999.9_wp,    & !< NAMELIST asdif
     173                albedo_sw_dir = 9999999.9_wp,    & !< NAMELIST asdir
     174                decl_1,                          & !< declination coef. 1
     175                decl_2,                          & !< declination coef. 2
     176                decl_3,                          & !< declination coef. 3
     177                dt_radiation = 0.0_wp,           & !< radiation model timestep
     178                emissivity = 0.98_wp,            & !< NAMELIST surface emissivity
     179                lambda = 0.0_wp,                 & !< longitude in degrees
     180                lon = 0.0_wp,                    & !< longitude in radians
     181                lat = 0.0_wp,                    & !< latitude in radians
     182                net_radiation = 0.0_wp,          & !< net radiation at surface
     183                skip_time_do_radiation = 0.0_wp, & !< Radiation model is not called before this time
     184                sky_trans,                       & !< sky transmissivity
     185                time_radiation = 0.0_wp,         & !< time since last call of radiation code
     186                time_utc,                        & !< current time in UTC
     187                time_utc_init = 43200.0_wp         !< UTC time at model start (noon)
    184188
    185189    REAL(wp), DIMENSION(0:0) ::  zenith        !< solar zenith angle
     
    213217
    214218    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE, TARGET :: &
     219                        rad_lw_cs_hr,                  & !< longwave clear sky radiation heating rate (K/s)
     220                        rad_lw_cs_hr_av,               & !< average of rad_lw_cs_hr
     221                        rad_lw_hr,                     & !< longwave radiation heating rate (K/s)
     222                        rad_lw_hr_av,                  & !< average of rad_sw_hr
     223                        rad_lw_in,                     & !< incoming longwave radiation (W/m2)
     224                        rad_lw_in_av,                  & !< average of rad_lw_in
     225                        rad_lw_out,                    & !< outgoing longwave radiation (W/m2)
     226                        rad_lw_out_av,                 & !< average of rad_lw_out
     227                        rad_sw_cs_hr,                  & !< shortwave clear sky radiation heating rate (K/s)
     228                        rad_sw_cs_hr_av,               & !< average of rad_sw_cs_hr
     229                        rad_sw_hr,                     & !< shortwave radiation heating rate (K/s)
     230                        rad_sw_hr_av,                  & !< average of rad_sw_hr
    215231                        rad_sw_in,                     & !< incoming shortwave radiation (W/m2)
    216232                        rad_sw_in_av,                  & !< average of rad_sw_in
    217233                        rad_sw_out,                    & !< outgoing shortwave radiation (W/m2)
    218                         rad_sw_out_av,                 & !< average of rad_sw_out
    219                         rad_lw_in,                     & !< incoming longwave radiation (W/m2)
    220                         rad_lw_in_av,                  & !< average of rad_lw_in
    221                         rad_lw_out,                    & !< outgoing longwave radiation (W/m2)
    222                         rad_lw_out_av                    !< average of rad_lw_out
     234                        rad_sw_out_av                    !< average of rad_sw_out
     235
    223236
    224237!
     
    244257                    rrtm_icld = 0,     & !< cloud flag (0: clear sky column, 1: cloudy column)
    245258                    rrtm_iaer = 0,     & !< aerosol option flag (0: no aerosol layers, for lw only: 6 (requires setting of rrtm_sw_ecaer), 10: one or more aerosol layers (not implemented)
    246                     rrtm_idrv = 0        !< longwave upward flux calculation option (0,1)
     259                    rrtm_idrv = 1        !< longwave upward flux calculation option (0,1)
    247260
    248261    LOGICAL :: snd_exists = .FALSE.      !< flag parameter to check whether a user-defined input files exists
    249262
    250     REAL(wp), PARAMETER :: mol_weight_air_d_wv = 1.607793_wp !< molecular weight dry air / water vapor
     263    REAL(wp), PARAMETER :: mol_mass_air_d_wv = 1.607793_wp !< molecular weight dry air / water vapor
    251264
    252265    REAL(wp), DIMENSION(:), ALLOCATABLE :: hyp_snd,     & !< hypostatic pressure from sounding data (hPa)
     
    255268                                           t_snd          !< actual temperature from sounding data (hPa)
    256269
    257     REAL(wp), DIMENSION(:,:), ALLOCATABLE :: aldif,         & !< longwave diffuse albedo solar angle of 60°
    258                                              aldir,         & !< longwave direct albedo solar angle of 60°
    259                                              asdif,         & !< shortwave diffuse albedo solar angle of 60°
    260                                              asdir,         & !< shortwave direct albedo solar angle of 60°
    261                                              rrtm_ccl4vmr,  & !< CCL4 volume mixing ratio (g/mol)
    262                                              rrtm_cfc11vmr, & !< CFC11 volume mixing ratio (g/mol)
    263                                              rrtm_cfc12vmr, & !< CFC12 volume mixing ratio (g/mol)
    264                                              rrtm_cfc22vmr, & !< CFC22 volume mixing ratio (g/mol)
    265                                              rrtm_ch4vmr,   & !< CH4 volume mixing ratio
    266                                              rrtm_cicewp,   & !< in-cloud ice water path (g/m²)
    267                                              rrtm_cldfr,    & !< cloud fraction (0,1)
    268                                              rrtm_cliqwp,   & !< in-cloud liquid water path (g/m²)
    269                                              rrtm_co2vmr,   & !< CO2 volume mixing ratio (g/mol)
    270                                              rrtm_emis,     & !< surface emissivity (0-1)   
    271                                              rrtm_h2ovmr,   & !< H2O volume mixing ratio
    272                                              rrtm_n2ovmr,   & !< N2O volume mixing ratio
    273                                              rrtm_o2vmr,    & !< O2 volume mixing ratio
    274                                              rrtm_o3vmr,    & !< O3 volume mixing ratio
    275                                              rrtm_play,     & !< pressure layers (hPa, zu-grid)
    276                                              rrtm_plev,     & !< pressure layers (hPa, zw-grid)
    277                                              rrtm_reice,    & !< cloud ice effective radius (microns)
    278                                              rrtm_reliq,    & !< cloud water drop effective radius (microns)
    279                                              rrtm_tlay,     & !< actual temperature (K, zu-grid)
    280                                              rrtm_tlev,     & !< actual temperature (K, zw-grid)
    281                                              rrtm_lwdflx,   & !< RRTM output of incoming longwave radiation flux (W/m2)
    282                                              rrtm_lwuflx,   & !< RRTM output of outgoing longwave radiation flux (W/m2)
    283                                              rrtm_lwhr,     & !< RRTM output of longwave radiation heating rate (K/d)
    284                                              rrtm_lwuflxc,  & !< RRTM output of incoming clear sky longwave radiation flux (W/m2)
    285                                              rrtm_lwdflxc,  & !< RRTM output of outgoing clear sky longwave radiation flux (W/m2)
    286                                              rrtm_lwhrc,    & !< RRTM output of incoming longwave clear sky radiation heating rate (K/d)
    287                                              rrtm_swdflx,   & !< RRTM output of incoming shortwave radiation flux (W/m2)
    288                                              rrtm_swuflx,   & !< RRTM output of outgoing shortwave radiation flux (W/m2)
    289                                              rrtm_swhr,     & !< RRTM output of shortwave radiation heating rate (K/d)
    290                                              rrtm_swuflxc,  & !< RRTM output of incoming clear sky shortwave radiation flux (W/m2)
    291                                              rrtm_swdflxc,  & !< RRTM output of outgoing clear sky shortwave radiation flux (W/m2)
    292                                              rrtm_swhrc       !< RRTM output of incoming shortwave clear sky radiation heating rate (K/d)
     270    REAL(wp), DIMENSION(:,:), ALLOCATABLE :: aldif,          & !< longwave diffuse albedo solar angle of 60°
     271                                             aldir,          & !< longwave direct albedo solar angle of 60°
     272                                             asdif,          & !< shortwave diffuse albedo solar angle of 60°
     273                                             asdir,          & !< shortwave direct albedo solar angle of 60°
     274                                             rrtm_ccl4vmr,   & !< CCL4 volume mixing ratio (g/mol)
     275                                             rrtm_cfc11vmr,  & !< CFC11 volume mixing ratio (g/mol)
     276                                             rrtm_cfc12vmr,  & !< CFC12 volume mixing ratio (g/mol)
     277                                             rrtm_cfc22vmr,  & !< CFC22 volume mixing ratio (g/mol)
     278                                             rrtm_ch4vmr,    & !< CH4 volume mixing ratio
     279                                             rrtm_cicewp,    & !< in-cloud ice water path (g/m²)
     280                                             rrtm_cldfr,     & !< cloud fraction (0,1)
     281                                             rrtm_cliqwp,    & !< in-cloud liquid water path (g/m²)
     282                                             rrtm_co2vmr,    & !< CO2 volume mixing ratio (g/mol)
     283                                             rrtm_emis,      & !< surface emissivity (0-1)   
     284                                             rrtm_h2ovmr,    & !< H2O volume mixing ratio
     285                                             rrtm_n2ovmr,    & !< N2O volume mixing ratio
     286                                             rrtm_o2vmr,     & !< O2 volume mixing ratio
     287                                             rrtm_o3vmr,     & !< O3 volume mixing ratio
     288                                             rrtm_play,      & !< pressure layers (hPa, zu-grid)
     289                                             rrtm_plev,      & !< pressure layers (hPa, zw-grid)
     290                                             rrtm_reice,     & !< cloud ice effective radius (microns)
     291                                             rrtm_reliq,     & !< cloud water drop effective radius (microns)
     292                                             rrtm_tlay,      & !< actual temperature (K, zu-grid)
     293                                             rrtm_tlev,      & !< actual temperature (K, zw-grid)
     294                                             rrtm_lwdflx,    & !< RRTM output of incoming longwave radiation flux (W/m2)
     295                                             rrtm_lwdflxc,   & !< RRTM output of outgoing clear sky longwave radiation flux (W/m2)
     296                                             rrtm_lwuflx,    & !< RRTM output of outgoing longwave radiation flux (W/m2)
     297                                             rrtm_lwuflxc,   & !< RRTM output of incoming clear sky longwave radiation flux (W/m2)
     298                                             rrtm_lwuflx_dt, & !< RRTM output of incoming clear sky longwave radiation flux (W/m2)
     299                                             rrtm_lwuflxc_dt,& !< RRTM output of outgoing clear sky longwave radiation flux (W/m2)
     300                                             rrtm_lwhr,      & !< RRTM output of longwave radiation heating rate (K/d)
     301                                             rrtm_lwhrc,     & !< RRTM output of incoming longwave clear sky radiation heating rate (K/d)
     302                                             rrtm_swdflx,    & !< RRTM output of incoming shortwave radiation flux (W/m2)
     303                                             rrtm_swdflxc,   & !< RRTM output of outgoing clear sky shortwave radiation flux (W/m2)
     304                                             rrtm_swuflx,    & !< RRTM output of outgoing shortwave radiation flux (W/m2)
     305                                             rrtm_swuflxc,   & !< RRTM output of incoming clear sky shortwave radiation flux (W/m2)
     306                                             rrtm_swhr,      & !< RRTM output of shortwave radiation heating rate (K/d)
     307                                             rrtm_swhrc        !< RRTM output of incoming shortwave clear sky radiation heating rate (K/d)
    293308
    294309!
     
    296311    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  rad_lw_cs_in,   & !< incoming clear sky longwave radiation (W/m2) (not used)
    297312                                                rad_lw_cs_out,  & !< outgoing clear sky longwave radiation (W/m2) (not used)
    298                                                 rad_lw_cs_hr,   & !< longwave clear sky radiation heating rate (K/d) (not used)
    299                                                 rad_lw_hr,      & !< longwave radiation heating rate (K/d)
    300313                                                rad_sw_cs_in,   & !< incoming clear sky shortwave radiation (W/m2) (not used)
    301314                                                rad_sw_cs_out,  & !< outgoing clear sky shortwave radiation (W/m2) (not used)
    302                                                 rad_sw_cs_hr,   & !< shortwave clear sky radiation heating rate (K/d) (not used)
    303                                                 rad_sw_hr,      & !< shortwave radiation heating rate (K/d)
    304315                                                rrtm_aldif,     & !< surface albedo for longwave diffuse radiation
    305316                                                rrtm_aldir,     & !< surface albedo for longwave direct radiation
     
    316327                                                rrtm_sw_asmaer, & !< sw aerosol asymmetry parameter
    317328                                                rrtm_sw_ecaer     !< sw aerosol optical detph at 0.55 microns (rrtm_iaer = 6 only)
     329
    318330#endif
    319331
     
    341353    PUBLIC albedo, albedo_type, albedo_type_name, albedo_lw_dif, albedo_lw_dir,&
    342354           albedo_sw_dif, albedo_sw_dir, constant_albedo, day_init, dots_rad,  &
    343            dt_radiation, init_radiation, lambda, lw_radiation, net_radiation,  &
    344            rad_net, rad_net_av, radiation, radiation_clearsky,                 &
    345            radiation_rrtmg, radiation_scheme, radiation_tendency, rad_lw_in,   &
    346            rad_lw_in_av, rad_lw_out, rad_lw_out_av, rad_sw_in, rad_sw_in_av,   &
    347            rad_sw_out, rad_sw_out_av, sigma_sb, sw_radiation, time_radiation,  &
    348            time_utc_init
     355           dt_radiation, emissivity, force_radiation_call, init_radiation,     &
     356           lambda, lw_radiation, net_radiation, rad_net, rad_net_av, radiation,&
     357           radiation_clearsky, radiation_rrtmg, radiation_scheme,              &
     358           radiation_tendency, rad_lw_in, rad_lw_in_av, rad_lw_out,            &
     359           rad_lw_out_av, rad_lw_cs_hr, rad_lw_cs_hr_av, rad_lw_hr,            &
     360           rad_lw_hr_av, rad_sw_in, rad_sw_in_av, rad_sw_out, rad_sw_out_av,   &
     361           rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr, rad_sw_hr_av, sigma_sb,   &
     362           skip_time_do_radiation, sw_radiation, time_radiation, time_utc_init
     363
    349364
    350365#if defined ( __rrtmg )
    351     PUBLIC rrtm_aldif, rrtm_aldir, rrtm_asdif, rrtm_asdir
     366    PUBLIC rrtm_aldif, rrtm_aldir, rrtm_asdif, rrtm_asdir, rrtm_idrv,          &
     367           rrtm_lwuflx_dt
    352368#endif
    353369
     
    483499!
    484500!--       Allocate 3d arrays of radiative fluxes and heating rates
    485           ALLOCATE ( rad_sw_hr(nzb+1:nzt+1,nysg:nyng,nxlg:nxrg) )
    486           ALLOCATE ( rad_sw_cs_in(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    487           ALLOCATE ( rad_sw_cs_out(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    488           ALLOCATE ( rad_sw_cs_hr(nzb+1:nzt+1,nysg:nyng,nxlg:nxrg) )
    489 
    490501          IF ( .NOT. ALLOCATED ( rad_sw_in ) )  THEN
    491502             ALLOCATE ( rad_sw_in(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    492503             rad_sw_in = 0.0_wp
    493 
    494504          ENDIF
    495505
    496506          IF ( .NOT. ALLOCATED ( rad_sw_in_av ) )  THEN
    497507             ALLOCATE ( rad_sw_in_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    498              rad_sw_out = 0.0_wp
    499508          ENDIF
    500509
    501510          IF ( .NOT. ALLOCATED ( rad_sw_out ) )  THEN
    502511             ALLOCATE ( rad_sw_out(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     512             rad_sw_out = 0.0_wp
    503513          ENDIF
    504514
     
    507517          ENDIF
    508518
    509           ALLOCATE ( rad_lw_hr(nzb+1:nzt+1,nysg:nyng,nxlg:nxrg) )
    510           ALLOCATE ( rad_lw_cs_in(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    511           ALLOCATE ( rad_lw_cs_out(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    512           ALLOCATE ( rad_lw_cs_hr(nzb+1:nzt+1,nysg:nyng,nxlg:nxrg) )
     519          IF ( .NOT. ALLOCATED ( rad_sw_hr ) )  THEN
     520             ALLOCATE ( rad_sw_hr(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     521             rad_sw_hr = 0.0_wp
     522          ENDIF
     523
     524          IF ( .NOT. ALLOCATED ( rad_sw_hr_av ) )  THEN
     525             ALLOCATE ( rad_sw_hr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     526             rad_sw_hr_av = 0.0_wp
     527          ENDIF
     528
     529          IF ( .NOT. ALLOCATED ( rad_sw_cs_hr ) )  THEN
     530             ALLOCATE ( rad_sw_cs_hr(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     531             rad_sw_cs_hr = 0.0_wp
     532          ENDIF
     533
     534          IF ( .NOT. ALLOCATED ( rad_sw_cs_hr_av ) )  THEN
     535             ALLOCATE ( rad_sw_cs_hr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     536             rad_sw_cs_hr_av = 0.0_wp
     537          ENDIF
    513538
    514539          IF ( .NOT. ALLOCATED ( rad_lw_in ) )  THEN
     
    530555          ENDIF
    531556
    532           rad_sw_hr     = 0.0_wp
     557          IF ( .NOT. ALLOCATED ( rad_lw_hr ) )  THEN
     558             ALLOCATE ( rad_lw_hr(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     559             rad_lw_hr = 0.0_wp
     560          ENDIF
     561
     562          IF ( .NOT. ALLOCATED ( rad_lw_hr_av ) )  THEN
     563             ALLOCATE ( rad_lw_hr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     564             rad_lw_hr_av = 0.0_wp
     565          ENDIF
     566
     567          IF ( .NOT. ALLOCATED ( rad_lw_cs_hr ) )  THEN
     568             ALLOCATE ( rad_lw_cs_hr(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     569             rad_lw_cs_hr = 0.0_wp
     570          ENDIF
     571
     572          IF ( .NOT. ALLOCATED ( rad_lw_cs_hr_av ) )  THEN
     573             ALLOCATE ( rad_lw_cs_hr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     574             rad_lw_cs_hr_av = 0.0_wp
     575          ENDIF
     576
     577          ALLOCATE ( rad_sw_cs_in(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     578          ALLOCATE ( rad_sw_cs_out(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    533579          rad_sw_cs_in  = 0.0_wp
    534580          rad_sw_cs_out = 0.0_wp
    535           rad_sw_cs_hr  = 0.0_wp
    536 
    537           rad_lw_hr     = 0.0_wp
     581
     582          ALLOCATE ( rad_lw_cs_in(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     583          ALLOCATE ( rad_lw_cs_out(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    538584          rad_lw_cs_in  = 0.0_wp
    539585          rad_lw_cs_out = 0.0_wp
    540           rad_lw_cs_hr  = 0.0_wp
    541586
    542587!
     
    578623!--    Add timeseries for radiation model
    579624       dots_rad = dots_num + 1
    580        dots_label(dots_num+1) = "rad_net"
    581        dots_label(dots_num+2) = "rad_lw_in"
    582        dots_label(dots_num+3) = "rad_lw_out"
    583        dots_label(dots_num+4) = "rad_sw_in"
    584        dots_label(dots_num+5) = "rad_sw_out"
    585        dots_unit(dots_num+1:dots_num+5) = "W/m2"
    586        dots_num  = dots_num + 5
     625       dots_num = dots_num + 5
     626
     627       dots_label(dots_rad+1) = "rad_net"
     628       dots_label(dots_rad+2) = "rad_lw_in"
     629       dots_label(dots_rad+3) = "rad_lw_out"
     630       dots_label(dots_rad+4) = "rad_sw_in"
     631       dots_label(dots_rad+5) = "rad_sw_out"
     632       dots_unit(dots_rad:dots_rad+4) = "W/m2"
    587633
    588634!
    589635!--    Output of albedos is only required for RRTMG
    590636       IF ( radiation_scheme == 'rrtmg' )  THEN
    591           dots_label(dots_num+1) = "rrtm_aldif"
    592           dots_label(dots_num+2) = "rrtm_aldir"
    593           dots_label(dots_num+3) = "rrtm_asdif"
    594           dots_label(dots_num+4) = "rrtm_asdir"
    595           dots_unit(dots_num+1:dots_num+4) = ""
    596637          dots_num  = dots_num + 4
     638          dots_label(dots_rad+5) = "rrtm_aldif"
     639          dots_label(dots_rad+6) = "rrtm_aldir"
     640          dots_label(dots_rad+7) = "rrtm_asdif"
     641          dots_label(dots_rad+8) = "rrtm_asdir"
     642          dots_unit(dots_num+5:dots_num+8) = ""
     643
    597644       ENDIF
    598645
     
    624671       IMPLICIT NONE
    625672
    626        INTEGER(iwp) :: i, j, k
     673       INTEGER(iwp) :: i, j, k   !< loop indices
     674       REAL(wp)     :: exn,   &  !< Exner functions at surface
     675                       exn_1, &  !< Exner functions at first grid level
     676                       pt_1      !< potential temperature at first grid level
    627677
    628678!
     
    643693          DO j = nys, nyn
    644694             k = nzb_s_inner(j,i)
     695
     696             exn_1 = (hyp(k+1) / 100000.0_wp )**0.286_wp
     697
    645698             rad_sw_in(0,j,i)  = solar_constant * sky_trans * zenith(0)
    646699             rad_sw_out(0,j,i) = alpha(j,i) * rad_sw_in(0,j,i)
    647              rad_lw_out(0,j,i) = sigma_sb * (pt(k,j,i) * exn)**4
    648              rad_lw_in(0,j,i)  = 0.8_wp * sigma_sb * (pt(k+1,j,i) * exn)**4
    649              rad_net(j,i)      = rad_sw_in(0,j,i) - rad_sw_out(0,j,i)          &
    650                                  + rad_lw_in(0,j,i) - rad_lw_out(0,j,i)
     700             rad_lw_out(0,j,i) = emissivity * sigma_sb * (pt(k,j,i) * exn)**4
     701
     702             IF ( cloud_physics )  THEN
     703                pt_1 = pt(k+1,j,i) + l_d_cp / exn_1 * ql(k+1,j,i)
     704                rad_lw_in(0,j,i)  = 0.8_wp * sigma_sb * (pt_1 * exn_1)**4
     705             ELSE
     706                rad_lw_in(0,j,i)  = 0.8_wp * sigma_sb * (pt(k+1,j,i) * exn_1)**4
     707             ENDIF
     708
     709             rad_net(j,i) = rad_sw_in(0,j,i) - rad_sw_out(0,j,i)               &
     710                            + rad_lw_in(0,j,i) - rad_lw_out(0,j,i)
    651711
    652712          ENDDO
     
    682742#if defined ( __rrtmg )
    683743
    684        INTEGER(iwp) :: i, j, k, n          !<
    685 
    686        REAL(wp)     ::  s_r2      !< weighted sum over all droplets with r^2
    687        REAL(wp)     ::  s_r3      !< weighted sum over all droplets with r^3
     744       INTEGER(iwp) :: i, j, k, n !< loop indices
     745
     746       REAL(wp)     ::  s_r2, &   !< weighted sum over all droplets with r^2
     747                        s_r3      !< weighted sum over all droplets with r^3
    688748
    689749!
     
    703763!--    profile. nzt_rad might be modified by these calls and all required arrays
    704764!--    will then be re-allocated
    705        IF ( large_scale_forcing  .AND.  lsf_surf ) THEN
     765       IF ( large_scale_forcing  .AND.  lsf_surf )  THEN
    706766          CALL read_sounding_data
    707767          CALL read_trace_gas_data
     
    714774!
    715775!--          Prepare profiles of temperature and H2O volume mixing ratio
    716              rrtm_tlev(0,nzb+1) = pt(nzb,j,i)
     776             rrtm_tlev(0,nzb+1) = pt(nzb,j,i) * ( surface_pressure             &
     777                                                  / 1000.0_wp )**0.286_wp
    717778
    718779             DO k = nzb+1, nzt+1
    719780                rrtm_tlay(0,k) = pt(k,j,i) * ( (hyp(k) ) / 100000.0_wp         &
    720                                  )**0.286_wp + ( l_v / cp ) * ql(k,j,i)
    721                 rrtm_h2ovmr(0,k) = mol_weight_air_d_wv * (q(k,j,i) - ql(k,j,i))
     781                                 )**0.286_wp + l_d_cp * ql(k,j,i)
     782                rrtm_h2ovmr(0,k) = mol_mass_air_d_wv * (q(k,j,i) - ql(k,j,i))
    722783
    723784             ENDDO
     
    754815             rrtm_reliq  = 0.0_wp
    755816             rrtm_cliqwp = 0.0_wp
     817             rrtm_icld   = 0
    756818
    757819             DO k = nzb+1, nzt+1
    758                 rrtm_cliqwp(0,k) =  ql(k,j,i) * 1000.0_wp *                      &
    759                                   (rrtm_plev(0,k) - rrtm_plev(0,k+1)) * 100.0_wp / g
    760 
    761                 IF ( rrtm_cliqwp(0,k) .GT. 0 )  THEN
     820                rrtm_cliqwp(0,k) =  ql(k,j,i) * 1000.0_wp *                    &
     821                                    (rrtm_plev(0,k) - rrtm_plev(0,k+1))        &
     822                                    * 100.0_wp / g
     823
     824                IF ( rrtm_cliqwp(0,k) > 0.0_wp )  THEN
    762825                   rrtm_cldfr(0,k) = 1.0_wp
    763                    rrtm_icld = 1
     826                   IF ( rrtm_icld == 0 )  rrtm_icld = 1
    764827
    765828!
    766829!--                Calculate cloud droplet effective radius
    767830                   IF ( cloud_physics )  THEN
    768                       rrtm_reliq(0,k) = 1.0E6_wp * ( 3.0_wp * ql(k,j,i)          &
    769                                       / ( 4.0_wp * pi * nc_const * rho_l )     &
    770                                       )**0.33333333333333_wp                   &
    771                                      * EXP( LOG( sigma_gc )**2 )
     831                      rrtm_reliq(0,k) = 1.0E6_wp * ( 3.0_wp * ql(k,j,i)        &
     832                                        * rho_surface                          &
     833                                        / ( 4.0_wp * pi * nc_const * rho_l )   &
     834                                        )**0.33333333333333_wp                 &
     835                                        * EXP( LOG( sigma_gc )**2 )
    772836
    773837                   ELSEIF ( cloud_droplets )  THEN
     
    794858!
    795859!--                Limit effective radius
    796                    IF ( rrtm_reliq(0,k) .GT. 0.0_wp )  THEN
     860                   IF ( rrtm_reliq(0,k) > 0.0_wp )  THEN
    797861                      rrtm_reliq(0,k) = MAX(rrtm_reliq(0,k),2.5_wp)
    798862                      rrtm_reliq(0,k) = MIN(rrtm_reliq(0,k),60.0_wp)
    799863                  ENDIF
    800                 ELSE
    801                    rrtm_icld = 0
    802864                ENDIF
    803865             ENDDO
     
    817879               rrtm_reliq      , rrtm_lw_tauaer,                               &
    818880               rrtm_lwuflx     , rrtm_lwdflx  , rrtm_lwhr  ,                   &
    819                rrtm_lwuflxc    , rrtm_lwdflxc , rrtm_lwhrc )
    820 
     881               rrtm_lwuflxc    , rrtm_lwdflxc , rrtm_lwhrc ,                   &
     882               rrtm_lwuflx_dt  ,  rrtm_lwuflxc_dt )
     883
     884!
     885!--             Save fluxes
    821886                DO k = nzb, nzt+1
    822887                   rad_lw_in(k,j,i)  = rrtm_lwdflx(0,k)
     
    824889                ENDDO
    825890
     891!
     892!--             Save heating rates (convert from K/d to K/h)
     893                DO k = nzb+1, nzt+1
     894                   rad_lw_hr(k,j,i)     = rrtm_lwhr(0,k)  * d_hours_day
     895                   rad_lw_cs_hr(k,j,i)  = rrtm_lwhrc(0,k) * d_hours_day
     896                ENDDO
    826897
    827898             ENDIF
     
    841912               rrtm_swuflxc    , rrtm_swdflxc , rrtm_swhrc )
    842913 
     914!
     915!--             Save fluxes
    843916                DO k = nzb, nzt+1
    844917                   rad_sw_in(k,j,i)  = rrtm_swdflx(0,k)
    845918                   rad_sw_out(k,j,i) = rrtm_swuflx(0,k)
    846919                ENDDO
     920
     921!
     922!--             Save heating rates (convert from K/d to K/s)
     923                DO k = nzb+1, nzt+1
     924                   rad_sw_hr(k,j,i)     = rrtm_swhr(0,k)  * d_hours_day
     925                   rad_sw_cs_hr(k,j,i)  = rrtm_swhrc(0,k) * d_hours_day
     926                ENDDO
     927
    847928             ENDIF
    848929
     
    857938       CALL exchange_horiz( rad_lw_in,  nbgp )
    858939       CALL exchange_horiz( rad_lw_out, nbgp )
     940       CALL exchange_horiz( rad_lw_hr,    nbgp )
     941       CALL exchange_horiz( rad_lw_cs_hr, nbgp )
     942
    859943       CALL exchange_horiz( rad_sw_in,  nbgp )
    860944       CALL exchange_horiz( rad_sw_out, nbgp )
     945       CALL exchange_horiz( rad_sw_hr,    nbgp )
     946       CALL exchange_horiz( rad_sw_cs_hr, nbgp )
     947
    861948       CALL exchange_horiz_2d( rad_net, nbgp )
    862949#endif
     
    897984!
    898985!--    Check if the sun is up (otheriwse shortwave calculations can be skipped)
    899        IF ( zenith(0) .GT. 0.0_wp )  THEN
     986       IF ( zenith(0) > 0.0_wp )  THEN
    900987          sun_up = .TRUE.
    901988       ELSE
     
    9961083       IMPLICIT NONE
    9971084
    998        INTEGER(iwp) :: id, id_dim_zrad, id_var, k, nz_snd, nz_snd_start, nz_snd_end
    999 
    1000        REAL(wp) :: t_surface
    1001 
    1002        REAL(wp), DIMENSION(:), ALLOCATABLE ::  hyp_snd_tmp, t_snd_tmp
     1085       INTEGER(iwp) :: id,           & !< NetCDF id of input file
     1086                       id_dim_zrad,  & !< pressure level id in the NetCDF file
     1087                       id_var,       & !< NetCDF variable id
     1088                       k,            & !< loop index
     1089                       nz_snd,       & !< number of vertical levels in the sounding data
     1090                       nz_snd_start, & !< start vertical index for sounding data to be used
     1091                       nz_snd_end      !< end vertical index for souding data to be used
     1092
     1093       REAL(wp) :: t_surface           !< actual surface temperature
     1094
     1095       REAL(wp), DIMENSION(:), ALLOCATABLE ::  hyp_snd_tmp, & !< temporary hydrostatic pressure profile (sounding)
     1096                                               t_snd_tmp      !< temporary temperature profile (sounding)
    10031097
    10041098!
     
    10141108          DEALLOCATE ( rrtm_tlay )
    10151109          DEALLOCATE ( rrtm_tlev )
     1110
    10161111          DEALLOCATE ( rrtm_h2ovmr )
    10171112          DEALLOCATE ( rrtm_cicewp )
     
    10221117          DEALLOCATE ( rrtm_lw_taucld )
    10231118          DEALLOCATE ( rrtm_lw_tauaer )
     1119
    10241120          DEALLOCATE ( rrtm_lwdflx  )
     1121          DEALLOCATE ( rrtm_lwdflxc )
    10251122          DEALLOCATE ( rrtm_lwuflx  )
     1123          DEALLOCATE ( rrtm_lwuflxc )
     1124          DEALLOCATE ( rrtm_lwuflx_dt )
     1125          DEALLOCATE ( rrtm_lwuflxc_dt )
    10261126          DEALLOCATE ( rrtm_lwhr  )
    1027           DEALLOCATE ( rrtm_lwuflxc )
    1028           DEALLOCATE ( rrtm_lwdflxc )
    10291127          DEALLOCATE ( rrtm_lwhrc )
     1128
    10301129          DEALLOCATE ( rrtm_sw_taucld )
    10311130          DEALLOCATE ( rrtm_sw_ssacld )
     
    10351134          DEALLOCATE ( rrtm_sw_ssaaer )
    10361135          DEALLOCATE ( rrtm_sw_asmaer )
    1037           DEALLOCATE ( rrtm_sw_ecaer )   
     1136          DEALLOCATE ( rrtm_sw_ecaer )   
     1137 
    10381138          DEALLOCATE ( rrtm_swdflx  )
     1139          DEALLOCATE ( rrtm_swdflxc )
    10391140          DEALLOCATE ( rrtm_swuflx  )
     1141          DEALLOCATE ( rrtm_swuflxc )
    10401142          DEALLOCATE ( rrtm_swhr  )
    1041           DEALLOCATE ( rrtm_swuflxc )
    1042           DEALLOCATE ( rrtm_swdflxc )
    10431143          DEALLOCATE ( rrtm_swhrc )
     1144
    10441145       ENDIF
    10451146
     
    10631164!--    Read pressure from file
    10641165       nc_stat = NF90_INQ_VARID( id, "Pressure", id_var )
    1065        nc_stat = NF90_GET_VAR( id, id_var, hyp_snd_tmp(:), start = (/1/),    &
     1166       nc_stat = NF90_GET_VAR( id, id_var, hyp_snd_tmp(:), start = (/1/),      &
    10661167                               count = (/nz_snd/) )
    10671168       CALL handle_netcdf_error( 'netcdf', 552 )
     
    10751176!--    Read temperature from file
    10761177       nc_stat = NF90_INQ_VARID( id, "ReferenceTemperature", id_var )
    1077        nc_stat = NF90_GET_VAR( id, id_var, t_snd_tmp(:), start = (/1/),      &
     1178       nc_stat = NF90_GET_VAR( id, id_var, t_snd_tmp(:), start = (/1/),        &
    10781179                               count = (/nz_snd/) )
    10791180       CALL handle_netcdf_error( 'netcdf', 553 )
     
    10881189!--    in Pa, hyp_snd in hPa).
    10891190       DO  k = 1, nz_snd
    1090           IF ( hyp_snd_tmp(k) .LT. (hyp(nzt+1) - 1000.0_wp) * 0.01_wp )  THEN
     1191          IF ( hyp_snd_tmp(k) < ( hyp(nzt+1) - 1000.0_wp) * 0.01_wp )  THEN
    10911192             nz_snd_start = k
    10921193             EXIT
     
    10941195       END DO
    10951196
    1096        IF ( nz_snd_start .LE. nz_snd )  THEN
     1197       IF ( nz_snd_start <= nz_snd )  THEN
    10971198          nz_snd_end = nz_snd - 1
    10981199       END IF
     
    11281229       ALLOCATE ( rrtm_plev(0:0,nzb+1:nzt_rad+2)   )
    11291230
    1130        t_surface = pt_surface * (surface_pressure / 1000.0_wp )**0.286_wp
     1231       t_surface = pt_surface * ( surface_pressure / 1000.0_wp )**0.286_wp
    11311232       DO k = nzb+1, nzt+1
    11321233          rrtm_play(0,k) = hyp(k) * 0.01_wp
     
    11601261          rrtm_h2ovmr(0,k) = q_snd(k)
    11611262       ENDDO
    1162        rrtm_tlay(0,nzt_rad+1)   = 2.0_wp * rrtm_tlay(0,nzt_rad)                &
    1163                                   - rrtm_tlay(0,nzt_rad-1)
     1263       rrtm_tlay(0,nzt_rad+1) = 2.0_wp * rrtm_tlay(0,nzt_rad)                 &
     1264                                - rrtm_tlay(0,nzt_rad-1)
    11641265       DO k = nzt+9, nzt_rad+1
    11651266          rrtm_tlev(0,k)   = rrtm_tlay(0,k-1) + (rrtm_tlay(0,k)                &
     
    12371338       rrtm_lwhrc   = 0.0_wp
    12381339
     1340       ALLOCATE ( rrtm_lwuflx_dt(0:0,nzb:nzt_rad+1) )
     1341       ALLOCATE ( rrtm_lwuflxc_dt(0:0,nzb:nzt_rad+1) )
     1342
     1343       rrtm_lwuflxc_dt = 0.0_wp
     1344       rrtm_lwuflxc_dt = 0.0_wp
    12391345
    12401346    END SUBROUTINE read_sounding_data
     
    12531359       IMPLICIT NONE
    12541360
    1255        INTEGER(iwp), PARAMETER :: num_trace_gases = 9 !< number of trace gases
    1256 
    1257        CHARACTER(LEN=5), DIMENSION(num_trace_gases), PARAMETER ::              &
     1361       INTEGER(iwp), PARAMETER :: num_trace_gases = 9 !< number of trace gases (absorbers)
     1362
     1363       CHARACTER(LEN=5), DIMENSION(num_trace_gases), PARAMETER ::              & !< trace gas names
    12581364           trace_names = (/'O3   ', 'CO2  ', 'CH4  ', 'N2O  ', 'O2   ',        &
    12591365                           'CFC11', 'CFC12', 'CFC22', 'CCL4 '/)
    12601366
    1261        INTEGER(iwp) :: id, k, m, n, nabs, np, id_abs, id_dim, id_var
     1367       INTEGER(iwp) :: id,     & !< NetCDF id
     1368                       k,      & !< loop index
     1369                       m,      & !< loop index
     1370                       n,      & !< loop index
     1371                       nabs,   & !< number of absorbers
     1372                       np,     & !< number of pressure levels
     1373                       id_abs, & !< NetCDF id of the respective absorber
     1374                       id_dim, & !< NetCDF id of asborber's dimension
     1375                       id_var    !< NetCDf id ot the absorber
    12621376
    12631377       REAL(wp) :: p_mls_l, p_mls_u, p_wgt_l, p_wgt_u, p_mls_m
     
    13801494!--          When the pressure level is higher than the trace gas pressure
    13811495!--          level, assume that
    1382              IF ( rrtm_plev_tmp(k-1) .GT. p_mls(1) )  THEN             
     1496             IF ( rrtm_plev_tmp(k-1) > p_mls(1) )  THEN             
    13831497               
    13841498                trace_mls_path(k,m) = trace_mls_path(k,m) + trace_mls(m,1)     &
     
    13991513                          MAX( rrtm_plev_tmp(k), p_mls(n-1) ) )
    14001514
    1401                 IF ( p_mls_l .GT. p_mls_u )  THEN
     1515                IF ( p_mls_l > p_mls_u )  THEN
    14021516
    14031517!
     
    14121526                                         +  ( p_wgt_u * trace_mls(m,n)         &
    14131527                                            + p_wgt_l * trace_mls(m,n-1) )     &
    1414                                          * (p_mls_l + p_mls_u) / g
     1528                                         * (p_mls_l - p_mls_u) / g
    14151529                ENDIF
    14161530             ENDDO
    14171531
    1418              IF ( rrtm_plev_tmp(k) .LT. p_mls(np) )  THEN
     1532             IF ( rrtm_plev_tmp(k) < p_mls(np) )  THEN
    14191533                trace_mls_path(k,m) = trace_mls_path(k,m) + trace_mls(m,np)    &
    14201534                                      * ( MIN( rrtm_plev_tmp(k-1), p_mls(np) ) &
     
    15031617    SUBROUTINE radiation_tendency_ij ( i, j, tend )
    15041618
    1505        USE arrays_3d,                                                          &
    1506            ONLY:  dzw
    1507 
    15081619       USE cloud_parameters,                                                   &
    1509            ONLY:  pt_d_t, cp
    1510 
    1511        USE control_parameters,                                                 &
    1512            ONLY:  rho_surface
     1620           ONLY:  pt_d_t
    15131621
    15141622       IMPLICIT NONE
    15151623
    1516        INTEGER(iwp) :: i, j, k
    1517 
    1518        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: tend
     1624       INTEGER(iwp) :: i, j, k !< loop indices
     1625
     1626       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: tend !< pt tendency term
    15191627
    15201628#if defined ( __rrtmg )
    1521 
    1522        REAL(wp) :: rad_sw_net_l, rad_sw_net_u, rad_lw_net_l, rad_lw_net_u
    1523 
    1524        rad_sw_net_l = 0.0_wp
    1525        rad_sw_net_u = 0.0_wp
    1526        rad_lw_net_l = 0.0_wp
    1527        rad_lw_net_u = 0.0_wp
    1528 
    1529 !
    1530 !--    Calculate radiative flux divergence
     1629!
     1630!--    Calculate tendency based on heating rate
    15311631       DO k = nzb+1, nzt+1
    1532 
    1533           rad_sw_net_l = rad_sw_in(k-1,j,i) - rad_sw_out(k-1,j,i)
    1534           rad_sw_net_u = rad_sw_in(k,j,i)   - rad_sw_out(k,j,i)
    1535           rad_lw_net_l = rad_lw_in(k-1,j,i) - rad_lw_out(k-1,j,i)
    1536           rad_lw_net_u = rad_lw_in(k,j,i)   - rad_lw_out(k,j,i)
    1537 
    1538           tend(k,j,i) = tend(k,j,i) + ( rad_sw_net_u - rad_sw_net_l            &
    1539                                       + rad_lw_net_u - rad_lw_net_l ) /        &
    1540                                      ( dzw(k) * cp * rho_surface ) * pt_d_t(k)
     1632          tend(k,j,i) = tend(k,j,i) + (rad_lw_hr(k,j,i) + rad_sw_hr(k,j,i))    &
     1633                                      * pt_d_t(k) * d_seconds_hour
    15411634       ENDDO
    15421635
     
    15541647    SUBROUTINE radiation_tendency ( tend )
    15551648
    1556        USE arrays_3d,                                                          &
    1557            ONLY:  dzw
    1558 
    15591649       USE cloud_parameters,                                                   &
    1560            ONLY:  pt_d_t, cp
     1650           ONLY:  pt_d_t
    15611651
    15621652       USE indices,                                                            &
    15631653           ONLY:  nxl, nxr, nyn, nys
    15641654
    1565        USE control_parameters,                                                 &
    1566            ONLY:  rho_surface
    1567 
    15681655       IMPLICIT NONE
    15691656
    1570        INTEGER(iwp) :: i, j, k
    1571 
    1572        REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: tend
     1657       INTEGER(iwp) :: i, j, k !< loop indices
     1658
     1659       REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) :: tend !< pt tendency term
    15731660
    15741661#if defined ( __rrtmg )
    1575 
    1576        REAL(wp) :: rad_sw_net_l, rad_sw_net_u, rad_lw_net_l, rad_lw_net_u
    1577 
    1578        rad_sw_net_l = 0.0_wp
    1579        rad_sw_net_u = 0.0_wp
    1580        rad_lw_net_l = 0.0_wp
    1581        rad_lw_net_u = 0.0_wp
    1582 
     1662!
     1663!--    Calculate tendency based on heating rate
    15831664       DO  i = nxl, nxr
    15841665          DO  j = nys, nyn
    1585 
    1586 !
    1587 !--          Calculate radiative flux divergence
    15881666             DO k = nzb+1, nzt+1
    1589 
    1590                 rad_sw_net_l = rad_sw_in(k-1,j,i) - rad_sw_out(k-1,j,i)
    1591                 rad_sw_net_u = rad_sw_in(k  ,j,i) - rad_sw_out(k  ,j,i)
    1592                 rad_lw_net_l = rad_lw_in(k-1,j,i) - rad_lw_out(k-1,j,i)
    1593                 rad_lw_net_u = rad_lw_in(k  ,j,i) - rad_lw_out(k  ,j,i)
    1594 
    1595                 tend(k,j,i) = tend(k,j,i) + ( rad_sw_net_u - rad_sw_net_l      &
    1596                                       + rad_lw_net_u - rad_lw_net_l ) /        &
    1597                                       ( dzw(k) * cp * rho_surface ) * pt_d_t(k)
     1667                tend(k,j,i) = tend(k,j,i) + ( rad_lw_hr(k,j,i)                 &
     1668                                            +  rad_sw_hr(k,j,i) ) * pt_d_t(k)  &
     1669                                            * d_seconds_hour
    15981670             ENDDO
    15991671         ENDDO
  • palm/trunk/SOURCE/read_3d_binary.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added output of radiative heating rates and Obukhov length. Removed output of
     22! rif.
    2223!
    2324! Former revisions:
     
    8384
    8485    USE arrays_3d,                                                             &
    85         ONLY:  e, kh, km, p, pt, q, ql, qc, nr, nrs, nrsws, nrswst, qr, qrs,   &
    86                qrsws, qrswst, qs, qsws, qswst, sa, saswsb, saswst, rif,        &
     86        ONLY:  e, kh, km, ol, p, pt, q, ql, qc, nr, nrs, nrsws, nrswst, qr,    &
     87               qrs, qrsws, qrswst, qs, qsws, qswst, sa, saswsb, saswst,        &
    8788               rif_wall, shf, ts, tswst, u, u_m_l, u_m_n, u_m_r, u_m_s, us,    &
    8889               usws, uswst, v, v_m_l, v_m_n, v_m_r, v_m_s, vpt, vsws, vswst,   &
     
    119120    USE radiation_model_mod,                                                   &
    120121        ONLY: rad_net, rad_net_av, rad_lw_in, rad_lw_in_av, rad_lw_out,        &
    121               rad_lw_out_av, rad_sw_in, rad_sw_in_av, rad_sw_out, rad_sw_out_av
     122              rad_lw_cs_hr, rad_lw_cs_hr_av, rad_lw_hr, rad_lw_hr_av,          &
     123              rad_lw_out_av, rad_sw_in, rad_sw_in_av, rad_sw_out,              &
     124              rad_sw_out_av, rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr,         &
     125              rad_sw_hr_av
    122126
    123127    USE random_function_mod,                                                   &
     
    595599                   nrswst(nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp)  = &
    596600                                          tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     601                CASE ( 'ol' )
     602                   IF ( k == 1 )  READ ( 13 )  tmp_2d
     603                   ol(nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp)  = &
     604                                         tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    597605
    598606                CASE ( 'p' )
     
    867875                             tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    868876
     877                CASE ( 'rad_lw_cs_hr' )
     878                   IF ( .NOT. ALLOCATED( rad_lw_cs_hr ) )  THEN
     879                      ALLOCATE( rad_lw_cs_hr(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     880                   ENDIF
     881                   IF ( k == 1 )  READ ( 13 )  tmp_3d
     882                   rad_lw_cs_hr(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
     883                           tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     884
     885                CASE ( 'rad_lw_cs_hr_av' )
     886                   IF ( .NOT. ALLOCATED( rad_lw_out_av ) )  THEN
     887                      ALLOCATE( rad_lw_cs_hr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     888                   ENDIF
     889                   IF ( k == 1 )  READ ( 13 )  tmp_3d
     890                   rad_lw_cs_hr_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
     891                           tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     892
     893                CASE ( 'rad_lw_hr' )
     894                   IF ( .NOT. ALLOCATED( rad_lw_hr ) )  THEN
     895                      ALLOCATE( rad_lw_hr(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     896                   ENDIF
     897                   IF ( k == 1 )  READ ( 13 )  tmp_3d
     898                   rad_lw_hr(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
     899                           tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     900
     901                CASE ( 'rad_lw_hr_av' )
     902                   IF ( .NOT. ALLOCATED( rad_lw_hr_av ) )  THEN
     903                      ALLOCATE( rad_lw_hr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     904                   ENDIF
     905                   IF ( k == 1 )  READ ( 13 )  tmp_3d
     906                   rad_lw_hr_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
     907                           tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     908
    869909                CASE ( 'rad_sw_in' )
    870910                   IF ( .NOT. ALLOCATED( rad_sw_in ) )  THEN
     
    898938                   rad_sw_out_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
    899939                             tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     940
     941                CASE ( 'rad_sw_cs_hr' )
     942                   IF ( .NOT. ALLOCATED( rad_sw_cs_hr ) )  THEN
     943                      ALLOCATE( rad_sw_cs_hr(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     944                   ENDIF
     945                   IF ( k == 1 )  READ ( 13 )  tmp_3d
     946                   rad_sw_cs_hr(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
     947                           tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     948
     949                CASE ( 'rad_sw_cs_hr_av' )
     950                   IF ( .NOT. ALLOCATED( rad_sw_out_av ) )  THEN
     951                      ALLOCATE( rad_sw_cs_hr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     952                   ENDIF
     953                   IF ( k == 1 )  READ ( 13 )  tmp_3d
     954                   rad_sw_cs_hr_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
     955                           tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     956
     957                CASE ( 'rad_sw_hr' )
     958                   IF ( .NOT. ALLOCATED( rad_sw_hr ) )  THEN
     959                      ALLOCATE( rad_sw_hr(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     960                   ENDIF
     961                   IF ( k == 1 )  READ ( 13 )  tmp_3d
     962                   rad_sw_hr(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
     963                           tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     964
     965                CASE ( 'rad_sw_hr_av' )
     966                   IF ( .NOT. ALLOCATED( rad_sw_hr_av ) )  THEN
     967                      ALLOCATE( rad_sw_hr_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     968                   ENDIF
     969                   IF ( k == 1 )  READ ( 13 )  tmp_3d
     970                   rad_lw_hr_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
     971                           tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    900972
    901973                CASE ( 'random_iv' )  ! still unresolved issue
     
    914986                   rho_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
    915987                                tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    916 
    917                 CASE ( 'rif' )
    918                    IF ( k == 1 )  READ ( 13 )  tmp_2d
    919                    rif(nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp)  = &
    920                                          tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    921988
    922989                CASE ( 'rif_wall' )
  • palm/trunk/SOURCE/read_var_list.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Added output of most_method, constant_flux_layer, zeta_min, zeta_max. Removed
     22! output of prandtl_layer and rif_min, rif_max.
    2223!
    2324! Former revisions:
     
    179180        ONLY:  statistic_regions, hom, hom_sum, pr_palm, u_max, u_max_ijk,     &
    180181               v_max, v_max_ijk, w_max, w_max_ijk
     182
    181183
    182184    IMPLICIT NONE
     
    356358          CASE ( 'conserve_volume_flow_mode' )
    357359             READ ( 13 )  conserve_volume_flow_mode
     360          CASE ( 'constant_flux_layer' )
     361             READ ( 13 )  constant_flux_layer
    358362          CASE ( 'coupling_start_time' )
    359363             READ ( 13 )  coupling_start_time
     
    460464          CASE ( 'momentum_advec' )
    461465             READ ( 13 )  momentum_advec
     466          CASE ( 'most_method' )
     467             READ ( 13 )  most_method
    462468          CASE ( 'nc_const' )
    463469             READ ( 13 )  nc_const
     
    494500          CASE ( 'phi' )
    495501             READ ( 13 )  phi
    496           CASE ( 'prandtl_layer' )
    497              READ ( 13 )  prandtl_layer
    498502          CASE ( 'prandtl_number' )
    499503             READ ( 13 )  prandtl_number
     
    552556          CASE ( 'residual_limit' )
    553557             READ ( 13 )  residual_limit
    554           CASE ( 'rif_max' )
    555              READ ( 13 )  rif_max
    556           CASE ( 'rif_min' )
    557              READ ( 13 )  rif_min
    558558          CASE ( 'roughness_length' )
    559559             READ ( 13 )  roughness_length
     
    714714          CASE ( 'w_max_ijk' )
    715715             READ ( 13 )  w_max_ijk
     716          CASE ( 'zeta_max' )
     717             READ ( 13 )  zeta_max
     718          CASE ( 'zeta_min' )
     719             READ ( 13 )  zeta_min
    716720          CASE ( 'z0h_factor' )
    717721             READ ( 13 )  z0h_factor
  • palm/trunk/SOURCE/sum_up_3d_data.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added output of Obukhov length and radiative heating rates for RRTMG.
     22! Corrected output of LWC.
    2223!
    2324! Former revisions:
     
    8485
    8586    USE arrays_3d,                                                             &
    86         ONLY:  dzw, e, nr, p, pt, q, qc, ql, ql_c, ql_v, qr, qsws, rho, sa,    &
     87        ONLY:  dzw, e, nr, ol, p, pt, q, qc, ql, ql_c, ql_v, qr, qsws, rho, sa,&
    8788               shf, ts, u, us, v, vpt, w, z0, z0h
    8889
    8990    USE averaging,                                                             &
    90         ONLY:  e_av, lpt_av, lwp_av, nr_av, p_av, pc_av, pr_av, prr_av,        &
     91        ONLY:  e_av, lpt_av, lwp_av, nr_av, ol_av, p_av, pc_av, pr_av, prr_av, &
    9192               precipitation_rate_av, pt_av, q_av, qc_av, ql_av, ql_c_av,      &
    9293               ql_v_av, ql_vp_av, qr_av, qsws_av, qv_av, rho_av, s_av, sa_av,  &
     
    9798
    9899    USE control_parameters,                                                    &
    99         ONLY:  average_count_3d, cloud_physics, doav, doav_n
     100        ONLY:  average_count_3d, cloud_physics, doav, doav_n, rho_surface
    100101
    101102    USE cpulog,                                                                &
     
    120121    USE radiation_model_mod,                                                   &
    121122        ONLY:  rad_net, rad_net_av, rad_sw_in, rad_sw_in_av, rad_sw_out,       &
    122                rad_sw_out_av, rad_lw_in, rad_lw_in_av, rad_lw_out,             &
    123                rad_lw_out_av
     123               rad_sw_out_av, rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr,        &
     124               rad_sw_hr_av, rad_lw_in, rad_lw_in_av, rad_lw_out,              &
     125               rad_lw_out_av, rad_lw_cs_hr, rad_lw_cs_hr_av, rad_lw_hr,        &
     126               rad_lw_hr_av
     127
    124128
    125129    IMPLICIT NONE
     
    215219                nr_av = 0.0_wp
    216220
     221             CASE ( 'ol*' )
     222                IF ( .NOT. ALLOCATED( ol_av ) )  THEN
     223                   ALLOCATE( ol_av(nysg:nyng,nxlg:nxrg) )
     224                ENDIF
     225                ol_av = 0.0_wp
     226
    217227             CASE ( 'p' )
    218228                IF ( .NOT. ALLOCATED( p_av ) )  THEN
     
    347357                rad_lw_out_av = 0.0_wp
    348358
     359             CASE ( 'rad_lw_cs_hr' )
     360                IF ( .NOT. ALLOCATED( rad_lw_cs_hr_av ) )  THEN
     361                   ALLOCATE( rad_lw_cs_hr_av(nzb+1:nzt+1,nysg:nyng,nxlg:nxrg) )
     362                ENDIF
     363                rad_lw_cs_hr_av = 0.0_wp
     364
     365             CASE ( 'rad_lw_hr' )
     366                IF ( .NOT. ALLOCATED( rad_lw_hr_av ) )  THEN
     367                   ALLOCATE( rad_lw_hr_av(nzb+1:nzt+1,nysg:nyng,nxlg:nxrg) )
     368                ENDIF
     369                rad_lw_hr_av = 0.0_wp
     370
    349371             CASE ( 'rad_sw_in' )
    350372                IF ( .NOT. ALLOCATED( rad_sw_in_av ) )  THEN
     
    359381                rad_sw_out_av = 0.0_wp
    360382
     383             CASE ( 'rad_sw_cs_hr' )
     384                IF ( .NOT. ALLOCATED( rad_sw_cs_hr_av ) )  THEN
     385                   ALLOCATE( rad_sw_cs_hr_av(nzb+1:nzt+1,nysg:nyng,nxlg:nxrg) )
     386                ENDIF
     387                rad_sw_cs_hr_av = 0.0_wp
     388
     389             CASE ( 'rad_sw_hr' )
     390                IF ( .NOT. ALLOCATED( rad_sw_hr_av ) )  THEN
     391                   ALLOCATE( rad_sw_hr_av(nzb+1:nzt+1,nysg:nyng,nxlg:nxrg) )
     392                ENDIF
     393                rad_sw_hr_av = 0.0_wp
     394
    361395             CASE ( 'rho' )
    362396                IF ( .NOT. ALLOCATED( rho_av ) )  THEN
     
    530564             DO  i = nxlg, nxrg
    531565                DO  j = nysg, nyng
    532                    lwp_av(j,i) = lwp_av(j,i) + SUM( ql(nzb:nzt,j,i) * &
    533                                                     dzw(1:nzt+1) )
     566                   lwp_av(j,i) = lwp_av(j,i) + SUM( ql(nzb:nzt,j,i)           &
     567                                               * dzw(1:nzt+1) ) * rho_surface
    534568                ENDDO
    535569             ENDDO
     
    557591                      nr_av(k,j,i) = nr_av(k,j,i) + nr(k,j,i)
    558592                   ENDDO
     593                ENDDO
     594             ENDDO
     595
     596          CASE ( 'ol*' )
     597             DO  i = nxlg, nxrg
     598                DO  j = nysg, nyng
     599                   ol_av(j,i) = ol_av(j,i) + ol(j,i)
    559600                ENDDO
    560601             ENDDO
     
    777818             ENDDO
    778819
     820          CASE ( 'rad_lw_cs_hr' )
     821             DO  i = nxlg, nxrg
     822                DO  j = nysg, nyng
     823                   DO  k = nzb, nzt+1
     824                      rad_lw_cs_hr_av(k,j,i) = rad_lw_cs_hr_av(k,j,i) + rad_lw_cs_hr(k,j,i)
     825                   ENDDO
     826                ENDDO
     827             ENDDO
     828
     829          CASE ( 'rad_lw_hr' )
     830             DO  i = nxlg, nxrg
     831                DO  j = nysg, nyng
     832                   DO  k = nzb, nzt+1
     833                      rad_lw_hr_av(k,j,i) = rad_lw_hr_av(k,j,i) + rad_lw_hr(k,j,i)
     834                   ENDDO
     835                ENDDO
     836             ENDDO
    779837
    780838          CASE ( 'rad_sw_in' )
     
    792850                   DO  k = nzb, nzt+1
    793851                      rad_sw_out_av(k,j,i) = rad_sw_out_av(k,j,i) + rad_sw_out(k,j,i)
     852                   ENDDO
     853                ENDDO
     854             ENDDO
     855
     856          CASE ( 'rad_sw_cs_hr' )
     857             DO  i = nxlg, nxrg
     858                DO  j = nysg, nyng
     859                   DO  k = nzb, nzt+1
     860                      rad_sw_cs_hr_av(k,j,i) = rad_sw_cs_hr_av(k,j,i) + rad_sw_cs_hr(k,j,i)
     861                   ENDDO
     862                ENDDO
     863             ENDDO
     864
     865          CASE ( 'rad_sw_hr' )
     866             DO  i = nxlg, nxrg
     867                DO  j = nysg, nyng
     868                   DO  k = nzb, nzt+1
     869                      rad_sw_hr_av(k,j,i) = rad_sw_hr_av(k,j,i) + rad_sw_hr(k,j,i)
    794870                   ENDDO
    795871                ENDDO
  • palm/trunk/SOURCE/time_integration.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Added option for spin-ups without land surface and radiation models. Moved calls
     22! for radiation and lan surface schemes.
    2223!
    2324! Former revisions:
     
    170171               averaging_interval_sp, bc_lr_cyc, bc_ns_cyc, bc_pt_t_val,       &
    171172               bc_q_t_val, call_psolver_at_all_substeps, cloud_droplets,       &
    172                cloud_physics, constant_heatflux, create_disturbances, dopr_n,  &
    173                constant_diffusion, coupling_mode, coupling_start_time,        &
    174                current_timestep_number, disturbance_created,                   &
    175                disturbance_energy_limit, dist_range, do_sum, dt_3d,            &
    176                dt_averaging_input, dt_averaging_input_pr, dt_coupling,         &
    177                dt_data_output_av, dt_disturb, dt_do2d_xy, dt_do2d_xz,          &
    178                dt_do2d_yz, dt_do3d, dt_domask,dt_dopts, dt_dopr,               &
     173               cloud_physics, constant_flux_layer, constant_heatflux,          &
     174               create_disturbances, dopr_n, constant_diffusion, coupling_mode, &
     175               coupling_start_time, current_timestep_number,                   &
     176               disturbance_created, disturbance_energy_limit, dist_range,      &
     177               do_sum, dt_3d, dt_averaging_input, dt_averaging_input_pr,       &
     178               dt_coupling, dt_data_output_av, dt_disturb, dt_do2d_xy,         &
     179               dt_do2d_xz, dt_do2d_yz, dt_do3d, dt_domask,dt_dopts, dt_dopr,   &
    179180               dt_dopr_listing, dt_dosp, dt_dots, dt_dvrp, dt_run_control,     &
    180181               end_time, first_call_lpm, galilei_transformation, humidity,     &
     
    183184               loop_optimization, lsf_surf, lsf_vert, masks, mid,              &
    184185               netcdf_data_format, neutral, nr_timesteps_this_run, nudging,    &
    185                ocean, on_device, passive_scalar, prandtl_layer, precipitation, &
     186               ocean, on_device, passive_scalar, precipitation,                &
    186187               prho_reference, pt_reference, pt_slope_offset, random_heatflux, &
    187188               run_coupled, simulated_time, simulated_time_chr,                &
     
    213214
    214215    USE land_surface_model_mod,                                                &
    215         ONLY:  land_surface, lsm_energy_balance, lsm_soil_model
     216        ONLY:  land_surface, lsm_energy_balance, lsm_soil_model,               &
     217               skip_time_do_lsm
    216218
    217219    USE ls_forcing_mod,                                                        &
     
    238240
    239241    USE radiation_model_mod,                                                   &
    240         ONLY: dt_radiation, radiation, radiation_clearsky,                     &
    241               radiation_rrtmg, radiation_scheme, time_radiation
     242        ONLY: dt_radiation, force_radiation_call, radiation,                   &
     243              radiation_clearsky, radiation_rrtmg, radiation_scheme,           &
     244              skip_time_do_radiation, time_radiation
    242245
    243246    USE statistics,                                                            &
    244247        ONLY:  flow_statistics_called, hom, pr_palm, sums_ls_l
     248
     249    USE surface_layer_fluxes_mod,                                              &
     250        ONLY:  surface_layer_fluxes
    245251
    246252    USE user_actions_mod,                                                      &
     
    374380          ENDIF
    375381
    376           IF ( radiation .AND. intermediate_timestep_count                     &
    377                == intermediate_timestep_count_max  )  THEN
    378 
    379                time_radiation = time_radiation + dt_3d
    380 
    381              IF ( time_radiation >= dt_radiation )  THEN
    382 
    383                 CALL cpu_log( log_point(50), 'radiation', 'start' )
    384 
    385                 time_radiation = time_radiation - dt_radiation
    386                 IF ( radiation_scheme == 'clear-sky' )  THEN
    387                    CALL radiation_clearsky
    388                 ELSEIF ( radiation_scheme == 'rrtmg' )  THEN
    389                    CALL radiation_rrtmg
    390                 ENDIF
    391 
    392                 CALL cpu_log( log_point(50), 'radiation', 'stop' )
    393              ENDIF
    394           ENDIF
    395382!
    396383!--       Solve the prognostic equations. A fast cache optimized version with
     
    631618!--       velocities at the outflow in case of a non-cyclic lateral wall)
    632619          CALL boundary_conds
    633 
    634 !
    635 !--       When using the land surface model:
    636 !--       1) solve energy balance equation to calculate new skin temperature
    637 !--       2) run soil model
    638           IF ( land_surface )  THEN
    639 
    640              CALL cpu_log( log_point(54), 'land_surface', 'start' )
    641 
    642              CALL lsm_energy_balance
    643              CALL lsm_soil_model
    644 
    645              CALL cpu_log( log_point(54), 'land_surface', 'stop' )
    646 
    647           ENDIF
    648620
    649621!
     
    731703
    732704!
    733 !--          First the vertical fluxes in the Prandtl layer are being computed
    734              IF ( prandtl_layer )  THEN
    735                 CALL cpu_log( log_point(19), 'prandtl_fluxes', 'start' )
    736                 CALL prandtl_fluxes
    737                 CALL cpu_log( log_point(19), 'prandtl_fluxes', 'stop' )
    738              ENDIF
    739 
     705!--          First the vertical fluxes in the surface (constant flux) layer are computed
     706             IF ( constant_flux_layer )  THEN
     707                CALL cpu_log( log_point(19), 'surface_layer_fluxes', 'start' )
     708                CALL surface_layer_fluxes
     709                CALL cpu_log( log_point(19), 'surface_layer_fluxes', 'stop' )
     710             ENDIF
     711
     712!
     713!--          If required, solve the energy balance for the surface and run soil
     714!--          model
     715             IF ( land_surface .AND. simulated_time > skip_time_do_lsm)  THEN
     716
     717                CALL cpu_log( log_point(54), 'land_surface', 'start' )
     718                CALL lsm_energy_balance
     719                CALL lsm_soil_model
     720                CALL cpu_log( log_point(54), 'land_surface', 'stop' )
     721             ENDIF
    740722!
    741723!--          Compute the diffusion coefficients
     
    752734             CALL cpu_log( log_point(17), 'diffusivities', 'stop' )
    753735
     736          ENDIF
     737
     738!
     739!--       If required, calculate radiative fluxes and heating rates
     740          IF ( radiation .AND. intermediate_timestep_count                     &
     741               == intermediate_timestep_count_max .AND. simulated_time >    &
     742               skip_time_do_radiation )  THEN
     743
     744               time_radiation = time_radiation + dt_3d
     745
     746             IF ( time_radiation >= dt_radiation .OR. force_radiation_call )   &
     747             THEN
     748
     749                CALL cpu_log( log_point(50), 'radiation', 'start' )
     750
     751                IF ( .NOT. force_radiation_call )  THEN
     752                   time_radiation = time_radiation - dt_radiation
     753                ELSE
     754                   WRITE(9,*) "Unscheduled radiation call at ", simulated_time
     755                   CALL LOCAL_FLUSH ( 9 )
     756                ENDIF
     757
     758                IF ( radiation_scheme == 'clear-sky' )  THEN
     759                   CALL radiation_clearsky
     760                ELSEIF ( radiation_scheme == 'rrtmg' )  THEN
     761                   CALL radiation_rrtmg
     762                ENDIF
     763
     764                CALL cpu_log( log_point(50), 'radiation', 'stop' )
     765             ENDIF
    754766          ENDIF
    755767
  • palm/trunk/SOURCE/wall_fluxes.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Renamed rif_min and rif_max with zeta_min and zeta_max, respectively.
    2222!
    2323! Former revisions:
     
    6969!> it gives slightly different results from the ij-version for some unknown
    7070!> reason.
     71!>
     72!> @todo Rename rif to zeta throughout the routine
    7173!------------------------------------------------------------------------------!
    7274 MODULE wall_fluxes_mod
     
    107109       
    108110       USE control_parameters,                                                 &
    109            ONLY:  g, kappa, rif_max, rif_min
     111           ONLY:  g, kappa, zeta_max, zeta_min
    110112       
    111113       USE grid_variables,                                                     &
     
    234236!--                shear stresses and very small momentum fluxes (both are
    235237!--                generally unrealistic).
    236                    IF ( rifs < rif_min )  rifs = rif_min
    237                    IF ( rifs > rif_max )  rifs = rif_max
     238                   IF ( rifs < zeta_min )  rifs = zeta_min
     239                   IF ( rifs > zeta_max )  rifs = zeta_max
    238240
    239241!
     
    291293       
    292294       USE control_parameters,                                                 &
    293            ONLY:  g, kappa, rif_max, rif_min
     295           ONLY:  g, kappa, zeta_max, zeta_min
    294296       
    295297       USE grid_variables,                                                     &
     
    428430!--                shear stresses and very small momentum fluxes (both are
    429431!--                generally unrealistic).
    430                    IF ( rifs < rif_min )  rifs = rif_min
    431                    IF ( rifs > rif_max )  rifs = rif_max
     432                   IF ( rifs < zeta_min )  rifs = zeta_min
     433                   IF ( rifs > zeta_max )  rifs = zeta_max
    432434
    433435!
     
    485487       
    486488       USE control_parameters,                                                 &
    487            ONLY:  g, kappa, rif_max, rif_min
     489           ONLY:  g, kappa, zeta_max, zeta_min
    488490       
    489491       USE grid_variables,                                                     &
     
    596598!--       consequence would result in very large shear stresses and very
    597599!--       small momentum fluxes (both are generally unrealistic).
    598           IF ( rifs < rif_min )  rifs = rif_min
    599           IF ( rifs > rif_max )  rifs = rif_max
     600          IF ( rifs < zeta_min )  rifs = zeta_min
     601          IF ( rifs > zeta_max )  rifs = zeta_max
    600602
    601603!
  • palm/trunk/SOURCE/write_3d_binary.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added output of radiative heating rates for RRTMG. Added output of ol. Removed
     22! output of rif.
    2223!
    2324! Former revisions:
     
    7980
    8081    USE arrays_3d,                                                             &
    81         ONLY:  e, kh, km, p, pt, q, ql, qc, nr, nrs, nrsws, nrswst, qr, qrs,   &
    82                qrsws, qrswst, qs, qsws, qswst, sa, saswsb, saswst, rif,        &
     82        ONLY:  e, kh, km, ol, p, pt, q, ql, qc, nr, nrs, nrsws, nrswst, qr,    &
     83               qrs, qrsws, qrswst, qs, qsws, qswst, sa, saswsb, saswst,        &
    8384               rif_wall, shf, ts, tswst, u, u_m_l, u_m_n, u_m_r, u_m_s, us,    &
    8485               usws, uswst, v, v_m_l, v_m_n, v_m_r, v_m_s, vpt, vsws, vswst,   &
     
    110111    USE radiation_model_mod,                                                   &
    111112        ONLY: radiation, rad_net, rad_net_av, rad_lw_in, rad_lw_in_av,         &
    112               rad_lw_out, rad_lw_out_av, rad_sw_in, rad_sw_in_av, rad_sw_out,  &
    113               rad_sw_out_av
     113              rad_lw_out, rad_lw_out_av, rad_lw_cs_hr, rad_lw_cs_hr_av,        &
     114              rad_lw_hr, rad_lw_hr_av, rad_sw_in, rad_sw_in_av, rad_sw_out,    &
     115              rad_sw_out_av, rad_sw_cs_hr, rad_sw_cs_hr_av, rad_sw_hr,         &
     116              rad_sw_hr_av
    114117
    115118    USE random_function_mod,                                                   &
     
    190193       ENDIF
    191194    ENDIF
     195    WRITE ( 14 )  'ol                  ';  WRITE ( 14 )  ol
    192196    WRITE ( 14 )  'p                   ';  WRITE ( 14 )  p
    193197    IF ( ALLOCATED( p_av ) )  THEN
     
    290294          WRITE ( 14 )  'rad_lw_out_av       ';  WRITE ( 14 )  rad_lw_out_av 
    291295       ENDIF
     296       IF ( ALLOCATED( rad_lw_cs_hr ) )  THEN
     297          WRITE ( 14 )  'rad_lw_cs_hr        ';  WRITE ( 14 )  rad_lw_cs_hr
     298       ENDIF
     299       IF ( ALLOCATED( rad_lw_cs_hr_av ) )  THEN
     300          WRITE ( 14 )  'rad_lw_cs_hr_av     ';  WRITE ( 14 )  rad_lw_cs_hr_av
     301       ENDIF
     302       IF ( ALLOCATED( rad_lw_hr ) )  THEN
     303          WRITE ( 14 )  'rad_lw_hr           ';  WRITE ( 14 )  rad_lw_hr
     304       ENDIF
     305       IF ( ALLOCATED( rad_lw_hr_av ) )  THEN
     306          WRITE ( 14 )  'rad_lw_hr_av        ';  WRITE ( 14 )  rad_lw_hr_av
     307       ENDIF
    292308       IF ( ALLOCATED( rad_sw_in ) )  THEN
    293309          WRITE ( 14 )  'rad_sw_in           ';  WRITE ( 14 )  rad_sw_in 
     
    302318          WRITE ( 14 )  'rad_sw_out_av       ';  WRITE ( 14 )  rad_sw_out_av 
    303319       ENDIF
     320       IF ( ALLOCATED( rad_sw_cs_hr ) )  THEN
     321          WRITE ( 14 )  'rad_sw_cs_hr        ';  WRITE ( 14 )  rad_sw_cs_hr
     322       ENDIF
     323       IF ( ALLOCATED( rad_sw_cs_hr_av ) )  THEN
     324          WRITE ( 14 )  'rad_sw_cs_hr_av     ';  WRITE ( 14 )  rad_sw_cs_hr_av
     325       ENDIF
     326       IF ( ALLOCATED( rad_sw_hr ) )  THEN
     327          WRITE ( 14 )  'rad_sw_hr           ';  WRITE ( 14 )  rad_sw_hr
     328       ENDIF
     329       IF ( ALLOCATED( rad_sw_hr_av ) )  THEN
     330          WRITE ( 14 )  'rad_sw_hr_av        ';  WRITE ( 14 )  rad_sw_hr_av
     331       ENDIF
    304332    ENDIF
    305333    IF ( ocean )  THEN
     
    338366                                           WRITE ( 14 )  seq_random_array
    339367    ENDIF
    340     WRITE ( 14 )  'rif                 ';  WRITE ( 14 )  rif
    341368    IF ( topography /= 'flat' )  THEN
    342369       WRITE ( 14 )  'rif_wall            ';  WRITE ( 14 )  rif_wall
  • palm/trunk/SOURCE/write_var_list.f90

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added output of most_method, constant_flux_layer, zeta_min, zeta_max. Removed
     22! output of prandtl_layer and rif_min, rif_max.
    2223!
    2324! Former revisions:
     
    161162        ONLY:  statistic_regions, hom, hom_sum, u_max, u_max_ijk, v_max,       &
    162163               v_max_ijk, w_max, w_max_ijk
     164
    163165   
    164166    IMPLICIT NONE
     
    167169
    168170
    169     binary_version = '3.9b'
     171    binary_version = '4.0'
    170172
    171173    WRITE ( 14 )  binary_version
     
    273275    WRITE ( 14 )  conserve_volume_flow_mode
    274276    WRITE ( 14 )  'coupling_start_time           '
     277    WRITE ( 14 )  'constant_flux_layer           '
     278    WRITE ( 14 )  constant_flux_layer
    275279    WRITE ( 14 )  coupling_start_time
    276280    WRITE ( 14 )  'current_timestep_number       '
     
    374378    WRITE ( 14 )  'momentum_advec                '
    375379    WRITE ( 14 )  momentum_advec
     380    WRITE ( 14 )  'most_method                   '
     381    WRITE ( 14 )  most_method
    376382    WRITE ( 14 )  'nc_const                      '
    377383    WRITE ( 14 )  nc_const
     
    406412    WRITE ( 14 )  'phi                           '
    407413    WRITE ( 14 )  phi
    408     WRITE ( 14 )  'prandtl_layer                 '
    409     WRITE ( 14 )  prandtl_layer
    410414    WRITE ( 14 )  'prandtl_number                '
    411415    WRITE ( 14 )  prandtl_number
     
    462466    WRITE ( 14 )  'residual_limit                '
    463467    WRITE ( 14 )  residual_limit
    464     WRITE ( 14 )  'rif_max                       '
    465     WRITE ( 14 )  rif_max
    466     WRITE ( 14 )  'rif_min                       '
    467     WRITE ( 14 )  rif_min
    468468    WRITE ( 14 )  'roughness_length              '
    469469    WRITE ( 14 )  roughness_length
     
    624624    WRITE ( 14 )  'w_max_ijk                     '
    625625    WRITE ( 14 )  w_max_ijk
     626    WRITE ( 14 )  'zeta_max                      '
     627    WRITE ( 14 )  zeta_max
     628    WRITE ( 14 )  'zeta_min                      '
     629    WRITE ( 14 )  zeta_min
    626630    WRITE ( 14 )  'z0h_factor                    '
    627631    WRITE ( 14 )  z0h_factor
Note: See TracChangeset for help on using the changeset viewer.