Changeset 2299 for palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
- Timestamp:
- Jun 29, 2017 10:14:38 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
r2292 r2299 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Adjusted for allow separate spinups of LSM and atmosphere code 28 ! 29 ! 2292 2017-06-20 09:51:42Z schwenkel 27 30 ! Implementation of new microphysic scheme: cloud_scheme = 'morrison' 28 31 ! includes two more prognostic equations for cloud drop concentration (nc) … … 203 206 most_method, neutral, passive_scalar, pt_surface, q_surface, & 204 207 run_coupled, surface_pressure, simulated_time, terminate_run, & 205 urban_surface, zeta_max, zeta_min208 time_since_reference_point, urban_surface, zeta_max, zeta_min 206 209 207 210 USE grid_variables, & … … 1921 1924 ! 1922 1925 !-- Compute the vertical kinematic heat flux 1923 IF ( .NOT. constant_heatflux .AND. ( simulated_time <= & 1924 skip_time_do_lsm .OR. .NOT. land_surface ) .AND. & 1925 .NOT. urban_surface .AND. .NOT. downward ) THEN 1926 IF ( .NOT. constant_heatflux .AND. ( ( time_since_reference_point& 1927 <= skip_time_do_lsm .AND. simulated_time > 0.0_wp ) .OR. & 1928 .NOT. land_surface ) .AND. .NOT. urban_surface .AND. & 1929 .NOT. downward ) THEN 1926 1930 !$OMP PARALLEL DO PRIVATE( i, j, k ) 1927 1931 DO m = 1, surf%ns … … 1935 1939 !-- Compute the vertical water flux 1936 1940 IF ( .NOT. constant_waterflux .AND. humidity .AND. & 1937 ( simulated_time <= skip_time_do_lsm & 1938 .OR. .NOT. land_surface ) .AND. .NOT. downward ) THEN 1941 ( ( time_since_reference_point <= skip_time_do_lsm .AND. & 1942 simulated_time > 0.0_wp ) .OR. .NOT. land_surface ) .AND. & 1943 .NOT. downward ) THEN 1939 1944 !$OMP PARALLEL DO PRIVATE( i, j, k ) 1940 1945 DO m = 1, surf%ns
Note: See TracChangeset
for help on using the changeset viewer.