Ignore:
Timestamp:
Dec 20, 2018 1:51:36 AM (3 years ago)
Author:
knoop
Message:

M Makefile

File:
1 edited

Legend:

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

    r3636 r3637  
    2828! -----------------
    2929! $Id$
     30! Implementation of the PALM module interface
     31!
     32! 3636 2018-12-19 13:48:34Z raasch
    3033! nopointer option removed
    3134!
     
    5255!
    5356! 3449 2018-10-29 19:36:56Z suehring
    54 ! Bugfix: Fix average arrays allocations in usm_average_3d_data (J.Resler)
     57! Bugfix: Fix average arrays allocations in usm_3d_data_averaging (J.Resler)
    5558! Bugfix: Fix reading wall temperatures (J.Resler)
    5659! Bugfix: Fix treating of outputs for wall temperature and sky view factors (J.Resler)
     
    182185! 2906 2018-03-19 08:56:40Z Giersch
    183186! Local variable ids has to be initialized with a value of -1 in
    184 ! usm_average_3d_data
     187! usm_3d_data_averaging
    185188!
    186189! 2894 2018-03-15 09:17:58Z Giersch
     
    11251128    END INTERFACE usm_allocate_surface
    11261129
    1127     INTERFACE usm_average_3d_data
    1128        MODULE PROCEDURE usm_average_3d_data
    1129     END INTERFACE usm_average_3d_data
     1130    INTERFACE usm_3d_data_averaging
     1131       MODULE PROCEDURE usm_3d_data_averaging
     1132    END INTERFACE usm_3d_data_averaging
    11301133
    11311134   
     
    11381141           usm_rrd_local,                                                      &
    11391142           usm_surface_energy_balance, usm_material_heat_model,                &
    1140            usm_swap_timelevel, usm_check_data_output, usm_average_3d_data,     &
     1143           usm_swap_timelevel, usm_check_data_output, usm_3d_data_averaging,   &
    11411144           usm_data_output_3d, usm_define_netcdf_grid, usm_parin,              &
    11421145           usm_wrd_local, usm_allocate_surface
     
    15631566!> the array necessary for storing the average.
    15641567!------------------------------------------------------------------------------!
    1565     SUBROUTINE usm_average_3d_data( mode, variable )
     1568    SUBROUTINE usm_3d_data_averaging( mode, variable )
    15661569
    15671570        IMPLICIT NONE
     
    15751578        CHARACTER(LEN=6), DIMENSION(0:nd-1), PARAMETER     :: dirname = (/ '_roof ', '_south', '_north', '_west ', '_east ' /)
    15761579        INTEGER(iwp), DIMENSION(0:nd-1), PARAMETER         :: dirint = (/ iup_u, isouth_u, inorth_u, iwest_u, ieast_u /)
     1580
     1581        IF ( variable(1:4) == 'usm_' )  THEN  ! is such a check really rquired?
    15771582
    15781583!--     find the real name of the variable
     
    24472452        ENDIF
    24482453
    2449     END SUBROUTINE usm_average_3d_data
     2454        ENDIF
     2455
     2456    END SUBROUTINE usm_3d_data_averaging
    24502457
    24512458
Note: See TracChangeset for help on using the changeset viewer.