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

Timestamp:

Nov 14, 2018 1:36:44 PM (5 years ago)

Author:

raasch

Message:

unused variables removed, missing working precision added, missing preprocessor directives added, bugfix concerning allocation of t_surf_wall_v in nopointer case, declaration statements rearranged to avoid compile time errors, mpi_abort arguments replaced to avoid compile errors

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! missing cpp-directives added
+! 
+! 3495 2018-11-06 15:22:17Z kanani
 ! Resort control_parameters ONLY list,
 ! From branch radiation@3491 moh.hefny:
@@ -2307 +2310 @@
 !--       Calculate initial surface albedo for different surfaces
           IF ( .NOT. constant_albedo )  THEN
+#if defined( __netcdf )
 !
 !--          Horizontally aligned natural and urban surfaces
@@ -2317 +2321 @@
                 CALL calc_albedo( surf_usm_v(l) )
              ENDDO
+#endif
           ELSE
 !
@@ -3089 +3094 @@
 !--    Calculate surface albedo. In case average radiation is applied, 
 !--    this is not required.
+#if defined( __netcdf )
        IF ( .NOT. constant_albedo )  THEN
 !
@@ -3101 +3107 @@
           ENDDO
        ENDIF
+#endif
 
 !