Changeset 4400 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

Feb 10, 2020 8:32:41 PM (4 years ago)

Author:

suehring

Message:

Revision of the virtual-measurement module: data input from NetCDF file; removed binary output - instead parallel NetCDF output using the new data-output module; variable attributes added; further variables added that can be sampled, file connections added; Functions for coordinate transformation moved to basic_constants_and_equations; netcdf_data_input_mod: unused routines netcdf_data_input_att and netcdf_data_input_var removed; new routines to inquire fill values added; Preprocessing script (palm_cvd) to setup virtual-measurement input files provided; postprocessor combine_virtual_measurements deleted

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Initialize radiation arrays with zero
+! 
+! 4392 2020-01-31 16:14:57Z pavelkrc
 ! - Add debug tracing of large radiative fluxes (option trace_fluxes_above)
 ! - Print exact counts of SVF and CSF if debut_output is enabled
@@ -1782 +1785 @@
           IF ( .NOT. ALLOCATED ( rad_sw_in ) )  THEN
              ALLOCATE ( rad_sw_in(0:0,nysg:nyng,nxlg:nxrg) )
+             rad_sw_in = 0.0_wp
           ENDIF
           IF ( .NOT. ALLOCATED ( rad_sw_out ) )  THEN
              ALLOCATE ( rad_sw_out(0:0,nysg:nyng,nxlg:nxrg) )
+             rad_sw_out = 0.0_wp
           ENDIF
 
           IF ( .NOT. ALLOCATED ( rad_lw_in ) )  THEN
              ALLOCATE ( rad_lw_in(0:0,nysg:nyng,nxlg:nxrg) )
+             rad_lw_in = 0.0_wp
           ENDIF
           IF ( .NOT. ALLOCATED ( rad_lw_out ) )  THEN
              ALLOCATE ( rad_lw_out(0:0,nysg:nyng,nxlg:nxrg) )
+             rad_lw_out = 0.0_wp
           ENDIF