Changeset 4675 for palm/trunk/UTIL/inifor/src/inifor_transform.f90

Timestamp:

Sep 11, 2020 10:00:26 AM (4 years ago)

Author:

eckhard

Message:

Support for homogeneous (domain-averaged) boundary conditions and soil profile initialization

File:

• palm/trunk/UTIL/inifor/src/inifor_transform.f90 (modified) (3 diffs)

palm/trunk/UTIL/inifor/src/inifor_transform.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Improved code formatting
+! 
+! 
+! 4553 2020-06-03 16:34:15Z eckhard
 ! Improved code readability and documentation
 ! 
@@ -431 +435 @@
 
     TYPE(grid_definition), INTENT(IN)          ::  avg_grid
-    REAL(wp), DIMENSION(:,:,:), INTENT(IN)     ::  source_array 
+    REAL(wp), DIMENSION(:,:,:), INTENT(IN)     ::  source_array
     REAL(wp), DIMENSION(:), INTENT(OUT)        ::  profile_array
 
@@ -445 +449 @@
                  "cosmo_pressure(" // TRIM( str( nlev ) ) //                &
                  "), profile_array(" // TRIM( str( nz ) )  // ")."
-       CALL inifor_abort('average_pressure_perturbation', message)
+       CALL inifor_abort( 'average_profile', message )
     ENDIF