Ignore:
Timestamp:
Mar 19, 2018 8:56:40 AM (4 years ago)
Author:
Giersch
Message:

new procedure for reading/writing svf data, initialization of local variable ids

File:
1 edited

Legend:

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

    r2894 r2906  
    2525! -----------------
    2626! $Id$
     27! The variables read/write_svf_on_init have been removed. Instead ENVIRONMENT
     28! variables read/write_svf have been introduced. Location_message has been
     29! added.
     30!
     31! 2894 2018-03-15 09:17:58Z Giersch
    2732! Renamed routines with respect to reading restart data, file 13 is closed in
    2833! rrd_read_parts_of_global now
     
    474479        ONLY:  dots_max, dots_num, dots_unit, dots_label
    475480
    476     USE netcdf_data_input_mod,                                                  &
     481    USE netcdf_data_input_mod,                                                 &
    477482        ONLY:  init_3d, netcdf_data_input_interpolate, netcdf_data_input_init_3d
    478483   
     
    487492    USE radiation_model_mod,                                                   &
    488493        ONLY:  radiation_init, radiation, radiation_control, radiation_scheme, &
    489                read_svf_on_init,                                               &
    490                write_svf_on_init, radiation_calc_svf, radiation_write_svf,     &
     494               radiation_calc_svf, radiation_write_svf,                        &
    491495               radiation_interaction, radiation_interactions,                  &
    492496               radiation_interaction_init, radiation_read_svf
     
    23562360!
    23572361!--    If required, read or calculate and write out the SVF
    2358        IF ( radiation_interactions  .AND.  read_svf_on_init )  THEN
     2362       IF ( radiation_interactions .AND. read_svf)  THEN
    23592363!
    23602364!--       Read sky-view factors and further required data from file
     
    23632367          CALL location_message( '    Reading SVF from file has finished', .TRUE. )
    23642368
    2365        ELSEIF ( radiation_interactions )  THEN
     2369       ELSEIF ( radiation_interactions .AND. .NOT. read_svf)  THEN
    23662370!
    23672371!--       calculate SFV and CSF
     
    23712375       ENDIF
    23722376
    2373        IF ( radiation_interactions  .AND.  write_svf_on_init )  THEN
     2377       IF ( radiation_interactions .AND. write_svf)  THEN
    23742378!
    23752379!--       Write svf, csf svfsurf and csfsurf data to file
     2380          CALL location_message( '    Start writing SVF in file', .FALSE. )
    23762381          CALL radiation_write_svf()
     2382          CALL location_message( '    Writing SVF in file has finished', .TRUE. )
    23772383       ENDIF
    23782384
Note: See TracChangeset for help on using the changeset viewer.