Changeset 4151 for palm/trunk/SOURCE


Ignore:
Timestamp:
Aug 9, 2019 8:24:30 AM (5 years ago)
Author:
suehring
Message:

Fix for last commit - netcdf directive added.

File:
1 edited

Legend:

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

    r4150 r4151  
    2525! -----------------
    2626! $Id$
     27! Add netcdf directive around input calls (fix for last commit)
     28!
     29! 4150 2019-08-08 20:00:47Z suehring
    2730! Input of additional surface variables independent on land- or urban-surface
    2831! model
     
    20412044    IF ( input_pids_static )  THEN
    20422045!
     2046!--    Allocate memory for possible static input
     2047       ALLOCATE( tmp_2d%var(nys:nyn,nxl:nxr) )
     2048       tmp_2d%var = 0.0_wp
     2049!
    20432050!--    Open the static input file
     2051#if defined( __netcdf )
    20442052       CALL open_read_file( TRIM( input_file_static ) //                    &
    20452053                            TRIM( coupling_char ),                          &
     
    20512059       ALLOCATE( vars_pids_static(1:num_vars_pids_static) )
    20522060       CALL inquire_variable_names( pids_static_id, vars_pids_static )
    2053                            
    2054        ALLOCATE( tmp_2d%var(nys:nyn,nxl:nxr) )
    2055        tmp_2d%var = 0.0_wp
    20562061!
    20572062!--    Input roughness length.
     
    20962101!--    same way.
    20972102                           
    2098        DEALLOCATE( tmp_2d%var )
    20992103!
    21002104!--    Finally, close the input file.
    21012105       CALL close_input_file( pids_static_id )
     2106#endif
     2107       DEALLOCATE( tmp_2d%var )
    21022108    ENDIF
    21032109!
Note: See TracChangeset for help on using the changeset viewer.