Changeset 1585 for palm/trunk/SOURCE/netcdf.f90

Timestamp:

Apr 30, 2015 7:05:52 AM (9 years ago)

Author:

maronga

Message:

Added support for RRTMG radiation code

File:

• palm/trunk/SOURCE/netcdf.f90 (modified) (6 diffs)

palm/trunk/SOURCE/netcdf.f90

@@ -148 +148 @@
     USE profil_parameter,                                                       &
         ONLY:  crmax, cross_profiles, dopr_index,profile_columns, profile_rows
+
+    USE radiation_model_mod,                                                    &
+        ONLY:  rad_lw_in, rad_lw_out, rad_sw_in, rad_sw_out
 
     USE spectrum,                                                               &
@@ -523 +526 @@
                 CASE ( 'e', 'lpt', 'nr', 'p', 'pc', 'pr', 'prr', 'pt', 'q',&
                        'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv',    &
-                       'rho', 's', 'sa', 'vpt' )
+                       'rho', 's', 'sa', 'vpt', 'rad_lw_in', 'rad_lw_out', &
+                       'rad_sw_in', 'rad_sw_out' )
 
                    grid_x = 'x'
@@ -1103 +1107 @@
                 CASE ( 'e', 'lpt', 'nr', 'p', 'pc', 'pr', 'prr', 'pt', 'q',   &
                        'qc', 'ql', 'ql_c', 'ql_v', 'ql_vp', 'qr', 'qv', 'rho',&
-                       's', 'sa', 'vpt' )
+                       's', 'sa', 'vpt' , 'rad_lw_in', 'rad_lw_out',          &
+                       'rad_sw_in', 'rad_sw_out' )
 
                    grid_x = 'x'
@@ -1756 +1761 @@
                              'prr_xy', 'pt_xy', 'q_xy', 'qc_xy', 'ql_xy',        &
                              'ql_c_xy', 'ql_v_xy', 'ql_vp_xy', 'qr_xy', 'qv_xy', &
-                             'rho_xy', 's_xy', 'sa_xy', 'vpt_xy' )
+                             'rho_xy', 's_xy', 'sa_xy', 'vpt_xy', 'rad_lw_in_xy',&
+                             'rad_lw_out_xy', 'rad_sw_in_xy', 'rad_sw_out_xy' )
 
                          grid_x = 'x'
@@ -2439 +2445 @@
                           'prr_xz', 'pt_xz', 'q_xz', 'qc_xz', 'ql_xz',         &
                           'ql_c_xz', 'ql_v_xz', 'ql_vp_xz', 'qr_xz', 'qv_xz',  &
-                          'rho_xz', 's_xz', 'sa_xz', 'vpt_xz' )
+                          'rho_xz', 's_xz', 'sa_xz', 'vpt_xz' , 'rad_lw_in_xz',&
+                             'rad_lw_out_xz', 'rad_sw_in_xz', 'rad_sw_out_xz' )
 
                       grid_x = 'x'
@@ -3115 +3122 @@
                           'prr_yz', 'pt_yz', 'q_yz', 'qc_yz', 'ql_yz',        &
                           'ql_c_yz', 'ql_v_yz', 'ql_vp_yz', 'qr_yz', 'qv_yz', &
-                          'rho_yz', 's_yz', 'sa_yz', 'vpt_yz' )
+                          'rho_yz', 's_yz', 'sa_yz', 'vpt_yz', 'rad_lw_in_yz',&
+                             'rad_lw_out_yz', 'rad_sw_in_yz', 'rad_sw_out_yz' )
 
                       grid_x = 'x'