subroutine oi_fctveg |
( |
integer, intent(in) |
KH, |
|
|
real, intent(in) |
PVEG, |
|
|
real, dimension(24), intent(in) |
PVGAT1, |
|
|
real, dimension(24), intent(in) |
PVGAT2, |
|
|
real, dimension(24), intent(in) |
PVGAT3, |
|
|
real, dimension(24), intent(in) |
PVGBT1, |
|
|
real, dimension(24), intent(in) |
PVGBT2, |
|
|
real, dimension(24), intent(in) |
PVGBT3, |
|
|
real, dimension(24), intent(in) |
PVGCT1, |
|
|
real, dimension(24), intent(in) |
PVGCT2, |
|
|
real, dimension(24), intent(in) |
PVGAH1, |
|
|
real, dimension(24), intent(in) |
PVGAH2, |
|
|
real, dimension(24), intent(in) |
PVGAH3, |
|
|
real, dimension(24), intent(in) |
PVGBH1, |
|
|
real, dimension(24), intent(in) |
PVGBH2, |
|
|
real, dimension(24), intent(in) |
PVGBH3, |
|
|
real, dimension(24), intent(in) |
PVGCH1, |
|
|
real, dimension(24), intent(in) |
PVGCH2, |
|
|
real, dimension(24), intent(in) |
PSIGT2MP, |
|
|
real, dimension(24), intent(in) |
PSIGHP2, |
|
|
real, intent(out) |
PG1, |
|
|
real, intent(out) |
PG2, |
|
|
real, intent(out) |
PG3, |
|
|
real, intent(out) |
PG4, |
|
|
real, intent(out) |
PVGST, |
|
|
real, intent(out) |
PVGSH, |
|
|
real, intent(out) |
PVGPT1, |
|
|
real, intent(out) |
PVGPH1, |
|
|
real, intent(out) |
PVGPT2, |
|
|
real, intent(out) |
PVGPH2 |
|
) |
| |