Ignore:
Timestamp:
Jul 5, 2019 1:05:19 PM (4 years ago)
Author:
eckhard
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/src/inifor_grid.f90

    r4019 r4074  
    2626! -----------------
    2727! $Id$
     28! Changed default initialization mode from 'volume' to 'profile'
     29! Pass hhl_file to cosmo_grid() instead of entire INIFOR configuration
     30!
     31!
     32! 4019 2019-06-06 14:00:35Z eckhard
    2833! bugfix: Replaced z_top array literal with array, fixes wrong z_top height with gfortran -O2/-O3
    2934!
     
    386391
    387392!
    388 !-- Defaultmain centre (_c) of the PALM-4U grid in the geographical system (_g)
     393!-- Default coordinates of the PALM origin in the geographical reference system
    389394    origin_lat = 52.325079_wp * TO_RADIANS ! south-west of Berlin, origin used for the Dec 2017 showcase simulation
    390395    origin_lon = 13.082744_wp * TO_RADIANS
     
    433438    cfg%static_driver_file = ''
    434439    cfg%output_file = './palm-4u-input.nc'
    435     cfg%ic_mode = 'volume'
     440    cfg%ic_mode = 'profile'
    436441    cfg%bc_mode = 'real'
    437442    cfg%averaging_mode = 'level'
     
    584589    CALL log_runtime('time', 'read')
    585590
    586     CALL get_cosmo_grid( cfg, soil_files(1), rlon, rlat, hhl, hfl, depths,  &
    587                          d_depth, d_depth_rho_inv, phi_n, lambda_n,         &
    588                          phi_equat,                                         &
    589                          lonmin_cosmo, lonmax_cosmo,                        &
    590                          latmin_cosmo, latmax_cosmo,                        &
     591    CALL get_cosmo_grid( cfg % hhl_file, soil_files(1), rlon, rlat, hhl, hfl,  &
     592                         depths, d_depth, d_depth_rho_inv, phi_n, lambda_n,    &
     593                         phi_equat,                                            &
     594                         lonmin_cosmo, lonmax_cosmo,                           &
     595                         latmin_cosmo, latmax_cosmo,                           &
    591596                         nlon, nlat, nlev, ndepths )
    592597
Note: See TracChangeset for help on using the changeset viewer.