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

Timestamp:

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

Author:

sward

Message:

Added multi agent system

File:

• palm/trunk/SOURCE/parin.f90 (modified) (3 diffs)

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added multi agent system
+! 
+! 3157 2018-07-19 21:08:49Z maronga
 ! added use_free_convection_scaling
 ! 
@@ -441 +444 @@
     USE model_1d_mod,                                                          &
         ONLY:  damp_level_1d, dt_pr_1d, dt_run_control_1d, end_time_1d
+
+    USE multi_agent_system_mod,                                                &
+        ONLY:  mas_parin
 
     USE netcdf_interface,                                                      &
@@ -843 +849 @@
 !--       Check if gust module is used and read &gust_par if required
           CALL gust_parin
- 
- 
+
+!
+!--       Check if multi agent system is used and read &agents_par if required
+          CALL mas_parin
+
+!
 !--       Check if plant canopy model is used and read &canopy_par if required
           CALL pcm_parin
- 
+
 !
 !--       Read control parameters for optionally used model software packages