Ignore:
Timestamp:
Dec 10, 2019 3:46:36 PM (23 months ago)
Author:
motisi
Message:

Renamed wall_flags_0 to wall_flags_static_0

File:
1 edited

Legend:

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

    r4289 r4329  
    2525! -----------------
    2626! $Id$
     27! Renamed wall_flags_0 to wall_flags_static_0
     28!
     29! 4289 2019-11-05 14:33:41Z knoop
    2730! Removed parameters precipitation and precipitation_amount_interval from namelist
    2831!
     
    141144               nbgp, nxl, nxlg, nxr, nxrg, nys, nysg, nyn, nyng, nzb, nzt,     &
    142145               topo_top_ind,                                                   &
    143                wall_flags_0
     146               wall_flags_static_0
    144147
    145148    USE kinds
     
    13961399                                             )                                 &
    13971400                                    * MERGE( 1.0_wp, 0.0_wp,                   &
    1398                                              BTEST( wall_flags_0(k,j,i), 0 )   &
     1401                                             BTEST( wall_flags_static_0(k,j,i), 0 )   &
    13991402                                          )
    14001403                   IF ( qc_p(k,j,i) < 0.0_wp )  qc_p(k,j,i) = 0.0_wp
     
    14861489                                             )                                 &
    14871490                                   * MERGE( 1.0_wp, 0.0_wp,                    &
    1488                                              BTEST( wall_flags_0(k,j,i), 0 )   &
     1491                                             BTEST( wall_flags_static_0(k,j,i), 0 )   &
    14891492                                          )
    14901493                   IF ( nc_p(k,j,i) < 0.0_wp )  nc_p(k,j,i) = 0.0_wp
     
    15831586                                             )                                 &
    15841587                                    * MERGE( 1.0_wp, 0.0_wp,                   &
    1585                                              BTEST( wall_flags_0(k,j,i), 0 )   &
     1588                                             BTEST( wall_flags_static_0(k,j,i), 0 )   &
    15861589                                          )
    15871590                   IF ( qr_p(k,j,i) < 0.0_wp )  qr_p(k,j,i) = 0.0_wp
     
    16731676                                             )                                 &
    16741677                                   * MERGE( 1.0_wp, 0.0_wp,                    &
    1675                                              BTEST( wall_flags_0(k,j,i), 0 )   &
     1678                                             BTEST( wall_flags_static_0(k,j,i), 0 )   &
    16761679                                          )
    16771680                   IF ( nr_p(k,j,i) < 0.0_wp )  nr_p(k,j,i) = 0.0_wp
     
    17701773                                       )                                 &
    17711774                                 * MERGE( 1.0_wp, 0.0_wp,                &
    1772                                           BTEST( wall_flags_0(k,j,i), 0 )&
     1775                                          BTEST( wall_flags_static_0(k,j,i), 0 )&
    17731776                                        )
    17741777             IF ( qc_p(k,j,i) < 0.0_wp )  qc_p(k,j,i) = 0.0_wp
     
    18291832                                       )                                 &
    18301833                                 * MERGE( 1.0_wp, 0.0_wp,                &
    1831                                           BTEST( wall_flags_0(k,j,i), 0 )&
     1834                                          BTEST( wall_flags_static_0(k,j,i), 0 )&
    18321835                                        )
    18331836             IF ( nc_p(k,j,i) < 0.0_wp )  nc_p(k,j,i) = 0.0_wp
     
    18941897                                       )                                 &
    18951898                                 * MERGE( 1.0_wp, 0.0_wp,                &
    1896                                           BTEST( wall_flags_0(k,j,i), 0 )&
     1899                                          BTEST( wall_flags_static_0(k,j,i), 0 )&
    18971900                                        )
    18981901             IF ( qr_p(k,j,i) < 0.0_wp )  qr_p(k,j,i) = 0.0_wp
     
    19531956                                       )                                 &
    19541957                                 * MERGE( 1.0_wp, 0.0_wp,                &
    1955                                           BTEST( wall_flags_0(k,j,i), 0 )&
     1958                                          BTEST( wall_flags_static_0(k,j,i), 0 )&
    19561959                                        )
    19571960             IF ( nr_p(k,j,i) < 0.0_wp )  nr_p(k,j,i) = 0.0_wp
     
    25012504                                     to_be_resorted(k,j,i),                    &
    25022505                                     REAL( fill_value, KIND = wp ),            &
    2503                                      BTEST( wall_flags_0(k,j,i), flag_nr )     &
     2506                                     BTEST( wall_flags_static_0(k,j,i), flag_nr )     &
    25042507                                  )
    25052508             ENDDO
     
    26432646                                     to_be_resorted(k,j,i),                    &
    26442647                                     REAL( fill_value, KIND = wp ),            &
    2645                                      BTEST( wall_flags_0(k,j,i), flag_nr )     &
     2648                                     BTEST( wall_flags_static_0(k,j,i), flag_nr )     &
    26462649                                  )
    26472650             ENDDO
     
    30433046!
    30443047!--             Predetermine flag to mask topography
    3045                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     3048                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    30463049
    30473050                IF ( qr(k,j,i) <= eps_sb )  THEN
     
    30973100!
    30983101!--       Predetermine flag to mask topography
    3099           flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     3102          flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    31003103
    31013104          IF ( qr(k,j,i) <= eps_sb )  THEN
     
    31653168!
    31663169!--             Predetermine flag to mask topography
    3167                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     3170                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    31683171
    31693172!
     
    32663269!
    32673270!--       Predetermine flag to mask topography
    3268           flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     3271          flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    32693272!
    32703273!--       Call calculation of supersaturation
     
    33663369!
    33673370!--             Predetermine flag to mask topography
    3368                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     3371                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    33693372!
    33703373!--             Call calculation of supersaturation
     
    34533456!
    34543457!--       Predetermine flag to mask topography
    3455           flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     3458          flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    34563459!
    34573460!--       Call calculation of supersaturation
     
    35423545!
    35433546!--             Predetermine flag to mask topography
    3544                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     3547                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    35453548
    35463549                IF ( microphysics_morrison ) THEN
     
    36683671!
    36693672!--       Predetermine flag to mask topography
    3670           flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     3673          flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    36713674          IF ( microphysics_morrison ) THEN
    36723675             nc_auto = nc(k,j,i)
     
    37793782!
    37803783!--             Predetermine flag to mask topography
    3781                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     3784                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    37823785
    37833786                IF ( qc(k,j,i) > ql_crit )  THEN
     
    38263829!
    38273830!--       Predetermine flag to mask topography
    3828           flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     3831          flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    38293832
    38303833          IF ( qc(k,j,i) > ql_crit )  THEN
     
    38773880!
    38783881!--             Predetermine flag to mask topography
    3879                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     3882                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    38803883
    38813884                IF ( microphysics_morrison ) THEN
     
    39583961!
    39593962!--       Predetermine flag to mask topography
    3960           flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     3963          flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    39613964          IF ( microphysics_morrison ) THEN
    39623965             nc_accr = nc(k,j,i)
     
    40384041!
    40394042!--             Predetermine flag to mask topography
    4040                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     4043                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    40414044
    40424045                IF ( qr(k,j,i) > eps_sb )  THEN
     
    40934096!
    40944097!--       Predetermine flag to mask topography
    4095           flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     4098          flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    40964099
    40974100          IF ( qr(k,j,i) > eps_sb )  THEN
     
    41554158!
    41564159!--             Predetermine flag to mask topography
    4157                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     4160                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    41584161
    41594162                IF ( qr(k,j,i) > eps_sb )  THEN
     
    42774280!
    42784281!--       Predetermine flag to mask topography
    4279           flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     4282          flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    42804283
    42814284          IF ( qr(k,j,i) > eps_sb )  THEN
     
    43914394!
    43924395!--             Predetermine flag to mask topography
    4393                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     4396                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    43944397
    43954398                IF ( microphysics_morrison ) THEN
     
    44854488!
    44864489!--       Predetermine flag to mask topography
    4487           flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     4490          flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    44884491          IF ( microphysics_morrison ) THEN
    44894492             nc_sedi = nc(k,j,i)
     
    45914594!
    45924595!--             Predetermine flag to mask topography
    4593                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     4596                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    45944597
    45954598                IF ( qr(k,j,i) > eps_sb )  THEN
     
    46564659!
    46574660!--             Predetermine flag to mask topography
    4658                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     4661                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    46594662
    46604663                c_nr(k) = 0.25_wp * ( w_nr(k-1) +                              &
     
    46724675!
    46734676!--                Predetermine flag to mask topography
    4674                    flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     4677                   flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    46754678
    46764679                   d_mean = 0.5_wp * ( qr(k+1,j,i) - qr(k-1,j,i) )
     
    47064709!
    47074710!--             Predetermine flag to mask topography
    4708                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     4711                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    47094712!
    47104713!--             Sum up all rain drop number densities which contribute to the flux
     
    48334836!
    48344837!--       Predetermine flag to mask topography
    4835           flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     4838          flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    48364839
    48374840          IF ( qr(k,j,i) > eps_sb )  THEN
     
    48934896!
    48944897!--       Predetermine flag to mask topography
    4895           flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     4898          flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    48964899
    48974900          c_nr(k) = 0.25_wp * ( w_nr(k-1) + 2.0_wp * w_nr(k) + w_nr(k+1) ) *   &
     
    49074910!
    49084911!--          Predetermine flag to mask topography
    4909              flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     4912             flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    49104913
    49114914             d_mean = 0.5_wp * ( qr(k+1,j,i) - qr(k-1,j,i) )
     
    49404943!
    49414944!--       Predetermine flag to mask topography
    4942           flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     4945          flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    49434946!
    49444947!--       Sum up all rain drop number densities which contribute to the flux
     
    51505153!
    51515154!--             Predetermine flag to mask topography
    5152                 flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_0(k,j,i), 0 ) )
     5155                flag = MERGE( 1.0_wp, 0.0_wp, BTEST( wall_flags_static_0(k,j,i), 0 ) )
    51535156
    51545157!
Note: See TracChangeset for help on using the changeset viewer.