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

Some interface calls moved to module_interface + cleanup

File:
1 edited

Legend:

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

    r3655 r3685  
    2828! -----------------
    2929! $Id$
     30! Some interface calls moved to module_interface + cleanup
     31!
     32! 3655 2019-01-07 16:51:22Z knoop
    3033! Implementation of the PALM module interface
    3134!
     
    10921095    END INTERFACE usm_define_netcdf_grid
    10931096
    1094     INTERFACE usm_init_urban_surface
    1095        MODULE PROCEDURE usm_init_urban_surface
    1096     END INTERFACE usm_init_urban_surface
     1097    INTERFACE usm_init
     1098       MODULE PROCEDURE usm_init
     1099    END INTERFACE usm_init
    10971100
    10981101    INTERFACE usm_material_heat_model
     
    11241127    END INTERFACE usm_wrd_local
    11251128
    1126     INTERFACE usm_allocate_surface
    1127        MODULE PROCEDURE usm_allocate_surface
    1128     END INTERFACE usm_allocate_surface
     1129    INTERFACE usm_init_arrays
     1130       MODULE PROCEDURE usm_init_arrays
     1131    END INTERFACE usm_init_arrays
    11291132
    11301133    INTERFACE usm_3d_data_averaging
     
    11381141   
    11391142!-- Public functions
    1140     PUBLIC usm_boundary_condition, usm_check_parameters, usm_init_urban_surface,&
     1143    PUBLIC usm_boundary_condition, usm_check_parameters, usm_init,&
    11411144           usm_rrd_local,                                                      &
    11421145           usm_surface_energy_balance, usm_material_heat_model,                &
    11431146           usm_swap_timelevel, usm_check_data_output, usm_3d_data_averaging,   &
    11441147           usm_data_output_3d, usm_define_netcdf_grid, usm_parin,              &
    1145            usm_wrd_local, usm_allocate_surface
     1148           usm_wrd_local, usm_init_arrays
    11461149
    11471150!-- Public parameters, constants and initial values
     
    11611164!> and plant canopy and it allocates the needed arrays for USM
    11621165!------------------------------------------------------------------------------!
    1163     SUBROUTINE usm_allocate_surface
     1166    SUBROUTINE usm_init_arrays
    11641167   
    11651168        IMPLICIT NONE
    11661169       
    11671170        INTEGER(iwp) ::  l
     1171
     1172        CALL location_message( 'initializing and allocating urban surfaces', .FALSE. )
    11681173
    11691174!
     
    15561561           IF ( ALLOCATED( surf_usm_v(l)%iwghf_eb_window ) )  surf_usm_v(l)%iwghf_eb_window = 0.0_wp
    15571562        ENDDO
    1558        
    1559     END SUBROUTINE usm_allocate_surface
     1563
     1564        CALL location_message( 'finished', .TRUE. )
     1565
     1566    END SUBROUTINE usm_init_arrays
    15601567
    15611568
     
    38703877!> Initialization of the urban surface model
    38713878!------------------------------------------------------------------------------!
    3872     SUBROUTINE usm_init_urban_surface
     3879    SUBROUTINE usm_init
    38733880
    38743881        USE arrays_3d,                                                         &
     
    39263933        REAL(wp)     ::  z_agl                        !< height above ground
    39273934
     3935        CALL location_message( 'initializing urban surface model', .FALSE. )
    39283936
    39293937        CALL cpu_log( log_point_s(78), 'usm_init', 'start' )
     
    51895197!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++       
    51905198
    5191         CALL cpu_log( log_point_s(78), 'usm_init', 'stop' )
    5192 
    5193     END SUBROUTINE usm_init_urban_surface
     5199       CALL cpu_log( log_point_s(78), 'usm_init', 'stop' )
     5200
     5201       CALL location_message( 'finished', .TRUE. )
     5202
     5203    END SUBROUTINE usm_init
    51945204
    51955205
Note: See TracChangeset for help on using the changeset viewer.