Changeset 4151 for palm

Timestamp:

Aug 9, 2019 8:24:30 AM (5 years ago)

Author:

suehring

Message:

Fix for last commit - netcdf directive added.

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (4 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Add netcdf directive around input calls (fix for last commit)
+! 
+! 4150 2019-08-08 20:00:47Z suehring
 ! Input of additional surface variables independent on land- or urban-surface
 ! model
@@ -2041 +2044 @@
     IF ( input_pids_static )  THEN
 !
+!--    Allocate memory for possible static input
+       ALLOCATE( tmp_2d%var(nys:nyn,nxl:nxr) )
+       tmp_2d%var = 0.0_wp
+!
 !--    Open the static input file
+#if defined( __netcdf )
        CALL open_read_file( TRIM( input_file_static ) //                    &
                             TRIM( coupling_char ),                          &
@@ -2051 +2059 @@
        ALLOCATE( vars_pids_static(1:num_vars_pids_static) )
        CALL inquire_variable_names( pids_static_id, vars_pids_static )
-                            
-       ALLOCATE( tmp_2d%var(nys:nyn,nxl:nxr) )
-       tmp_2d%var = 0.0_wp
 !
 !--    Input roughness length. 
@@ -2096 +2101 @@
 !--    same way.
                            
-       DEALLOCATE( tmp_2d%var )
 !
 !--    Finally, close the input file.
        CALL close_input_file( pids_static_id )
+#endif
+       DEALLOCATE( tmp_2d%var )
     ENDIF
 !