Changeset 3355 for palm/trunk/SOURCE/prognostic_equations.f90

Timestamp:

Oct 16, 2018 2:03:34 PM (6 years ago)

Author:

knoop

Message:

removed calc_radiation.f90 and related cloud_top_radiation namelist parameter (functionality replaced by radiation model)

File:

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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -156 +156 @@
 ! advec_s_bc_mod addded, since advec_s_bc is now a module
 !
-! 1496 2014-12-02 17:25:50Z maronga
-! Renamed "radiation" -> "cloud_top_radiation"
-!
 ! 1484 2014-10-21 10:53:05Z kanani
 ! Changes due to new module structure of the plant canopy model:
@@ -341 +338 @@
         ONLY:  buoyancy
 
-    USE calc_radiation_mod,                                                    &
-        ONLY:  calc_radiation
-
     USE chemistry_model_mod,                                                   &
         ONLY:  chem_integrate, chem_species,  chem_prognostic_equations,       &
@@ -358 +352 @@
 
     USE control_parameters,                                                    &
-        ONLY:  air_chemistry,                                                  &
-               cloud_top_radiation, constant_diffusion,                        &
+        ONLY:  air_chemistry, constant_diffusion,                              &
                dp_external, dp_level_ind_b, dp_smooth_factor, dpdxy, dt_3d,    &
                humidity, intermediate_timestep_count,                          &
                intermediate_timestep_count_max, large_scale_forcing,           &
-               large_scale_subsidence,                  &
-               neutral, nudging, &
+               large_scale_subsidence, neutral, nudging,                       &
                ocean_mode, passive_scalar, plant_canopy, pt_reference,         &
                scalar_advec, scalar_advec, simulated_time, sloping_surface,    &
@@ -827 +819 @@
                                surf_usm_v(0)%shf, surf_usm_v(1)%shf,           &
                                surf_usm_v(2)%shf, surf_usm_v(3)%shf )
-!
-!--          If required compute heating/cooling due to long wave radiation
-!--          processes
-             IF ( cloud_top_radiation )  THEN
-                CALL calc_radiation( i, j )
-             ENDIF
 
 !
@@ -1706 +1692 @@
                          surf_usm_v(0)%shf, surf_usm_v(1)%shf,                 &
                          surf_usm_v(2)%shf, surf_usm_v(3)%shf )
-!
-!--    If required compute heating/cooling due to long wave radiation processes
-       IF ( cloud_top_radiation )  THEN
-          CALL calc_radiation
-       ENDIF
 
 !