Changeset 4074 for palm/trunk/UTIL/inifor/src/inifor_grid.f90

Timestamp:

Jul 5, 2019 1:05:19 PM (5 years ago)

Author:

eckhard

Message:

inifor: Changed initialization mode from 'volume' to 'profile'

File:

• palm/trunk/UTIL/inifor/src/inifor_grid.f90 (modified) (4 diffs)

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

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Changed default initialization mode from 'volume' to 'profile'
+! Pass hhl_file to cosmo_grid() instead of entire INIFOR configuration
+! 
+! 
+! 4019 2019-06-06 14:00:35Z eckhard
 ! bugfix: Replaced z_top array literal with array, fixes wrong z_top height with gfortran -O2/-O3
 ! 
@@ -386 +391 @@
 
 !
-!-- Defaultmain centre (_c) of the PALM-4U grid in the geographical system (_g)
+!-- Default coordinates of the PALM origin in the geographical reference system
     origin_lat = 52.325079_wp * TO_RADIANS ! south-west of Berlin, origin used for the Dec 2017 showcase simulation
     origin_lon = 13.082744_wp * TO_RADIANS
@@ -433 +438 @@
     cfg%static_driver_file = ''
     cfg%output_file = './palm-4u-input.nc'
-    cfg%ic_mode = 'volume'
+    cfg%ic_mode = 'profile'
     cfg%bc_mode = 'real'
     cfg%averaging_mode = 'level'
@@ -584 +589 @@
     CALL log_runtime('time', 'read')
 
-    CALL get_cosmo_grid( cfg, soil_files(1), rlon, rlat, hhl, hfl, depths,  &
-                         d_depth, d_depth_rho_inv, phi_n, lambda_n,         &
-                         phi_equat,                                         &
-                         lonmin_cosmo, lonmax_cosmo,                        &
-                         latmin_cosmo, latmax_cosmo,                        &
+    CALL get_cosmo_grid( cfg % hhl_file, soil_files(1), rlon, rlat, hhl, hfl,  &
+                         depths, d_depth, d_depth_rho_inv, phi_n, lambda_n,    &
+                         phi_equat,                                            &
+                         lonmin_cosmo, lonmax_cosmo,                           &
+                         latmin_cosmo, latmax_cosmo,                           &
                          nlon, nlat, nlev, ndepths )