Ignore:
Timestamp:
Jul 7, 2016 10:43:48 AM (5 years ago)
Author:
suehring
Message:

flight module added

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/modules.f90

    r1919 r1957  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! +fl_max, num_leg, num_var_fl, num_var_fl_user, var_fl_max, virtual_flight
    2222!
    2323! Former revisions:
     
    615615    CHARACTER (LEN=20), DIMENSION(0:1,100) ::  do2d = ' ', do3d = ' '
    616616
     617    INTEGER(iwp), PARAMETER :: fl_max = 100, var_fl_max = 20
     618   
    617619    INTEGER(iwp) ::  abort_mode = 1, average_count_pr = 0, &
    618620                     average_count_3d = 0, current_timestep_number = 0, &
     
    637639                     nr_timesteps_this_run = 0, &
    638640                     nsor = 20, nsor_ini = 100, n_sor, normalizing_region = 0, &
     641                     num_leg=0, num_var_fl, num_var_fl_user=0, &
    639642                     nz_do3d = -9999, prt_time_count = 0, &
    640643                     recycling_plane, runnr = 0, &
     
    701704                microphysics_seifert = .FALSE., &
    702705                mg_switch_to_pe0 = .FALSE., &
    703                 monotonic_adjustment = .FALSE.
     706                monotonic_adjustment = .FALSE., virtual_flight = .FALSE.
    704707    LOGICAL ::  nest_bound_l = .FALSE. !< nested boundary on left side
    705708    LOGICAL ::  nest_bound_n = .FALSE. !< nested boundary on north side
Note: See TracChangeset for help on using the changeset viewer.