Ignore:
Timestamp:
Aug 7, 2017 12:15:38 PM (4 years ago)
Author:
gronemeier
Message:

modularized 1d model

File:
1 edited

Legend:

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

    r2337 r2338  
    2525! -----------------
    2626! $Id$
     27! moved 1d-model varaibles to own module model_1d_mod
     28!
     29!
    2730! -old_dt_1d
    2831! +l1d_diss
     
    17431746! Description:
    17441747! ------------
    1745 !> Definition of variables for the 1D-model.
    1746 !------------------------------------------------------------------------------!
    1747  MODULE model_1d
    1748 
    1749     USE kinds
    1750 
    1751     INTEGER(iwp) ::  current_timestep_number_1d = 0  !< current timestep number (1d-model)
    1752     INTEGER(iwp) ::  damp_level_ind_1d               !< lower grid index of damping layer (1d-model)
    1753 
    1754     LOGICAL ::  run_control_header_1d = .FALSE.  !< flag for output of run control header (1d-model)
    1755     LOGICAL ::  stop_dt_1d = .FALSE.             !< termination flag, used in case of too small timestep (1d-model)
    1756 
    1757     REAL(wp) ::  damp_level_1d = -1.0_wp       !< namelist parameter
    1758     REAL(wp) ::  dt_1d = 60.0_wp               !< dynamic timestep (1d-model)
    1759     REAL(wp) ::  dt_max_1d = 300.0_wp          !< timestep limit (1d-model)
    1760     REAL(wp) ::  dt_pr_1d = 9999999.9_wp       !< namelist parameter
    1761     REAL(wp) ::  dt_run_control_1d = 60.0_wp   !< namelist parameter
    1762     REAL(wp) ::  end_time_1d = 864000.0_wp     !< namelist parameter
    1763     REAL(wp) ::  qs1d                          !< characteristic humidity scale (1d-model)
    1764     REAL(wp) ::  simulated_time_1d = 0.0_wp    !< updated simulated time (1d-model)
    1765     REAL(wp) ::  time_pr_1d = 0.0_wp           !< updated simulated time for profile output (1d-model)
    1766     REAL(wp) ::  time_run_control_1d = 0.0_wp  !< updated simulated time for run-control output (1d-model)
    1767     REAL(wp) ::  ts1d                          !< characteristic temperature scale (1d-model)
    1768     REAL(wp) ::  us1d                          !< friction velocity (1d-model)
    1769     REAL(wp) ::  usws1d                        !< u-component of the momentum flux (1d-model)
    1770     REAL(wp) ::  vsws1d                        !< v-component of the momentum flux (1d-model)   
    1771     REAL(wp) ::  z01d                          !< roughness length for momentum (1d-model)
    1772     REAL(wp) ::  z0h1d                         !< roughness length for scalars (1d-model)
    1773 
    1774 
    1775     REAL(wp), DIMENSION(:), ALLOCATABLE ::  e1d      !< tke (1d-model)
    1776     REAL(wp), DIMENSION(:), ALLOCATABLE ::  e1d_p    !< prognostic value of tke (1d-model)
    1777     REAL(wp), DIMENSION(:), ALLOCATABLE ::  kh1d     !< turbulent diffusion coefficient for heat (1d-model)
    1778     REAL(wp), DIMENSION(:), ALLOCATABLE ::  km1d     !< turbulent diffusion coefficient for momentum (1d-model)
    1779     REAL(wp), DIMENSION(:), ALLOCATABLE ::  l_black  !< mixing length Blackadar (1d-model)
    1780     REAL(wp), DIMENSION(:), ALLOCATABLE ::  l1d      !< mixing length for turbulent diffusion coefficients (1d-model)
    1781     REAL(wp), DIMENSION(:), ALLOCATABLE ::  l1d_diss !< mixing length for dissipation (1d-model)
    1782     REAL(wp), DIMENSION(:), ALLOCATABLE ::  rif1d    !< Richardson flux number (1d-model)
    1783     REAL(wp), DIMENSION(:), ALLOCATABLE ::  te_e     !< tendency of e (1d-model)
    1784     REAL(wp), DIMENSION(:), ALLOCATABLE ::  te_em    !< weighted tendency of e for previous sub-timestep (1d-model)
    1785     REAL(wp), DIMENSION(:), ALLOCATABLE ::  te_u     !< tendency of u (1d-model)
    1786     REAL(wp), DIMENSION(:), ALLOCATABLE ::  te_um    !< weighted tendency of u for previous sub-timestep (1d-model)
    1787     REAL(wp), DIMENSION(:), ALLOCATABLE ::  te_v     !< tendency of v (1d-model)
    1788     REAL(wp), DIMENSION(:), ALLOCATABLE ::  te_vm    !< weighted tendency of v for previous sub-timestep (1d-model)
    1789     REAL(wp), DIMENSION(:), ALLOCATABLE ::  u1d      !< u-velocity component (1d-model)
    1790     REAL(wp), DIMENSION(:), ALLOCATABLE ::  u1d_p    !< prognostic value of u-velocity component (1d-model)
    1791     REAL(wp), DIMENSION(:), ALLOCATABLE ::  v1d      !< v-velocity component (1d-model)
    1792     REAL(wp), DIMENSION(:), ALLOCATABLE ::  v1d_p    !< prognostic value of v-velocity component (1d-model)
    1793 
    1794     SAVE
    1795 
    1796  END MODULE model_1d
    1797 
    1798 
    1799 
    1800 
    1801 !------------------------------------------------------------------------------!
    1802 ! Description:
    1803 ! ------------
    18041748!> Definition of variables which define processor topology and the exchange of
    18051749!> ghost point layers. This module must be placed in all routines containing
Note: See TracChangeset for help on using the changeset viewer.