Ignore:
Timestamp:
Oct 29, 2018 6:14:31 PM (6 years ago)
Author:
kanani
Message:

Implementation of human thermal indices (from branch biomet_p2 at r3444)

File:
1 edited

Legend:

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

    r3421 r3448  
    2525! -----------------
    2626! $Id$
     27! Adjustment of biometeorology calls
     28!
     29! 3421 2018-10-24 18:39:32Z gronemeier
    2730! Renamed output variables
    2831!
     
    236239        ONLY:  c_p, lv_d_cp, l_v
    237240
     241    USE biometeorology_mod,                                                    &
     242        ONLY:  biom_3d_data_averaging
     243
    238244    USE bulk_cloud_model_mod,                                                  &
    239245        ONLY:  bulk_cloud_model, bcm_3d_data_averaging
     
    243249
    244250    USE control_parameters,                                                    &
    245         ONLY:  air_chemistry, average_count_3d, doav, doav_n, land_surface,    &
    246                ocean_mode, rho_surface, urban_surface, uv_exposure,            &
    247                varnamelength
     251        ONLY:  air_chemistry, average_count_3d, biometeorology, doav, doav_n,  &
     252               land_surface, ocean_mode, rho_surface, urban_surface,           &
     253               uv_exposure, varnamelength
    248254
    249255    USE cpulog,                                                                &
     
    269275    USE radiation_model_mod,                                                   &
    270276        ONLY:  radiation, radiation_3d_data_averaging
    271 
    272     USE biometeorology_mod,                                                    &
    273         ONLY:  biometeorology_3d_data_averaging
    274277
    275278    USE surface_mod,                                                           &
     
    517520                ENDIF
    518521
    519                 IF ( radiation  .AND.  trimvar(1:4) == 'bio_' )  THEN
    520                    CALL biometeorology_3d_data_averaging( 'allocate', doav(ii) )
    521                 ENDIF
    522 
    523522                IF ( gust_module_enabled )  THEN
    524523                   CALL gust_3d_data_averaging( 'allocate', doav(ii) )
     524                ENDIF
     525
     526                IF ( biometeorology  .AND.  trimvar(1:5) == 'biom_')  THEN
     527                   CALL biom_3d_data_averaging( 'allocate', doav(ii) )
    525528                ENDIF
    526529
     
    11651168             ENDIF
    11661169
    1167              IF ( radiation   .AND.  trimvar(1:4) == 'bio_')  THEN
    1168                 CALL biometeorology_3d_data_averaging( 'sum', doav(ii) )
    1169              ENDIF
    1170 
    11711170             IF ( gust_module_enabled )  THEN
    11721171                CALL gust_3d_data_averaging( 'sum', doav(ii) )
     1172             ENDIF
     1173
     1174             IF ( biometeorology  .AND.  trimvar(1:5) == 'biom_' )  THEN
     1175                   CALL biom_3d_data_averaging( 'sum', doav(ii) )
    11731176             ENDIF
    11741177
Note: See TracChangeset for help on using the changeset viewer.