Changeset 3456 for palm/trunk/UTIL/inifor/src/inifor_grid.f90

Timestamp:

Oct 30, 2018 2:29:54 PM (6 years ago)

Author:

eckhard

Message:

inifor: Removed surface forcing and internal arrays from netCDF output

File:

• palm/trunk/UTIL/inifor/src/inifor_grid.f90 (modified) (4 diffs)

palm/trunk/UTIL/inifor/src/inifor_grid.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Remove surface forcing from netCDF output (radiation + precipitation)
+! NetCDf output of internal arrays only with --debug option 
+! 
+! 
+! 3447 2018-10-29 15:52:54Z eckhard
 ! Renamed source files for compatibilty with PALM build system
 ! 
@@ -185 +190 @@
     LOGICAL ::  ls_forcing_variables_required
     LOGICAL ::  profile_grids_required
+    LOGICAL ::  surface_forcing_required
 
     TYPE(nc_var), ALLOCATABLE, TARGET ::  input_var_table(:)  !< table of input variables
@@ -371 +377 @@
        boundary_variables_required = TRIM( cfg % bc_mode ) == 'real'
        ls_forcing_variables_required = TRIM( cfg % bc_mode ) == 'ideal'
+       surface_forcing_required = .FALSE.
 
        IF ( ls_forcing_variables_required )  THEN
@@ -3270 +3277 @@
           var % dimvarids(3)    = output_file % dimvarid_time
           var % dimvarids(1:2)  = output_file % dimvarids_soil(1:2)
-          var % to_be_processed = boundary_variables_required
+          var % to_be_processed = surface_forcing_required
           var % is_internal     = .FALSE.
           var % task            = "interpolate_2d"