Changeset 3685 for palm/trunk/SOURCE/urban_surface_mod.f90

Timestamp:

Jan 21, 2019 1:02:11 AM (4 years ago)

Author:

knoop

Message:

Some interface calls moved to module_interface + cleanup

File:

• palm/trunk/SOURCE/urban_surface_mod.f90 (modified) (9 diffs)

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Some interface calls moved to module_interface + cleanup
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! Implementation of the PALM module interface
 ! 
@@ -1092 +1095 @@
     END INTERFACE usm_define_netcdf_grid
 
-    INTERFACE usm_init_urban_surface
-       MODULE PROCEDURE usm_init_urban_surface
-    END INTERFACE usm_init_urban_surface
+    INTERFACE usm_init
+       MODULE PROCEDURE usm_init
+    END INTERFACE usm_init
 
     INTERFACE usm_material_heat_model
@@ -1124 +1127 @@
     END INTERFACE usm_wrd_local
 
-    INTERFACE usm_allocate_surface
-       MODULE PROCEDURE usm_allocate_surface
-    END INTERFACE usm_allocate_surface
+    INTERFACE usm_init_arrays
+       MODULE PROCEDURE usm_init_arrays
+    END INTERFACE usm_init_arrays
 
     INTERFACE usm_3d_data_averaging
@@ -1138 +1141 @@
     
 !-- Public functions
-    PUBLIC usm_boundary_condition, usm_check_parameters, usm_init_urban_surface,&
+    PUBLIC usm_boundary_condition, usm_check_parameters, usm_init,&
            usm_rrd_local,                                                      & 
            usm_surface_energy_balance, usm_material_heat_model,                &
            usm_swap_timelevel, usm_check_data_output, usm_3d_data_averaging,   &
            usm_data_output_3d, usm_define_netcdf_grid, usm_parin,              &
-           usm_wrd_local, usm_allocate_surface
+           usm_wrd_local, usm_init_arrays
 
 !-- Public parameters, constants and initial values
@@ -1161 +1164 @@
 !> and plant canopy and it allocates the needed arrays for USM
 !------------------------------------------------------------------------------!
-    SUBROUTINE usm_allocate_surface
+    SUBROUTINE usm_init_arrays
     
         IMPLICIT NONE
        
         INTEGER(iwp) ::  l
+
+        CALL location_message( 'initializing and allocating urban surfaces', .FALSE. )
 
 !
@@ -1556 +1561 @@
            IF ( ALLOCATED( surf_usm_v(l)%iwghf_eb_window ) )  surf_usm_v(l)%iwghf_eb_window = 0.0_wp
         ENDDO
-        
-    END SUBROUTINE usm_allocate_surface
+
+        CALL location_message( 'finished', .TRUE. )
+
+    END SUBROUTINE usm_init_arrays
 
 
@@ -3870 +3877 @@
 !> Initialization of the urban surface model
 !------------------------------------------------------------------------------!
-    SUBROUTINE usm_init_urban_surface
+    SUBROUTINE usm_init
 
         USE arrays_3d,                                                         &
@@ -3926 +3933 @@
         REAL(wp)     ::  z_agl                        !< height above ground
 
+        CALL location_message( 'initializing urban surface model', .FALSE. )
 
         CALL cpu_log( log_point_s(78), 'usm_init', 'start' )
@@ -5189 +5197 @@
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++        
 
-        CALL cpu_log( log_point_s(78), 'usm_init', 'stop' )
-
-    END SUBROUTINE usm_init_urban_surface
+       CALL cpu_log( log_point_s(78), 'usm_init', 'stop' )
+
+       CALL location_message( 'finished', .TRUE. )
+
+    END SUBROUTINE usm_init