1 |
module gath_cpl |
module gath2cpl_m |
2 |
|
|
3 |
! From phylmd/interface_surf.F90,v 1.8 2005/05/25 13:10:09 |
! From phylmd/interface_surf.F90, version 1.8, 2005/05/25 13:10:09 |
4 |
|
|
5 |
implicit none |
implicit none |
6 |
|
|
32 |
integer :: i, ig, j |
integer :: i, ig, j |
33 |
real, dimension(klon) :: tamp |
real, dimension(klon) :: tamp |
34 |
|
|
35 |
|
!-------------------------------------------------------------------- |
36 |
|
|
37 |
tamp = 0. |
tamp = 0. |
38 |
do i = 1, knon |
do i = 1, knon |
39 |
ig = knindex(i) |
ig = knindex(i) |
52 |
|
|
53 |
END SUBROUTINE gath2cpl |
END SUBROUTINE gath2cpl |
54 |
|
|
55 |
end module gath_cpl |
end module gath2cpl_m |