#include "netcdf.inc"
#include "dimensions.h"
#include "paramet.h"
#include "comconst.h"
#include "comgeom.h"
#include "temps.h"
#include "ener.h"
#include "logic.h"
#include "description.h"
#include "serre.h"
#include "indicesol.h"
Go to the source code of this file.
Functions/Subroutines |
subroutine | read_pstoke0 (irec, zrec, zkon, zkev, airefi, phisfi, t, mfu, mfd, en_u, de_u, en_d, de_d, coefh, fm_therm, en_therm, frac_impa, frac_nucl, pyu1, pyv1, ftsol, psrf) |
Function/Subroutine Documentation
subroutine read_pstoke0 |
( |
integer |
irec, |
|
|
integer |
zrec, |
|
|
integer |
zkon, |
|
|
integer |
zkev, |
|
|
real, dimension(kon) |
airefi, |
|
|
real, dimension(kon) |
phisfi, |
|
|
real, dimension(kon,kev) |
t, |
|
|
real, dimension(kon,kev) |
mfu, |
|
|
real, dimension(kon,kev) |
mfd, |
|
|
real, dimension(kon,kev) |
en_u, |
|
|
real, dimension(kon,kev) |
de_u, |
|
|
real, dimension(kon,kev) |
en_d, |
|
|
real, dimension(kon,kev) |
de_d, |
|
|
real, dimension(kon,kev) |
coefh, |
|
|
real, dimension(kon,kev) |
fm_therm, |
|
|
real, dimension(kon,kev) |
en_therm, |
|
|
real, dimension(kon,kev) |
frac_impa, |
|
|
real, dimension(kon,kev) |
frac_nucl, |
|
|
real, dimension(kon) |
pyu1, |
|
|
real, dimension(kon) |
pyv1, |
|
|
real, dimension(kon,nbsrf) |
ftsol, |
|
|
real, dimension(kon,nbsrf) |
psrf |
|
) |
| |