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

Timestamp:

Dec 2, 2014 5:25:50 PM (9 years ago)

Author:

maronga

Message:

added beta version of a land surface model and a simple radiation model for clear sky conditions

File:

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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Renamed "radiation" -> "cloud_top_radiation"
 ! 
 ! Former revisions:
@@ -169 +169 @@
     USE control_parameters,                                                    &
         ONLY:  call_microphysics_at_all_substeps, cloud_physics,               &
-               constant_diffusion, dp_external,                                &
+               cloud_top_radiation, constant_diffusion, dp_external,       &
                dp_level_ind_b, dp_smooth_factor, dpdxy, dt_3d, humidity,       &
                icloud_scheme, inflow_l, intermediate_timestep_count,           &
@@ -176 +176 @@
                outflow_s, passive_scalar, precipitation,                       &
                prho_reference, prho_reference, prho_reference, pt_reference,   &
-               pt_reference, pt_reference, radiation, scalar_advec,            &
-               scalar_advec, simulated_time, sloping_surface, timestep_scheme, &
-               tsc, use_subsidence_tendencies, use_upstream_for_tke,           &
-               wall_heatflux,                                                  &
+               pt_reference, pt_reference, scalar_advec, scalar_advec,         &
+               simulated_time, sloping_surface,                                &
+               timestep_scheme, tsc, use_subsidence_tendencies,                &
+               use_upstream_for_tke, wall_heatflux,                            &
                wall_nrflux, wall_qflux, wall_qflux, wall_qflux, wall_qrflux,   &
                wall_salinityflux, ws_scheme_mom, ws_scheme_sca
@@ -551 +551 @@
 !--          If required compute heating/cooling due to long wave radiation
 !--          processes
-             IF ( radiation )  THEN
+             IF ( cloud_top_radiation )  THEN
                 CALL calc_radiation( i, j )
              ENDIF
@@ -1206 +1206 @@
 !
 !--    If required compute heating/cooling due to long wave radiation processes
-       IF ( radiation )  THEN
+       IF ( cloud_top_radiation )  THEN
           CALL calc_radiation
        ENDIF
@@ -2021 +2021 @@
 !
 !--    If required compute heating/cooling due to long wave radiation processes
-       IF ( radiation )  THEN
+       IF ( cloud_top_radiation )  THEN
           CALL calc_radiation
        ENDIF