/[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

revision 98 by guez, Wed Mar 5 14:57:53 2014 UTC revision 99 by guez, Wed Jul 2 18:39:15 2014 UTC
# Line 1  Line 1 
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    
# Line 32  contains Line 32  contains
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)
# Line 50  contains Line 52  contains
52    
53    END SUBROUTINE gath2cpl    END SUBROUTINE gath2cpl
54    
55  end module gath_cpl  end module gath2cpl_m
Legend:
Removed from v.98  
changed lines
  Added in v.99
  ViewVC Help
Powered by ViewVC 1.1.21