module Constants real,parameter::PI=3.14159265 REAL:: SG=1.12,WDENS=1000,GRAVITY=9.81,RE_CR=2000,NU=9e-6 end module Constants