/[lmdze]/trunk/libf/dyn3d/grid_change.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/grid_change.f90

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

revision 15 by guez, Fri Aug 1 15:24:12 2008 UTC revision 20 by guez, Wed Oct 15 16:19:57 2008 UTC
# Line 88  contains Line 88  contains
88    
89    function gr_phy_write_3d(pfi)    function gr_phy_write_3d(pfi)
90    
91      ! Transforme une variable dépendant de la position verticale de la      ! Transforme une variable de la grille physique à la grille d'écriture.
     ! grille physique à la grille d'écriture.  
92      ! The grid for output files does not duplicate the first longitude      ! The grid for output files does not duplicate the first longitude
93      ! in the last longitude.      ! in the last longitude.
94        ! Input array has rank 2. Horizontal index is in the first dimension.
95    
96      use dimphy, only: klon      use dimphy, only: klon
     use dimens_m, only: llm  
97      use numer_rec, only: assert      use numer_rec, only: assert
98    
99      REAL, intent(in):: pfi(:, :)      REAL, intent(in):: pfi(:, :)
100      real gr_phy_write_3d(iim, jjm + 1, llm)      real gr_phy_write_3d(iim, jjm + 1, size(pfi, 2))
101    
102      ! Variable local to the procedure:      ! Variable local to the procedure:
103      integer l      integer l
104    
105      !-----------------------------------------------------------------------      !-----------------------------------------------------------------------
106    
107      call assert(shape(pfi) == (/klon, llm/), "gr_phy_write_3d")      call assert(size(pfi, 1) == klon, "gr_phy_write_3d")
108    
109      do l = 1, llm      do l = 1, size(pfi, 2)
110         gr_phy_write_3d(:, :, l) = gr_phy_write_2d(pfi(:, l))         gr_phy_write_3d(:, :, l) = gr_phy_write_2d(pfi(:, l))
111      end do      end do
112    
Legend:
Removed from v.15  
changed lines
  Added in v.20
  ViewVC Help
Powered by ViewVC 1.1.21