/[lmdze]/trunk/phylmd/Interface_surf/gath2cpl.f
ViewVC logotype

Diff of /trunk/phylmd/Interface_surf/gath2cpl.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/phylmd/gath_cpl.f revision 99 by guez, Wed Jul 2 18:39:15 2014 UTC trunk/phylmd/Interface_surf/gath2cpl.f revision 100 by guez, Wed Jul 2 19:07:58 2014 UTC
# Line 10  contains Line 10  contains
10    
11      ! Cette routine ecrit un champ 'gathered' sur la grille 2D pour le passer      ! Cette routine ecrit un champ 'gathered' sur la grille 2D pour le passer
12      ! au coupleur.      ! au coupleur.
13      !  
14      !      integer, intent(in):: klon, knon, iim, jjm
15      ! input:              ! klon taille de la grille
16      !   champ_in     champ sur la grille gathere              ! knon nombre de points dans le domaine a traiter
17      !   knon         nombre de points dans le domaine a traiter      ! iim, jjm dimension de la grille 2D
18      !   knindex      index des points de la surface a traiter  
19      !   klon         taille de la grille      real, intent(in):: champ_in(klon) ! champ sur la grille gathere
20      !   iim,jjm      dimension de la grille 2D  
21      !      integer, intent(in):: knindex(klon)
22      ! output:      ! index des points de la surface a traiter
23      !   champ_out    champ sur la grille 2D  
24      !      real, intent(out):: champ_out(iim, jjm + 1) ! champ sur la grille 2D
25      ! input  
26      integer                   :: klon, knon, iim, jjm      ! Local:
27      real, dimension(klon)     :: champ_in      integer :: i, ig, j
28      integer, dimension(klon)  :: knindex      real, dimension(klon) :: tamp
     ! output  
     real, dimension(iim,jjm+1)  :: champ_out  
     ! local  
     integer                   :: i, ig, j  
     real, dimension(klon)     :: tamp  
29    
30      !--------------------------------------------------------------------      !--------------------------------------------------------------------
31    
# Line 40  contains Line 35  contains
35         tamp(ig) = champ_in(i)         tamp(ig) = champ_in(i)
36      enddo      enddo
37      ig = 1      ig = 1
38      champ_out(:,1) = tamp(ig)      champ_out(:, 1) = tamp(ig)
39      do j = 2, jjm      do j = 2, jjm
40         do i = 1, iim         do i = 1, iim
41            ig = ig + 1            ig = ig + 1
42            champ_out(i,j) = tamp(ig)            champ_out(i, j) = tamp(ig)
43         enddo         enddo
44      enddo      enddo
45      ig = ig + 1      ig = ig + 1
46      champ_out(:,jjm+1) = tamp(ig)      champ_out(:, jjm + 1) = tamp(ig)
47    
48    END SUBROUTINE gath2cpl    END SUBROUTINE gath2cpl
49    
Legend:
Removed from v.99  
changed lines
  Added in v.100
  ViewVC Help
Powered by ViewVC 1.1.21