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

Diff of /trunk/dyn3d/grid_change.f90

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 168 by guez, Wed Sep 9 10:41:47 2015 UTC
# Line 28  contains Line 28  contains
28    function gr_fi_dyn(pfi)    function gr_fi_dyn(pfi)
29    
30      ! From gr_fi_dyn.F, version 1.1.1.1 2004/05/19 12:53:05      ! From gr_fi_dyn.F, version 1.1.1.1 2004/05/19 12:53:05
31      ! Passage d'un champ de la grille physique à la grille dynamique      ! Passage d'un champ de la grille physique \`a la grille dynamique
32    
33      use dimphy, only: klon      use dimphy, only: klon
34    
# Line 42  contains Line 42  contains
42    
43      if (size(pfi) /= klon) stop "gr_fi_dyn"      if (size(pfi) /= klon) stop "gr_fi_dyn"
44    
45      ! Traitement des pôles :      ! Traitement des p\^oles :
46      field(2:, 1) = pfi(1)      field(2:, 1) = pfi(1)
47      field(2:, jjm + 1) = pfi(klon)      field(2:, jjm + 1) = pfi(klon)
48      ! (We leave undefined elements in "field")      ! (We leave undefined elements in "field")
# Line 60  contains Line 60  contains
60    function gr_phy_write_2d(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 \`a la grille d'\'ecriture.
64      ! The grid for output files does not duplicate the first longitude      ! The grid for output files does not duplicate the first longitude
65      ! in the last longitude.      ! in the last longitude.
66    
67      use dimphy, only: klon      use dimphy, only: klon
68    
69      REAL, intent(in):: pfi(:)      REAL, intent(in):: pfi(:) ! (klon)
70      real gr_phy_write_2d(iim, jjm + 1)      real gr_phy_write_2d(iim, jjm + 1)
71    
72      ! Variable local to the procedure:      ! Variable local to the procedure:
# Line 76  contains Line 76  contains
76    
77      if (size(pfi) /= klon) stop "gr_phy_write_2d"      if (size(pfi) /= klon) stop "gr_phy_write_2d"
78    
79      ! Traitement des pôles :      ! Traitement des p\^oles :
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    
# Line 84  contains Line 84  contains
84    
85    END function gr_phy_write_2d    END function gr_phy_write_2d
86    
87      !********************************************
88    
89      function gr_dyn_phy(v)
90    
91        ! Passage d'un champ 3D de la grille dynamique \`a la grille physique
92    
93        use dimphy, only: klon
94    
95        REAL, intent(in):: v(:, :, :) ! (iim + 1, jjm + 1, :)
96        real gr_dyn_phy(klon, size(v, 3))
97    
98        ! Local:
99        integer k
100    
101        !-----------------------------------------------------------------------
102    
103        forall (k = 1:size(v, 3)) gr_dyn_phy(:, k) = pack(v(:, :, k), dyn_phy)
104    
105      END function gr_dyn_phy
106    
107  end module grid_change  end module grid_change
Legend:
Removed from v.134  
changed lines
  Added in v.168
  ViewVC Help
Powered by ViewVC 1.1.21