Changeset 3159 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Jul 20, 2018 11:20:01 AM (6 years ago)

Author:

sward

Message:

Added multi agent system

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (4 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added multi agent system
+! 
+! 3129 2018-07-16 07:45:13Z gronemeier
 ! Move initialization call for nudging and 1D/3D offline nesting. 
 ! Revise initialization with inifor data.
@@ -506 +509 @@
     
     USE indices
+    
+    USE kinds
+
+    USE land_surface_model_mod,                                                &
+        ONLY:  lsm_init, lsm_init_arrays
 
     USE lpm_init_mod,                                                          &
         ONLY:  lpm_init
-    
-    USE kinds
-
-    USE land_surface_model_mod,                                                &
-        ONLY:  lsm_init, lsm_init_arrays
   
     USE lsf_nudging_mod,                                                       &
@@ -524 +527 @@
         ONLY:  e1d, init_1d_model, kh1d, km1d, l1d, rif1d, u1d, us1d, usws1d,  &
                v1d, vsws1d 
+
+    USE multi_agent_system_mod,                                                &
+        ONLY:  agents_active, mas_init
 
     USE netcdf_interface,                                                      &
@@ -2367 +2373 @@
 
 !
+!-- If required, initialize particles
+    IF ( agents_active )  CALL mas_init
+
+!
 !-- If required, initialize quantities needed for the LSM
     IF ( land_surface )  THEN