/[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 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC
# Line 32  contains Line 32  contains
32    
33      use dimphy, only: klon      use dimphy, only: klon
34    
35      REAL, intent(in):: pfi(:)      REAL, intent(in):: pfi(:) ! (klon)
36      real gr_fi_dyn(iim + 1, jjm + 1)      real gr_fi_dyn(iim + 1, jjm + 1)
37    
38      ! Variable local to the procedure:      ! Variable local to the procedure:
# Line 57  contains Line 57  contains
57    
58    !********************************************    !********************************************
59    
60    function gr_phy_write(pfi)    function gr_phy_write_2d(pfi)
61    
62      ! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28      ! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28
63      ! Transforme une variable de la grille physique à la grille d'écriture.      ! Transforme une variable de la grille physique à la grille d'écriture.
# Line 67  contains Line 67  contains
67      use dimphy, only: klon      use dimphy, only: klon
68    
69      REAL, intent(in):: pfi(:)      REAL, intent(in):: pfi(:)
70      real gr_phy_write(iim, jjm + 1)      real gr_phy_write_2d(iim, jjm + 1)
71    
72      ! Variable local to the procedure:      ! Variable local to the procedure:
73      real field(iim, jjm + 1)      real field(iim, jjm + 1)
74    
75      !-----------------------------------------------------------------------      !-----------------------------------------------------------------------
76    
77      if (size(pfi) /= klon) stop "gr_phy_write"      if (size(pfi) /= klon) stop "gr_phy_write_2d"
78    
79      ! Traitement des pôles :      ! Traitement des pôles :
80      field(2:, 1) = pfi(1)      field(2:, 1) = pfi(1)
81      field(2:, jjm + 1) = pfi(klon)      field(2:, jjm + 1) = pfi(klon)
82    
83      gr_phy_write = unpack(pfi, dyn_phy(:iim, :), field)      gr_phy_write_2d = unpack(pfi, dyn_phy(:iim, :), field)
84    
85    END function gr_phy_write    END function gr_phy_write_2d
86    
87  end module grid_change  end module grid_change
Legend:
Removed from v.3  
changed lines
  Added in v.47
  ViewVC Help
Powered by ViewVC 1.1.21