Ignore:
Timestamp:
Nov 27, 2018 5:03:40 PM (3 years ago)
Author:
kanani
Message:

Fix for biomet output (ticket:757), merge of uv_exposure into biometeorology_mod

File:
1 edited

Legend:

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

    r3545 r3569  
    2525! -----------------
    2626! $Id$
     27! Sort chemistry routine calls into list.
     28! dom_dwd_user, Schrempf:
     29! remove CALLs to uv exposure model, this is now part of biometeorology_mod
     30!
     31! 3545 2018-11-21 11:19:41Z gronemeier
    2732! Call tcm_check_parameters before other modules
    2833!
     
    823828    USE urban_surface_mod,                                                     &
    824829        ONLY:  usm_check_data_output, usm_check_parameters
    825 
    826     USE uv_exposure_model_mod,                                                 &
    827         ONLY:  uvem_check_data_output
    828830
    829831    USE wind_turbine_model_mod,                                                &
     
    15071509    ENDIF
    15081510
    1509 !   Check for chem_emission_mod parameters setting
    1510 !   IF ( air_chemistry ) CALL chem_emissions_check_parameters   ! forkel preliminary
    1511 
    1512 
    1513 !   Check for chemitry_model_mod parameters setting
    1514     IF ( air_chemistry )  CALL chem_check_parameters
    1515 
    1516 
    1517 !-- Check the module settings
     1511!
     1512!-- Check the module settings:
     1513!-- tcm_check_parameters must be called at first
    15181514    CALL tcm_check_parameters
     1515
    15191516    IF ( biometeorology )       CALL bio_check_parameters
    15201517    IF ( bulk_cloud_model )     CALL bcm_check_parameters
     1518    IF ( air_chemistry )        CALL chem_check_parameters
     1519!   IF ( air_chemistry )        CALL chem_emissions_check_parameters   ! forkel preliminary
    15211520    IF ( gust_module_enabled )  CALL gust_check_parameters
    15221521    IF ( large_scale_forcing  .OR.  nudging )                                  &
     
    15271526    IF ( radiation )            CALL radiation_check_parameters
    15281527    IF ( calculate_spectra )    CALL spectra_check_parameters
    1529     CALL stg_check_parameters
     1528                                CALL stg_check_parameters
    15301529    IF ( urban_surface )        CALL usm_check_parameters
    15311530    IF ( wind_turbine )         CALL wtm_check_parameters
     
    32203219
    32213220             IF ( unit == 'illegal'  .AND.  biometeorology )  THEN
    3222                 CALL bio_check_data_output( var, unit )
     3221                CALL bio_check_data_output( var, unit, i, ilen, k )
    32233222             ENDIF
    32243223
     
    32443243                 CALL usm_check_data_output( var, unit )
    32453244             ENDIF
    3246 
    3247              IF ( unit == 'illegal'  .AND.  uv_exposure                        &
    3248                                      .AND.  var(1:5) == 'uvem_' )  THEN
    3249                 CALL uvem_check_data_output( var, unit, i, ilen, k )
    3250              ENDIF
    3251 
    32523245!
    32533246!--          Finally, check for user-defined quantities
Note: See TracChangeset for help on using the changeset viewer.