Changeset 4413 for palm/trunk/SOURCE


Ignore:
Timestamp:
Feb 19, 2020 3:52:19 PM (4 years ago)
Author:
hellstea
Message:

All the USE-statements within subroutines moved to the module declaration section

File:
1 edited

Legend:

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

    r4385 r4413  
    2525! -----------------
    2626! $Id$
     27! All the USE-statements within subroutines moved up to the module declaration section.
     28!
     29! 4385 2020-01-27 08:37:37Z hellstea
    2730! Error messages PA0425 and PA0426 made more specific
    2831!
     
    187190               pt, pt_2, q, q_2, qc, qc_2, qr, qr_2, s, s_2,                   &
    188191               u, u_p, u_2, v, v_p, v_2, w, w_p, w_2, zu, zw
    189 
     192   
     193    USE chem_gasphase_mod,                                                     &
     194        ONLY:  nspec
     195
     196    USE chem_modules,                                                          &
     197        ONLY:  chem_species, ibc_cs_b, nesting_chem
     198
     199    USE chemistry_model_mod,                                                   &
     200        ONLY:  spec_conc_2
     201   
    190202    USE control_parameters,                                                    &
    191203        ONLY:  air_chemistry, bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r,  &
    192204               bc_dirichlet_s, child_domain,                                   &
    193205               constant_diffusion, constant_flux_layer,                        &
    194                coupling_char,                                                  &
     206               coupling_char, end_time,                                        &
    195207               debug_output_timestep,                                          &
    196                dt_3d, dz, humidity, message_string,                            &
    197                neutral, passive_scalar, rans_mode, rans_tke_e,                 &
    198                roughness_length, salsa, topography, volume_flow
    199 
    200     USE chem_gasphase_mod,                                                     &
    201         ONLY:  nspec
    202 
    203     USE chem_modules,                                                          &
    204         ONLY:  chem_species, nesting_chem
    205 
    206     USE chemistry_model_mod,                                                   &
    207         ONLY:  spec_conc_2
    208 
     208               dt_restart, dt_3d, dz, humidity,                                &
     209               ibc_pt_b, ibc_q_b, ibc_s_b, ibc_uv_b,                           &
     210               message_string, neutral, passive_scalar, rans_mode, rans_tke_e, &
     211               restart_time,                                                   &
     212               roughness_length, salsa, topography, volume_flow, time_restart
     213   
    209214    USE cpulog,                                                                &
    210215        ONLY:  cpu_log, log_point_s
     
    241246
    242247    USE pmc_general,                                                           &
    243         ONLY:  da_namelen
     248        ONLY:  da_namelen, pmc_max_array
    244249
    245250    USE pmc_handle_communicator,                                               &
     
    258263
    259264#endif
    260    
     265
    261266    USE salsa_mod,                                                             &
    262         ONLY:  aerosol_mass, aerosol_number, gconc_2, mconc_2, nbins_aerosol,  &
     267        ONLY:  aerosol_mass, aerosol_number, gconc_2, ibc_salsa_b,             &
     268               mconc_2, nbins_aerosol,                                         &
    263269               ncomponents_mass, nconc_2, nesting_salsa, ngases_salsa,         &
    264270               salsa_gas, salsa_gases_from_chem
    265271
    266272    USE surface_mod,                                                           &
    267         ONLY:  surf_def_h, surf_lsm_h, surf_usm_h
     273        ONLY:  bc_h, surf_def_h, surf_lsm_h, surf_usm_h
    268274
    269275    IMPLICIT NONE
     
    525531
    526532 SUBROUTINE pmci_init( world_comm )
    527 
    528     USE control_parameters,                                                                         &
    529         ONLY:  message_string
    530533
    531534    IMPLICIT NONE
     
    23032306               
    23042307#if defined( __parallel )
    2305     USE pmc_general,                                                           &
    2306         ONLY:  pmc_max_array
    2307 
    23082308    IMPLICIT NONE
    23092309!
     
    30563056
    30573057#if defined( __parallel )
    3058 
    3059     USE control_parameters,                                                                         &
    3060         ONLY:  dt_restart, end_time, message_string, restart_time, time_restart
    3061 
    30623058    IMPLICIT NONE
    30633059
     
    46924688
    46934689#if defined( __parallel )
    4694     USE chem_modules,                                                          &
    4695         ONLY:  ibc_cs_b
    4696 
    4697     USE control_parameters,                                                    &
    4698         ONLY:  ibc_pt_b, ibc_q_b, ibc_s_b, ibc_uv_b
    4699 
    4700     USE salsa_mod,                                                             &
    4701         ONLY:  ibc_salsa_b
    4702 
    4703     USE surface_mod,                                                           &
    4704         ONLY:  bc_h
    4705 
    47064690    IMPLICIT NONE
    47074691
Note: See TracChangeset for help on using the changeset viewer.