Changeset 4754 for palm/trunk


Ignore:
Timestamp:
Oct 21, 2020 2:58:15 PM (4 years ago)
Author:
schwenkel
Message:

minor reformatting

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/bulk_cloud_model_mod.f90

    r4742 r4754  
    2424! -----------------
    2525! $Id$
     26! Minor reformatting
     27!
     28! 4742 2020-10-14 15:11:02Z schwenkel
    2629! Implement snow and graupel (bulk microphysics)
    2730!
     
    18861889             CALL adjust_cloud_ij( i,j )
    18871890             IF ( microphysics_ice_phase  .AND.  simulated_time > start_ice_microphysics )  THEN
    1888                  CALL adjust_ice_ij                    ( i,j )
    1889                  CALL nucleation_ice_ij                ( i,j )
    1890                  CALL homogeneous_freezing_cloud_ij    ( i,j )
    1891                  CALL deposition_ice_ij                ( i,j )
     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 )
    18921895                 IF ( snow  .AND.  graupel )  THEN
    1893                     CALL deposition_snow_ij            ( i,j )
    1894                     CALL deposition_graupel_ij         ( i,j )
    1895                     CALL selfcollection_ice_ij         ( i,j )
    1896                     CALL selfcollection_snow_ij        ( i,j )
    1897                     CALL selfcollection_graupel_ij     ( i,j )
    1898                     CALL collection_graupel_ice_ij     ( i,j )
    1899                     CALL collection_snow_ice_ij        ( i,j )
    1900                     CALL collection_graupel_snow_ij    ( i,j )
    1901                     CALL riming_graupel_cloud_ij       ( i,j )
    1902                     CALL riming_graupel_rain_ij        ( i,j )
    1903                     CALL riming_ice_cloud_ij           ( i,j )
    1904                     CALL riming_ice_rain_ij            ( i,j )
    1905                     CALL riming_snow_cloud_ij          ( i,j )
    1906                     CALL riming_snow_rain_ij           ( i,j )
     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 )
    19071910                    CALL heterogeneous_freezing_rain_ij( i,j )
    1908                     CALL melting_ice_ij                ( i,j )
    1909                     CALL melting_snow_ij               ( i,j )
    1910                     CALL melting_graupel_ij            ( i,j )
    1911                     CALL evaporation_graupel_ij        ( i,j )
    1912                     CALL evaporation_snow_ij           ( i,j )
     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 )
    19131916                 ENDIF
    19141917             ENDIF
    1915              CALL autoconversion_ij             ( i,j )
    1916              CALL accretion_ij                  ( i,j )
     1918             CALL autoconversion_ij( i,j )
     1919             CALL accretion_ij( i,j )
    19171920             CALL selfcollection_breakup_rain_ij( i,j )
    1918              CALL evaporation_rain_ij           ( i,j )
    1919              CALL sedimentation_rain_ij         ( i,j )
    1920              IF ( cloud_water_sedimentation )  CALL sedimentation_cloud_ij       ( i,j )
     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 )
    19211924             IF ( microphysics_ice_phase  .AND.  simulated_time > start_ice_microphysics )  THEN
    1922                  IF ( ice_crystal_sedimentation )             CALL sedimentation_ice_ij     ( i,j )
    1923                  IF ( snow_sedimentation  .AND.  snow )       CALL sedimentation_snow_ij    ( i,j )
    1924                  IF ( graupel_sedimentation .AND.  graupel )  CALL sedimentation_graupel_ij ( i,j )
     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 )
    19251928             ENDIF
    19261929!
     
    19281931!--       allocated.
    19291932          ELSEIF ( microphysics_morrison_no_rain  .AND.  .NOT. microphysics_seifert )  THEN
    1930              CALL activation_cloud_ij  ( i,j )
     1933             CALL activation_cloud_ij( i,j )
    19311934             CALL condensation_cloud_ij( i,j )
    19321935             IF ( cloud_water_sedimentation )  CALL sedimentation_cloud_ij( i,j )
     
    19341937!--       Here the full morrison scheme is used and all processes of Seifert and Beheng are included
    19351938          ELSEIF ( microphysics_morrison  .AND.  microphysics_seifert )  THEN
    1936              CALL adjust_cloud_ij      ( i,j )
    1937              CALL activation_cloud_ij  ( i,j )
     1939             CALL adjust_cloud_ij( i,j )
     1940             CALL activation_cloud_ij( i,j )
    19381941             CALL condensation_cloud_ij( i,j )
    19391942             IF ( microphysics_ice_phase  .AND.  simulated_time > start_ice_microphysics )  THEN
    1940                  CALL adjust_ice_ij                    ( i,j )
    1941                  CALL nucleation_ice_ij                ( i,j )
    1942                  CALL homogeneous_freezing_cloud_ij    ( i,j )
    1943                  CALL deposition_ice_ij                ( i,j )
     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 )
    19441947                 IF ( snow  .AND.  graupel )  THEN
    1945                     CALL deposition_snow_ij            ( i,j )
    1946                     CALL deposition_graupel_ij         ( i,j )
    1947                     CALL selfcollection_ice_ij         ( i,j )
    1948                     CALL selfcollection_snow_ij        ( i,j )
    1949                     CALL selfcollection_graupel_ij     ( i,j )
    1950                     CALL collection_graupel_ice_ij     ( i,j )
    1951                     CALL collection_snow_ice_ij        ( i,j )
    1952                     CALL collection_graupel_snow_ij    ( i,j )
    1953                     CALL riming_graupel_cloud_ij       ( i,j )
    1954                     CALL riming_graupel_rain_ij        ( i,j )
    1955                     CALL riming_ice_cloud_ij           ( i,j )
    1956                     CALL riming_ice_rain_ij            ( i,j )
    1957                     CALL riming_snow_cloud_ij          ( i,j )
    1958                     CALL riming_snow_rain_ij           ( i,j )
     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 )
    19591962                    CALL heterogeneous_freezing_rain_ij( i,j )
    1960                     CALL melting_ice_ij                ( i,j )
    1961                     CALL melting_snow_ij               ( i,j )
    1962                     CALL melting_graupel_ij            ( i,j )
    1963                     CALL evaporation_graupel_ij        ( i,j )
    1964                     CALL evaporation_snow_ij           ( i,j )
     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 )
    19651968                 ENDIF
    19661969             ENDIF
    1967              CALL autoconversion_ij                 ( i,j )
    1968              CALL accretion_ij                      ( i,j )
    1969              CALL selfcollection_breakup_rain_ij    ( i,j )
    1970              CALL evaporation_rain_ij               ( i,j )
    1971              CALL sedimentation_rain_ij             ( i,j )
    1972              IF ( cloud_water_sedimentation )  CALL sedimentation_cloud_ij       ( i,j )
     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 )
    19731976             IF ( microphysics_ice_phase  .AND.  simulated_time > start_ice_microphysics )  THEN
    1974                  IF ( ice_crystal_sedimentation )              CALL sedimentation_ice_ij     ( i,j )
    1975                  IF ( snow_sedimentation  .AND.  snow )        CALL sedimentation_snow_ij    ( i,j )
    1976                  IF ( graupel_sedimentation  .AND.  graupel )  CALL sedimentation_graupel_ij ( i,j )
     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 )
    19771980             ENDIF
    19781981
Note: See TracChangeset for help on using the changeset viewer.