Go to the source code of this file.
subroutine extrapol_fields |
( |
type(data_cover_t), intent(inout) |
DTCO, |
|
|
type(data_isba_t), intent(inout) |
DTI, |
|
|
type(isba_grid_t), intent(inout) |
IG, |
|
|
type(isba_t), intent(inout) |
I, |
|
|
type(surf_atm_grid_t), intent(inout) |
UG, |
|
|
type(surf_atm_t), intent(inout) |
U, |
|
|
character(len=6), intent(in) |
HPROGRAM, |
|
|
integer, intent(in) |
KLUOUT |
|
) |
| |
subroutine extrapol_fields::goto_ntime |
( |
integer, intent(in) |
KTIME, |
|
|
real, dimension(:,:,:), intent(in) |
PWORK, |
|
|
real, dimension(:,:,:), intent(out) |
PPAR_DATA |
|
) |
| |