Changeset 4742 for palm/trunk/SOURCE/netcdf_interface_mod.f90

Timestamp:

Oct 14, 2020 3:11:02 PM (4 years ago)

Author:

schwenkel

Message:

Implement snow and graupel (bulk microphysics)

File:

• palm/trunk/SOURCE/netcdf_interface_mod.f90 (modified) (7 diffs)

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
-! 
+!
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! Implement snow and graupel (bulk microphysics)
+! 
+! 4502 2020-04-17 16:14:16Z schwenkel
 ! Implementation of ice microphysics
 ! 
@@ -883 +886 @@
                 CASE ( 'e', 'nc', 'nr', 'p', 'pc', 'pr', 'prr',                &
                        'q', 'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv',   &
-                       's', 'theta', 'thetal', 'thetav', 'qi', 'ni' )
+                       's', 'theta', 'thetal', 'thetav', 'qi', 'ni', 'qg', 'ng', 'qs', 'ns' )
 
                    grid_x = 'x'
@@ -1645 +1648 @@
 !
 !--             Most variables are defined on the scalar grid
-                CASE ( 'e', 'nc', 'nr', 'p', 'pc', 'pr', 'prr',   &
-                       'q', 'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv',   &
-                       's', 'theta', 'thetal', 'thetav', 'qi', 'ni' )
+                CASE ( 'e', 'nc', 'nr', 'p', 'pc', 'pr', 'prr',                                    &
+                       'q', 'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv',                       &
+                       's', 'theta', 'thetal', 'thetav', 'qi', 'ni', 'qg', 'ng', 'qs', 'ns'  )
 
                    grid_x = 'x'
@@ -2662 +2665 @@
 !
 !--                   Most variables are defined on the zu grid
-                      CASE ( 'e_xy', 'nc_xy', 'ni_xy', 'nr_xy', 'p_xy',        &
+                      CASE ( 'e_xy', 'nc_xy', 'ng_xy', 'ni_xy', 'nr_xy', 'ns_xy', 'p_xy',          &
                              'pc_xy', 'pr_xy', 'prr_xy', 'q_xy',               &
-                             'qc_xy', 'qi_xy', 'ql_xy', 'ql_c_xy', 'ql_v_xy',  &
-                             'ql_vp_xy', 'qr_xy', 'qv_xy',                     &
+                             'qc_xy', 'qg_xy', 'qi_xy', 'ql_xy', 'ql_c_xy', 'ql_v_xy',             &
+                             'ql_vp_xy', 'qr_xy', 'qs_xy', 'qv_xy',                                &
                              's_xy',                                           &
                              'theta_xy', 'thetal_xy', 'thetav_xy' )
@@ -3586 +3589 @@
 !
 !--                Most variables are defined on the zu grid
-                   CASE ( 'e_xz', 'nc_xz', 'ni_xz', 'nr_xz', 'p_xz', 'pc_xz',  &
-                          'pr_xz', 'prr_xz', 'q_xz', 'qc_xz', 'qi_xz',         &
-                          'ql_xz', 'ql_c_xz', 'ql_v_xz', 'ql_vp_xz', 'qr_xz',  &
-                          'qv_xz', 's_xz',                                     &
+                   CASE ( 'e_xz', 'nc_xz', 'ng_xz', 'ni_xz', 'nr_xz', 'ns_xz', 'p_xz', 'pc_xz',    &
+                          'pr_xz', 'prr_xz', 'q_xz', 'qc_xz', 'qg_xz', 'qi_xz',                    &
+                          'ql_xz', 'ql_c_xz', 'ql_v_xz', 'ql_vp_xz', 'qr_xz', 'qs_xz',             &
+                          'qv_xz', 's_xz',                                                         &
                           'theta_xz', 'thetal_xz', 'thetav_xz' )
 
@@ -4463 +4466 @@
 !
 !--                Most variables are defined on the zu grid
-                   CASE ( 'e_yz', 'nc_yz', 'ni_yz', 'nr_yz', 'p_yz', 'pc_yz',  &
-                          'pr_yz','prr_yz', 'q_yz', 'qc_yz', 'qi_yz', 'ql_yz', &
-                          'ql_c_yz', 'ql_v_yz', 'ql_vp_yz', 'qr_yz', 'qv_yz',  &
-                          's_yz',                                              &
+                   CASE ( 'e_yz', 'nc_yz', 'ng_yz', 'ni_yz', 'nr_yz', 'ns_yz', 'p_yz', 'pc_yz',    &
+                          'pr_yz','prr_yz', 'q_yz', 'qc_yz', 'qg_yz', 'qi_yz', 'ql_yz',            &
+                          'ql_c_yz', 'ql_v_yz', 'ql_vp_yz', 'qr_yz', 'qs_yz', 'qv_yz',             &
+                          's_yz',                                                                  &
                           'theta_yz', 'thetal_yz', 'thetav_yz', 'ti_yz' )
 
@@ -5856 +5859 @@
 !
 !--             Most variables are defined on the zu levels
-                CASE ( 'e', 'nc', 'nr', 'p', 'pc', 'pr', 'prr', 'ni', 'qi',    &
-                       'q', 'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv',   &
+                CASE ( 'e', 'nc', 'ng', 'ni', 'nr', 'ns', 'p', 'pc', 'pr', 'prr',                  &
+                       'q', 'qc', 'qg', 'qi', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qs', 'qv',     &
                        'rho_sea_water', 's', 'sa', &
                        'theta', 'thetal', 'thetav', 'u', 'v' )