Ignore:
Timestamp:
Oct 15, 2018 2:21:08 PM (3 years ago)
Author:
suehring
Message:

Offline nesting revised and separated from large_scale_forcing_mod; Time-dependent synthetic turbulence generator; bugfixes in USM/LSM radiation model and init_pegrid

File:
1 edited

Legend:

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

    r3337 r3347  
    2525! -----------------
    2626! $Id$
     27! Subroutine renamed
     28!
     29! 3257 2018-09-17 17:11:46Z suehring
    2730! (from branch resler)
    2831! Formatting
     
    678681    END INTERFACE netcdf_data_input_init_lsm
    679682
    680     INTERFACE netcdf_data_input_lsf
    681        MODULE PROCEDURE netcdf_data_input_lsf
    682     END INTERFACE netcdf_data_input_lsf
     683    INTERFACE netcdf_data_input_offline_nesting
     684       MODULE PROCEDURE netcdf_data_input_offline_nesting
     685    END INTERFACE netcdf_data_input_offline_nesting
    683686
    684687    INTERFACE netcdf_data_input_surface_data
     
    735738           netcdf_data_input_init, netcdf_data_input_init_lsm,                 &
    736739           netcdf_data_input_init_3d,                                          &
    737            netcdf_data_input_interpolate, netcdf_data_input_lsf,               &
     740           netcdf_data_input_interpolate, netcdf_data_input_offline_nesting,   &
    738741           netcdf_data_input_surface_data, netcdf_data_input_topo
    739742
     
    30783081!> (COSMO) by Inifor.
    30793082!------------------------------------------------------------------------------!
    3080     SUBROUTINE netcdf_data_input_lsf
     3083    SUBROUTINE netcdf_data_input_offline_nesting
    30813084
    30823085       USE control_parameters,                                                 &
     
    31573160!
    31583161!--    Obtain time index for current input starting at 0.
    3159 !--    @todo: At the moment time, in INIFOR and simulated time correspond
     3162!--    @todo: At the moment INIFOR and simulated time correspond
    31603163!--           to each other. If required, adjust to daytime.
    31613164       nest_offl%tind = MINLOC( ABS( nest_offl%time -                          &
     
    33483351       CALL cpu_log( log_point_s(86), 'NetCDF input forcing', 'stop' )
    33493352
    3350     END SUBROUTINE netcdf_data_input_lsf
     3353    END SUBROUTINE netcdf_data_input_offline_nesting
    33513354
    33523355
Note: See TracChangeset for help on using the changeset viewer.