Changeset 3254 for palm/trunk/SOURCE/surface_mod.f90
- Timestamp:
- Sep 17, 2018 10:53:57 AM (6 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/surface_mod.f90 (modified) (14 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/surface_mod.f90
r3253 r3254 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Remove redundant subroutine argument 29 ! 30 ! 3253 2018-09-17 08:39:12Z suehring 28 31 ! Bugfix, missing deallocation of q_surface 29 32 ! … … 1815 1818 topo_no_distinct 1816 1819 IF ( urban_surface .AND. building ) THEN 1817 CALL initialize_vertical_surfaces( 0, k, j, i,&1820 CALL initialize_vertical_surfaces( k, j, i, & 1818 1821 surf_usm_v(0), & 1819 1822 num_usm_v(0), & … … 1822 1825 .FALSE., .TRUE. ) 1823 1826 ELSEIF ( land_surface .AND. terrain ) THEN 1824 CALL initialize_vertical_surfaces( 0, k, j, i,&1827 CALL initialize_vertical_surfaces( k, j, i, & 1825 1828 surf_lsm_v(0), & 1826 1829 num_lsm_v(0), & … … 1829 1832 .FALSE., .TRUE. ) 1830 1833 ELSE 1831 CALL initialize_vertical_surfaces( 0, k, j, i,&1834 CALL initialize_vertical_surfaces( k, j, i, & 1832 1835 surf_def_v(0), & 1833 1836 num_def_v(0), & … … 1847 1850 topo_no_distinct 1848 1851 IF ( urban_surface .AND. building ) THEN 1849 CALL initialize_vertical_surfaces( 1, k, j, i,&1852 CALL initialize_vertical_surfaces( k, j, i, & 1850 1853 surf_usm_v(1), & 1851 1854 num_usm_v(1), & … … 1854 1857 .TRUE., .FALSE. ) 1855 1858 ELSEIF ( land_surface .AND. terrain ) THEN 1856 CALL initialize_vertical_surfaces( 1, k, j, i,&1859 CALL initialize_vertical_surfaces( k, j, i, & 1857 1860 surf_lsm_v(1), & 1858 1861 num_lsm_v(1), & … … 1861 1864 .TRUE., .FALSE. ) 1862 1865 ELSE 1863 CALL initialize_vertical_surfaces( 1, k, j, i,&1866 CALL initialize_vertical_surfaces( k, j, i, & 1864 1867 surf_def_v(1), & 1865 1868 num_def_v(1), & … … 1879 1882 topo_no_distinct 1880 1883 IF ( urban_surface .AND. building ) THEN 1881 CALL initialize_vertical_surfaces( 2, k, j, i,&1884 CALL initialize_vertical_surfaces( k, j, i, & 1882 1885 surf_usm_v(2), & 1883 1886 num_usm_v(2), & … … 1886 1889 .FALSE., .FALSE. ) 1887 1890 ELSEIF ( land_surface .AND. terrain ) THEN 1888 CALL initialize_vertical_surfaces( 2, k, j, i,&1891 CALL initialize_vertical_surfaces( k, j, i, & 1889 1892 surf_lsm_v(2), & 1890 1893 num_lsm_v(2), & … … 1893 1896 .FALSE., .FALSE. ) 1894 1897 ELSE 1895 CALL initialize_vertical_surfaces( 2, k, j, i,&1898 CALL initialize_vertical_surfaces( k, j, i, & 1896 1899 surf_def_v(2), & 1897 1900 num_def_v(2), & … … 1911 1914 topo_no_distinct 1912 1915 IF ( urban_surface .AND. building ) THEN 1913 CALL initialize_vertical_surfaces( 3, k, j, i,&1916 CALL initialize_vertical_surfaces( k, j, i, & 1914 1917 surf_usm_v(3), & 1915 1918 num_usm_v(3), & … … 1918 1921 .FALSE., .FALSE. ) 1919 1922 ELSEIF ( land_surface .AND. terrain ) THEN 1920 CALL initialize_vertical_surfaces( 3, k, j, i,&1923 CALL initialize_vertical_surfaces( k, j, i, & 1921 1924 surf_lsm_v(3), & 1922 1925 num_lsm_v(3), & … … 1925 1928 .FALSE., .FALSE. ) 1926 1929 ELSE 1927 CALL initialize_vertical_surfaces( 3, k, j, i,&1930 CALL initialize_vertical_surfaces( k, j, i, & 1928 1931 surf_def_v(3), & 1929 1932 num_def_v(3), & … … 2357 2360 !> Initialize vertical surface elements. 2358 2361 !------------------------------------------------------------------------------! 2359 SUBROUTINE initialize_vertical_surfaces( l, k, j, i, surf, num_v,&2360 num_v_kji, east_facing,&2361 west_facing, south_facing,&2362 north_facing )2362 SUBROUTINE initialize_vertical_surfaces( k, j, i, surf, num_v, & 2363 num_v_kji, east_facing, & 2364 west_facing, south_facing, & 2365 north_facing ) 2363 2366 2364 2367 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.
