Ignore:
Timestamp:
Jan 21, 2019 1:02:11 AM (5 years ago)
Author:
knoop
Message:

Some interface calls moved to module_interface + cleanup

File:
1 edited

Legend:

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

    r3684 r3685  
    2525! -----------------
    2626! $Id$
     27! Some interface calls moved to module_interface + cleanup
     28!
     29! 3684 2019-01-20 20:20:58Z knoop
    2730! Bugfix: made unit intend INOUT
    2831!
     
    5962       ONLY:  biometeorology,                                                  &
    6063              air_chemistry,                                                   &
     64              indoor_model,                                                    &
    6165              land_surface,                                                    &
    6266              large_scale_forcing,                                             &
     
    7074              urban_surface,                                                   &
    7175              virtual_flight,                                                  &
     76              virtual_measurement,                                             &
    7277              wind_turbine
    7378
     
    7883              bio_check_parameters,                                            &
    7984              bio_check_data_output,                                           &
     85              bio_init,                                                        &
    8086              bio_header,                                                      &
    8187              bio_3d_data_averaging,                                           &
     
    9399              bcm_check_data_output_pr,                                        &
    94100              bcm_check_data_output,                                           &
     101              bcm_init_arrays,                                                 &
     102              bcm_init,                                                        &
    95103              bcm_header,                                                      &
    96104              bcm_swap_timelevel,                                              &
     
    108116              chem_check_data_output_pr,                                       &
    109117              chem_check_data_output,                                          &
     118              chem_init_arrays,                                                &
     119              chem_init,                                                       &
    110120              chem_header,                                                     &
    111121              chem_swap_timelevel,                                             &
     
    120130       ONLY:  flight_parin,                                                    &
    121131              flight_header,                                                   &
     132              flight_init,                                                     &
    122133              flight_rrd_global,                                               &
    123134              flight_wrd_global
     
    129140              gust_check_data_output_pr,                                       &
    130141              gust_check_data_output,                                          &
     142              gust_init_arrays,                                                &
     143              gust_init,                                                       &
    131144              gust_header,                                                     &
    132145              gust_actions,                                                    &
     
    142155
    143156   USE indoor_model_mod,                                                       &
    144        ONLY:  im_parin
     157       ONLY:  im_parin,                                                        &
     158              im_init
    145159
    146160   USE land_surface_model_mod,                                                 &
     
    149163              lsm_check_data_output_pr,                                        &
    150164              lsm_check_data_output,                                           &
     165              lsm_init_arrays,                                                 &
     166              lsm_init,                                                        &
    151167              lsm_header,                                                      &
    152168              lsm_swap_timelevel,                                              &
     
    159175       ONLY:  lsf_nudging_check_parameters,                                    &
    160176              lsf_nudging_check_data_output_pr,                                &
     177              lsf_init,                                                        &
     178              nudge_init,                                                      &
    161179              lsf_nudging_header
    162180
     
    174192              ocean_check_data_output_pr,                                      &
    175193              ocean_check_data_output,                                         &
     194              ocean_init_arrays,                                               &
     195              ocean_init,                                                      &
    176196              ocean_header,                                                    &
    177197              ocean_swap_timelevel,                                            &
     
    188208              pcm_check_parameters,                                            &
    189209              pcm_check_data_output,                                           &
     210              pcm_init,                                                        &
    190211              pcm_header,                                                      &
    191212              pcm_data_output_3d
     
    197218              radiation_check_data_output_pr,                                  &
    198219              radiation_check_data_output,                                     &
     220              radiation_init,                                                  &
    199221              radiation_header,                                                &
    200222              radiation_3d_data_averaging,                                     &
     
    208230              salsa_check_parameters,                                          &
    209231              salsa_check_data_output,                                         &
     232              salsa_init_arrays,                                               &
     233              salsa_init,                                                      &
    210234              salsa_header,                                                    &
    211235              salsa_swap_timelevel,                                            &
     
    237261              usm_check_parameters,                                            &
    238262              usm_check_data_output,                                           &
     263              usm_init_arrays,                                                 &
     264              usm_init,                                                        &
    239265              usm_swap_timelevel,                                              &
    240266              usm_3d_data_averaging,                                           &
     
    254280
    255281   USE virtual_measurement_mod,                                                &
    256        ONLY:  vm_parin
     282       ONLY:  vm_parin,                                                        &
     283              vm_init
    257284
    258285   USE wind_turbine_model_mod,                                                 &
    259286       ONLY:  wtm_parin,                                                       &
    260287              wtm_check_parameters,                                            &
     288              wtm_init_arrays,                                                 &
     289              wtm_init,                                                        &
    261290              wtm_rrd_global,                                                  &
    262291              wtm_wrd_global
     
    584613
    585614
     615   IF ( bulk_cloud_model    )  CALL bcm_init_arrays
     616   IF ( air_chemistry       )  CALL chem_init_arrays
     617   IF ( gust_module_enabled )  CALL gust_init_arrays
     618   IF ( land_surface        )  CALL lsm_init_arrays
     619   IF ( ocean_mode          )  CALL ocean_init_arrays
     620   IF ( salsa               )  CALL salsa_init_arrays
     621   IF ( urban_surface       )  CALL usm_init_arrays
     622   IF ( wind_turbine        )  CALL wtm_init_arrays
     623
     624
    586625END SUBROUTINE module_interface_init_arrays
    587626
     
    593632!------------------------------------------------------------------------------!
    594633SUBROUTINE module_interface_init
     634
     635
     636   IF ( biometeorology      )  CALL bio_init
     637   IF ( bulk_cloud_model    )  CALL bcm_init
     638   IF ( air_chemistry       )  CALL chem_init
     639   IF ( virtual_flight      )  CALL flight_init
     640   IF ( gust_module_enabled )  CALL gust_init
     641   IF ( indoor_model        )  CALL im_init
     642   IF ( large_scale_forcing )  CALL lsf_init
     643   IF ( land_surface        )  CALL lsm_init
     644   IF ( nudging             )  CALL nudge_init
     645   IF ( ocean_mode          )  CALL ocean_init
     646   IF ( plant_canopy        )  CALL pcm_init
     647   IF ( salsa               )  CALL salsa_init
     648   IF ( urban_surface       )  CALL usm_init
     649   IF ( virtual_measurement )  CALL vm_init
     650   IF ( wind_turbine        )  CALL wtm_init
     651   IF ( radiation           )  CALL radiation_init
    595652
    596653
Note: See TracChangeset for help on using the changeset viewer.