Ignore:
Timestamp:
Nov 14, 2018 1:36:44 PM (3 years ago)
Author:
raasch
Message:

unused variables removed, missing working precision added, missing preprocessor directives added, bugfix concerning allocation of t_surf_wall_v in nopointer case, declaration statements rearranged to avoid compile time errors, mpi_abort arguments replaced to avoid compile errors

File:
1 edited

Legend:

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

    r3469 r3524  
    2626! -----------------
    2727! $Id$
     28! working precision added to make code Fortran 2008 conform
     29!
     30! 3469 2018-10-30 20:05:07Z kanani
    2831! Initial revision (tlang, suehring, kanani, srissman)
    2932!
     
    979982!--          not less than 0.01 W/K to provide division by 0 in further calculations
    980983!--          with heat capacity of air 0.33 Wh/m2K
    981              h_ve   = MAX( 0.01 , ( air_change * indoor_volume_per_facade *      &
    982                                     0.33 * (1 - eta_ve ) ) )    !< [W/K] from ISO 13789 Eq.(10)
     984             h_ve   = MAX( 0.01_wp , ( air_change * indoor_volume_per_facade *      &
     985                                    0.33_wp * (1 - eta_ve ) ) )    !< [W/K] from ISO 13789 Eq.(10)
    983986
    984987!--          Heat transfer coefficient auxiliary variables
     
    11711174!--          not less than 0.01 W/K to provide division by 0 in further calculations
    11721175!--          with heat capacity of air 0.33 Wh/m2K
    1173              h_ve   = MAX( 0.01 , ( air_change * indoor_volume_per_facade *      &
    1174                                     0.33 * (1 - eta_ve ) ) )                    !< [W/K] from ISO 13789 Eq.(10)
     1176             h_ve   = MAX( 0.01_wp , ( air_change * indoor_volume_per_facade *      &
     1177                                    0.33_wp * (1 - eta_ve ) ) )                    !< [W/K] from ISO 13789 Eq.(10)
    11751178                                   
    11761179!--          Heat transfer coefficient auxiliary variables
Note: See TracChangeset for help on using the changeset viewer.