Advertisement
Thomas_Lillieskold

DATA

Mar 25th, 2023
1,390
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. module Datos
  2.   implicit none
  3.  
  4.   REAL(8),PARAMETER:: t_min=0.541
  5.   REAL(8),PARAMETER:: t_max=28.55
  6.  
  7.   REAL(8),PARAMETER:: Inc_min=1.e-3
  8.   REAL(8),PARAMETER:: Inc_max=2.d0
  9.   REAL(8),PARAMETER:: k=(Inc_min + Inc_max )/2.d0
  10.  
  11.   INTEGER,PARAMETER:: dim =((t_max-t_min)/k)
  12.   INTEGER,PARAMETER:: neq=4
  13.  
  14.   REAL(8),PARAMETER:: E_max=2.d0
  15.   REAL(8),PARAMETER:: E_min=0.15
  16.  
  17.  
  18.   REAL(8),PARAMETER:: g=9.80665
  19.   REAL(8),PARAMETER:: C_d=0.5
  20.   REAL(8),PARAMETER:: rho=1.225
  21.   REAL(8),PARAMETER:: s=0.05
  22.  
  23.   REAL(8),PARAMETER:: phi_1=10.d0*sqrt(3.d0)/2.d0
  24.   REAL(8),PARAMETER:: phi_2=37.33*sqrt(3.d0)/2.d0
  25.   REAL(8),PARAMETER:: phi_3=5.d0
  26.   REAL(8),PARAMETER:: phi_4=37.33/2.d0
  27.  
  28.  
  29. end module Datos
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement