|
integer, parameter | npt =1024 |
|
real, parameter | one6th =1./6. |
|
real, parameter | one3rd =1./3. |
|
real, parameter | pi =3.14159265 |
|
real, parameter | ftpi =4.1887902 |
|
real, parameter | bignum =1.e38 |
|
real, parameter | diff1 =.999 |
|
logical, save | advection |
|
real *8, dimension(npt), save | scrh |
|
real *8, dimension(npt), save | scr1 |
|
real *8, dimension(npt), save | diff |
|
real *8, dimension(npt), save | dflx |
|
real *8, dimension(npt), save | flxh |
|
real *8, dimension(npt), save | fabs |
|
real *8, dimension(npt), save | fsgn |
|
real *8, dimension(npt), save | term |
|
real *8, dimension(npt), save | terp |
|
real *8, dimension(npt), save | lnrhot |
|
real *8, dimension(npt), save | lorhot |
|
real *8, dimension(npt), save | rhot |
|
real *8, dimension(npt), save | rhotd |
|
real *8, dimension(npt), save | lo |
|
real *8, dimension(npt), save | ln |
|
real *8, dimension(npt), save | ah |
|
real *8, dimension(npt), save | ar |
|
real *8, dimension(npt), save | rln |
|
real *8, dimension(npt), save | lh |
|
real *8, dimension(npt), save | rlh |
|
real *8, dimension(npt), save | rap_vol |
|
real *8, dimension(npt), save | roh |
|
real *8, dimension(npt), save | rnh |
|
real *8, dimension(npt), save | adugth |
|
real *8, dimension(npt), save | hadudth |
|
real *8, dimension(npt), save | nulh |
|
real *8, dimension(npt), save | mulh |
|
real *8, dimension(npt), save | epsh |
|
real *8, dimension(npt), save | vdtodr |
|
logical | flag |
|
Module for lcpfct routine.