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

Timestamp:

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

Author:

suehring

Message:

Branch salsa @3446 re-integrated into trunk

Location:

palm/trunk/SOURCE

Files:

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

palm/trunk/SOURCE/sum_up_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
 ! 
@@ -275 +278 @@
     USE radiation_model_mod,                                                   &
         ONLY:  radiation, radiation_3d_data_averaging
+         
+    USE salsa_mod,                                                             &
+        ONLY:  salsa, salsa_3d_data_averaging          
 
     USE surface_mod,                                                           &
@@ -539 +545 @@
                    CALL radiation_3d_data_averaging( 'allocate', doav(ii) )
                 ENDIF
+                
+!
+!--             SALSA quantity
+                IF ( salsa )  THEN
+                   CALL salsa_3d_data_averaging( 'allocate', doav(ii) )
+                ENDIF                
 
                 CALL tcm_3d_data_averaging( 'allocate', doav(ii) )
@@ -1187 +1199 @@
                 CALL radiation_3d_data_averaging( 'sum', doav(ii) )
              ENDIF
+             
+!
+!--          SALSA quantity
+             IF ( salsa )  THEN
+                CALL salsa_3d_data_averaging( 'sum', doav(ii) )
+             ENDIF                 
 
              CALL tcm_3d_data_averaging( 'sum', doav(ii) )