Changeset 1957 for palm/trunk/SOURCE/modules.f90

Timestamp:

Jul 7, 2016 10:43:48 AM (8 years ago)

Author:

suehring

Message:

flight module added

File:

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

palm/trunk/SOURCE/modules.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! +fl_max, num_leg, num_var_fl, num_var_fl_user, var_fl_max, virtual_flight
 !
 ! Former revisions:
@@ -615 +615 @@
     CHARACTER (LEN=20), DIMENSION(0:1,100) ::  do2d = ' ', do3d = ' '
 
+    INTEGER(iwp), PARAMETER :: fl_max = 100, var_fl_max = 20
+    
     INTEGER(iwp) ::  abort_mode = 1, average_count_pr = 0, &
                      average_count_3d = 0, current_timestep_number = 0, &
@@ -637 +639 @@
                      nr_timesteps_this_run = 0, &
                      nsor = 20, nsor_ini = 100, n_sor, normalizing_region = 0, &
+                     num_leg=0, num_var_fl, num_var_fl_user=0, &
                      nz_do3d = -9999, prt_time_count = 0, &
                      recycling_plane, runnr = 0, &
@@ -701 +704 @@
                 microphysics_seifert = .FALSE., &
                 mg_switch_to_pe0 = .FALSE., &
-                monotonic_adjustment = .FALSE.
+                monotonic_adjustment = .FALSE., virtual_flight = .FALSE.
     LOGICAL ::  nest_bound_l = .FALSE. !< nested boundary on left side
     LOGICAL ::  nest_bound_n = .FALSE. !< nested boundary on north side