Changeset 4754 for palm/trunk
- Timestamp:
- Oct 21, 2020 2:58:15 PM (4 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/bulk_cloud_model_mod.f90 (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/bulk_cloud_model_mod.f90
r4742 r4754 24 24 ! ----------------- 25 25 ! $Id$ 26 ! Minor reformatting 27 ! 28 ! 4742 2020-10-14 15:11:02Z schwenkel 26 29 ! Implement snow and graupel (bulk microphysics) 27 30 ! … … 1886 1889 CALL adjust_cloud_ij( i,j ) 1887 1890 IF ( microphysics_ice_phase .AND. simulated_time > start_ice_microphysics ) THEN 1888 CALL adjust_ice_ij 1889 CALL nucleation_ice_ij 1890 CALL homogeneous_freezing_cloud_ij 1891 CALL deposition_ice_ij 1891 CALL adjust_ice_ij( i,j ) 1892 CALL nucleation_ice_ij( i,j ) 1893 CALL homogeneous_freezing_cloud_ij( i,j ) 1894 CALL deposition_ice_ij( i,j ) 1892 1895 IF ( snow .AND. graupel ) THEN 1893 CALL deposition_snow_ij 1894 CALL deposition_graupel_ij 1895 CALL selfcollection_ice_ij 1896 CALL selfcollection_snow_ij 1897 CALL selfcollection_graupel_ij 1898 CALL collection_graupel_ice_ij 1899 CALL collection_snow_ice_ij 1900 CALL collection_graupel_snow_ij 1901 CALL riming_graupel_cloud_ij 1902 CALL riming_graupel_rain_ij 1903 CALL riming_ice_cloud_ij 1904 CALL riming_ice_rain_ij 1905 CALL riming_snow_cloud_ij 1906 CALL riming_snow_rain_ij 1896 CALL deposition_snow_ij( i,j ) 1897 CALL deposition_graupel_ij( i,j ) 1898 CALL selfcollection_ice_ij( i,j ) 1899 CALL selfcollection_snow_ij( i,j ) 1900 CALL selfcollection_graupel_ij( i,j ) 1901 CALL collection_graupel_ice_ij( i,j ) 1902 CALL collection_snow_ice_ij( i,j ) 1903 CALL collection_graupel_snow_ij( i,j ) 1904 CALL riming_graupel_cloud_ij( i,j ) 1905 CALL riming_graupel_rain_ij( i,j ) 1906 CALL riming_ice_cloud_ij( i,j ) 1907 CALL riming_ice_rain_ij( i,j ) 1908 CALL riming_snow_cloud_ij( i,j ) 1909 CALL riming_snow_rain_ij( i,j ) 1907 1910 CALL heterogeneous_freezing_rain_ij( i,j ) 1908 CALL melting_ice_ij 1909 CALL melting_snow_ij 1910 CALL melting_graupel_ij 1911 CALL evaporation_graupel_ij 1912 CALL evaporation_snow_ij 1911 CALL melting_ice_ij( i,j ) 1912 CALL melting_snow_ij( i,j ) 1913 CALL melting_graupel_ij( i,j ) 1914 CALL evaporation_graupel_ij( i,j ) 1915 CALL evaporation_snow_ij( i,j ) 1913 1916 ENDIF 1914 1917 ENDIF 1915 CALL autoconversion_ij 1916 CALL accretion_ij 1918 CALL autoconversion_ij( i,j ) 1919 CALL accretion_ij( i,j ) 1917 1920 CALL selfcollection_breakup_rain_ij( i,j ) 1918 CALL evaporation_rain_ij 1919 CALL sedimentation_rain_ij 1920 IF ( cloud_water_sedimentation ) CALL sedimentation_cloud_ij 1921 CALL evaporation_rain_ij( i,j ) 1922 CALL sedimentation_rain_ij( i,j ) 1923 IF ( cloud_water_sedimentation ) CALL sedimentation_cloud_ij( i,j ) 1921 1924 IF ( microphysics_ice_phase .AND. simulated_time > start_ice_microphysics ) THEN 1922 IF ( ice_crystal_sedimentation ) CALL sedimentation_ice_ij 1923 IF ( snow_sedimentation .AND. snow ) CALL sedimentation_snow_ij 1924 IF ( graupel_sedimentation .AND. graupel ) CALL sedimentation_graupel_ij 1925 IF ( ice_crystal_sedimentation ) CALL sedimentation_ice_ij( i,j ) 1926 IF ( snow_sedimentation .AND. snow ) CALL sedimentation_snow_ij( i,j ) 1927 IF ( graupel_sedimentation .AND. graupel ) CALL sedimentation_graupel_ij( i,j ) 1925 1928 ENDIF 1926 1929 ! … … 1928 1931 !-- allocated. 1929 1932 ELSEIF ( microphysics_morrison_no_rain .AND. .NOT. microphysics_seifert ) THEN 1930 CALL activation_cloud_ij 1933 CALL activation_cloud_ij( i,j ) 1931 1934 CALL condensation_cloud_ij( i,j ) 1932 1935 IF ( cloud_water_sedimentation ) CALL sedimentation_cloud_ij( i,j ) … … 1934 1937 !-- Here the full morrison scheme is used and all processes of Seifert and Beheng are included 1935 1938 ELSEIF ( microphysics_morrison .AND. microphysics_seifert ) THEN 1936 CALL adjust_cloud_ij 1937 CALL activation_cloud_ij 1939 CALL adjust_cloud_ij( i,j ) 1940 CALL activation_cloud_ij( i,j ) 1938 1941 CALL condensation_cloud_ij( i,j ) 1939 1942 IF ( microphysics_ice_phase .AND. simulated_time > start_ice_microphysics ) THEN 1940 CALL adjust_ice_ij 1941 CALL nucleation_ice_ij 1942 CALL homogeneous_freezing_cloud_ij 1943 CALL deposition_ice_ij 1943 CALL adjust_ice_ij( i,j ) 1944 CALL nucleation_ice_ij( i,j ) 1945 CALL homogeneous_freezing_cloud_ij( i,j ) 1946 CALL deposition_ice_ij( i,j ) 1944 1947 IF ( snow .AND. graupel ) THEN 1945 CALL deposition_snow_ij 1946 CALL deposition_graupel_ij 1947 CALL selfcollection_ice_ij 1948 CALL selfcollection_snow_ij 1949 CALL selfcollection_graupel_ij 1950 CALL collection_graupel_ice_ij 1951 CALL collection_snow_ice_ij 1952 CALL collection_graupel_snow_ij 1953 CALL riming_graupel_cloud_ij 1954 CALL riming_graupel_rain_ij 1955 CALL riming_ice_cloud_ij 1956 CALL riming_ice_rain_ij 1957 CALL riming_snow_cloud_ij 1958 CALL riming_snow_rain_ij 1948 CALL deposition_snow_ij ( i,j ) 1949 CALL deposition_graupel_ij( i,j ) 1950 CALL selfcollection_ice_ij( i,j ) 1951 CALL selfcollection_snow_ij( i,j ) 1952 CALL selfcollection_graupel_ij( i,j ) 1953 CALL collection_graupel_ice_ij( i,j ) 1954 CALL collection_snow_ice_ij( i,j ) 1955 CALL collection_graupel_snow_ij( i,j ) 1956 CALL riming_graupel_cloud_ij( i,j ) 1957 CALL riming_graupel_rain_ij( i,j ) 1958 CALL riming_ice_cloud_ij( i,j ) 1959 CALL riming_ice_rain_ij( i,j ) 1960 CALL riming_snow_cloud_ij( i,j ) 1961 CALL riming_snow_rain_ij( i,j ) 1959 1962 CALL heterogeneous_freezing_rain_ij( i,j ) 1960 CALL melting_ice_ij 1961 CALL melting_snow_ij 1962 CALL melting_graupel_ij 1963 CALL evaporation_graupel_ij 1964 CALL evaporation_snow_ij 1963 CALL melting_ice_ij( i,j ) 1964 CALL melting_snow_ij( i,j ) 1965 CALL melting_graupel_ij( i,j ) 1966 CALL evaporation_graupel_ij( i,j ) 1967 CALL evaporation_snow_ij( i,j ) 1965 1968 ENDIF 1966 1969 ENDIF 1967 CALL autoconversion_ij 1968 CALL accretion_ij 1969 CALL selfcollection_breakup_rain_ij 1970 CALL evaporation_rain_ij 1971 CALL sedimentation_rain_ij 1972 IF ( cloud_water_sedimentation ) CALL sedimentation_cloud_ij 1970 CALL autoconversion_ij( i,j ) 1971 CALL accretion_ij( i,j ) 1972 CALL selfcollection_breakup_rain_ij( i,j ) 1973 CALL evaporation_rain_ij( i,j ) 1974 CALL sedimentation_rain_ij( i,j ) 1975 IF ( cloud_water_sedimentation ) CALL sedimentation_cloud_ij( i,j ) 1973 1976 IF ( microphysics_ice_phase .AND. simulated_time > start_ice_microphysics ) THEN 1974 IF ( ice_crystal_sedimentation ) CALL sedimentation_ice_ij 1975 IF ( snow_sedimentation .AND. snow ) CALL sedimentation_snow_ij 1976 IF ( graupel_sedimentation .AND. graupel ) CALL sedimentation_graupel_ij 1977 IF ( ice_crystal_sedimentation ) CALL sedimentation_ice_ij( i,j ) 1978 IF ( snow_sedimentation .AND. snow ) CALL sedimentation_snow_ij( i,j ) 1979 IF ( graupel_sedimentation .AND. graupel ) CALL sedimentation_graupel_ij( i,j ) 1977 1980 ENDIF 1978 1981
Note: See TracChangeset
for help on using the changeset viewer.
