Ignore:
Timestamp:
Sep 24, 2018 3:42:55 PM (3 years ago)
Author:
knoop
Message:

Modularization of all bulk cloud physics code components

File:
1 edited

Legend:

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

    r3241 r3274  
    2525! -----------------
    2626! $Id$
     27! Modularization of all bulk cloud physics code components
     28!
     29! 3241 2018-09-12 15:02:00Z raasch
    2730! unused variables removed
    2831!
     
    219222 MODULE advec_ws
    220223
    221  
     224    USE kinds
     225
     226    IMPLICIT NONE
     227
     228    REAL(wp) ::  adv_mom_1            !< 1/4 - constant used in 5th-order advection scheme for momentum advection (1st-order part)
     229    REAL(wp) ::  adv_mom_3            !< 1/24 - constant used in 5th-order advection scheme for momentum advection (3rd-order part)
     230    REAL(wp) ::  adv_mom_5            !< 1/120 - constant used in 5th-order advection scheme for momentum advection (5th-order part)
     231    REAL(wp) ::  adv_sca_1            !< 1/2 - constant used in 5th-order advection scheme for scalar advection (1st-order part)
     232    REAL(wp) ::  adv_sca_3            !< 1/12 - constant used in 5th-order advection scheme for scalar advection (3rd-order part)
     233    REAL(wp) ::  adv_sca_5            !< 1/60 - constant used in 5th-order advection scheme for scalar advection (5th-order part)
    222234
    223235    PRIVATE
     
    280292                  flux_s_v, flux_s_w
    281293
    282        USE constants,                                                          &
    283            ONLY:  adv_mom_1, adv_mom_3, adv_mom_5, adv_sca_1, adv_sca_3,       &
    284                   adv_sca_5
    285 
    286294       USE control_parameters,                                                 &
    287            ONLY:  cloud_physics, humidity, loop_optimization,                  &
    288                   passive_scalar, microphysics_morrison, microphysics_seifert, &
    289                   ocean, rans_tke_e, ws_scheme_mom, ws_scheme_sca
     295           ONLY:  humidity, loop_optimization, passive_scalar, ocean,          &
     296                  rans_tke_e, ws_scheme_mom, ws_scheme_sca
    290297
    291298       USE indices,                                                            &
     
    293300
    294301       USE kinds
    295        
     302
     303       USE bulk_cloud_model_mod,                                               &
     304           ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
     305
    296306       USE pegrid
    297307
     
    345355          ENDIF
    346356
    347           IF ( cloud_physics  .AND.  microphysics_morrison )  THEN
     357          IF ( bulk_cloud_model  .AND.  microphysics_morrison )  THEN
    348358             ALLOCATE( sums_wsqcs_ws_l(nzb:nzt+1,0:threads_per_task-1) )
    349359             ALLOCATE( sums_wsncs_ws_l(nzb:nzt+1,0:threads_per_task-1) )
     
    352362          ENDIF
    353363
    354           IF ( cloud_physics  .AND.  microphysics_seifert )  THEN
     364          IF ( bulk_cloud_model  .AND.  microphysics_seifert )  THEN
    355365             ALLOCATE( sums_wsqrs_ws_l(nzb:nzt+1,0:threads_per_task-1) )
    356366             ALLOCATE( sums_wsnrs_ws_l(nzb:nzt+1,0:threads_per_task-1) )
     
    422432             ENDIF
    423433
    424              IF ( cloud_physics  .AND.  microphysics_morrison )  THEN
     434             IF ( bulk_cloud_model  .AND.  microphysics_morrison )  THEN
    425435                ALLOCATE( flux_s_qc(nzb+1:nzt,0:threads_per_task-1),           &
    426436                          diss_s_qc(nzb+1:nzt,0:threads_per_task-1),           &
     
    433443             ENDIF                 
    434444
    435              IF ( cloud_physics  .AND.  microphysics_seifert )  THEN
     445             IF ( bulk_cloud_model  .AND.  microphysics_seifert )  THEN
    436446                ALLOCATE( flux_s_qr(nzb+1:nzt,0:threads_per_task-1),           &
    437447                          diss_s_qr(nzb+1:nzt,0:threads_per_task-1),           &
     
    10741084   
    10751085       USE control_parameters,                                                 &
    1076            ONLY:  cloud_physics, humidity, passive_scalar, ocean,              &
    1077                   microphysics_morrison, microphysics_seifert, ws_scheme_mom,  &
    1078                   ws_scheme_sca
     1086           ONLY:  humidity, passive_scalar, ocean, ws_scheme_mom, ws_scheme_sca
    10791087
    10801088       USE kinds
     1089
     1090       USE bulk_cloud_model_mod,                                               &
     1091           ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
    10811092
    10821093       USE statistics,                                                         &
     
    11041115          IF ( humidity       )  sums_wsqs_ws_l = 0.0_wp
    11051116          IF ( passive_scalar )  sums_wsss_ws_l = 0.0_wp
    1106           IF ( cloud_physics  .AND.  microphysics_morrison )  THEN
     1117          IF ( bulk_cloud_model  .AND.  microphysics_morrison )  THEN
    11071118             sums_wsqcs_ws_l = 0.0_wp
    11081119             sums_wsncs_ws_l = 0.0_wp
    11091120          ENDIF
    1110           IF ( cloud_physics  .AND.  microphysics_seifert )  THEN
     1121          IF ( bulk_cloud_model  .AND.  microphysics_seifert )  THEN
    11111122             sums_wsqrs_ws_l = 0.0_wp
    11121123             sums_wsnrs_ws_l = 0.0_wp
     
    11301141       USE arrays_3d,                                                          &
    11311142           ONLY:  ddzw, drho_air, tend, u, v, w, rho_air_zw
    1132 
    1133        USE constants,                                                          &
    1134            ONLY:  adv_sca_1, adv_sca_3, adv_sca_5
    11351143
    11361144       USE control_parameters,                                                 &
     
    17041712                  drho_air, rho_air_zw
    17051713
    1706        USE constants,                                                         &
    1707            ONLY:  adv_mom_1, adv_mom_3, adv_mom_5
    1708 
    17091714       USE control_parameters,                                                &
    17101715           ONLY:  intermediate_timestep_count, u_gtrans, v_gtrans
     
    22022207                  drho_air, rho_air_zw
    22032208
    2204        USE constants,                                                          &
    2205            ONLY:  adv_mom_1, adv_mom_3, adv_mom_5
    2206 
    22072209       USE control_parameters,                                                 &
    22082210           ONLY:  intermediate_timestep_count, u_gtrans, v_gtrans
     
    27072709                  drho_air_zw, rho_air
    27082710
    2709        USE constants,                                                         &
    2710            ONLY:  adv_mom_1, adv_mom_3, adv_mom_5
    2711 
    27122711       USE control_parameters,                                                &
    27132712           ONLY:  intermediate_timestep_count, u_gtrans, v_gtrans
     
    31843183       USE arrays_3d,                                                         &
    31853184           ONLY:  ddzw, drho_air, tend, u, v, w, rho_air_zw
    3186 
    3187        USE constants,                                                         &
    3188            ONLY:  adv_sca_1, adv_sca_3, adv_sca_5
    31893185
    31903186       USE control_parameters,                                                &
     
    37403736           ONLY:  ddzw, drho_air, tend, u, v, w, rho_air_zw
    37413737
    3742        USE constants,                                                          &
    3743            ONLY:  adv_mom_1, adv_mom_3, adv_mom_5
    3744 
    37453738       USE control_parameters,                                                 &
    37463739           ONLY:  intermediate_timestep_count, u_gtrans, v_gtrans
     
    42344227           ONLY:  ddzw, drho_air, tend, u, v, w, rho_air_zw
    42354228
    4236        USE constants,                                                          &
    4237            ONLY:  adv_mom_1, adv_mom_3, adv_mom_5
    4238 
    42394229       USE control_parameters,                                                 &
    42404230           ONLY:  intermediate_timestep_count, u_gtrans, v_gtrans
     
    47384728       USE arrays_3d,                                                          &
    47394729           ONLY:  ddzu, drho_air_zw, tend, u, v, w, rho_air
    4740 
    4741        USE constants,                                                          &
    4742            ONLY:  adv_mom_1, adv_mom_3, adv_mom_5
    47434730
    47444731       USE control_parameters,                                                 &
Note: See TracChangeset for help on using the changeset viewer.