|
|
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.