Changeset 3467 for palm/trunk/SOURCE/average_3d_data.f90

Timestamp:

Oct 30, 2018 7:05:21 PM (6 years ago)

Author:

suehring

Message:

Branch salsa @3446 re-integrated into trunk

Location:

palm/trunk/SOURCE

Files:

• . (modified) (1 prop)
• average_3d_data.f90 (modified) (4 diffs)

palm/trunk/SOURCE/average_3d_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Implementation of a new aerosol module salsa. 
+! 
+! 3448 2018-10-29 18:14:31Z kanani
 ! Adjustment of biometeorology calls
 ! 
@@ -71 +74 @@
 ! Implementation of new microphysic scheme: cloud_scheme = 'morrison' 
 ! includes two more prognostic equations for cloud drop concentration (nc)  
-! and cloud water content (qc). 
+! and cloud water content (qc).  
 ! 
 ! 2233 2017-05-30 18:08:54Z suehring
@@ -188 +191 @@
     USE radiation_model_mod,                                                   &
         ONLY:  radiation, radiation_3d_data_averaging
+           
+    USE salsa_mod,                                                             &
+        ONLY:  salsa, salsa_3d_data_averaging 
 
     USE turbulence_closure_mod,                                                &
@@ -569 +575 @@
                 CALL radiation_3d_data_averaging( 'average', doav(ii) )
              ENDIF
+             
+             IF ( salsa )  THEN
+                CALL salsa_3d_data_averaging( 'average', doav(ii) )
+             ENDIF             
 
              IF ( biometeorology )  THEN