Changeset 3467 for palm/trunk/SOURCE/init_3d_model.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)
• init_3d_model.f90 (modified) (4 diffs, 1 prop)

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Implementation of a new aerosol module salsa.
+! 
+! 3458 2018-10-30 14:51:23Z kanani
 ! from chemistry branch r3443, basit:
 ! bug fixed in sums and sums_l for chemistry profile output
@@ -618 +621 @@
     USE random_generator_parallel,                                             &
         ONLY:  init_parallel_random_generator
-
+        
     USE read_restart_data_mod,                                                 &
-        ONLY:  rrd_read_parts_of_global, rrd_local                                      
+        ONLY:  rrd_read_parts_of_global, rrd_local    
+             
+    USE salsa_mod,                                                             &
+        ONLY:  salsa, salsa_init, salsa_init_arrays      
     
     USE statistics,                                                            &
@@ -1065 +1071 @@
     IF ( land_surface        )  CALL lsm_init_arrays
     IF ( ocean_mode          )  CALL ocean_init_arrays
+    IF ( salsa               )  CALL salsa_init_arrays
     IF ( wind_turbine        )  CALL wtm_init_arrays
     IF ( uv_exposure         )  CALL uvem_init_arrays
@@ -2413 +2420 @@
 
 !
+!-- If required, initialize quantities needed in SALSA 
+    IF ( salsa )  THEN
+       CALL location_message( 'initializing SALSA model', .TRUE. )
+       CALL salsa_init 
+       CALL location_message( 'finished', .TRUE. )
+    ENDIF
+
+!
 !-- If required, initialize quantities needed for the gust module
     IF ( gust_module_enabled )  THEN