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

Diff of /trunk/dyn3d/grid_change.f

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

revision 168 by guez, Wed Sep 9 10:41:47 2015 UTC revision 189 by guez, Tue Mar 29 15:20:23 2016 UTC
# Line 57  contains Line 57  contains
57    
58    !********************************************    !********************************************
59    
   function gr_phy_write_2d(pfi)  
   
     ! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28  
     ! Transforme une variable de la grille physique \`a la grille d'\'ecriture.  
     ! The grid for output files does not duplicate the first longitude  
     ! in the last longitude.  
   
     use dimphy, only: klon  
   
     REAL, intent(in):: pfi(:) ! (klon)  
     real gr_phy_write_2d(iim, jjm + 1)  
   
     ! Variable local to the procedure:  
     real field(iim, jjm + 1)  
   
     !-----------------------------------------------------------------------  
   
     if (size(pfi) /= klon) stop "gr_phy_write_2d"  
   
     ! Traitement des p\^oles :  
     field(2:, 1) = pfi(1)  
     field(2:, jjm + 1) = pfi(klon)  
   
     gr_phy_write_2d = unpack(pfi, dyn_phy(:iim, :), field)  
   
   END function gr_phy_write_2d  
   
   !********************************************  
   
60    function gr_dyn_phy(v)    function gr_dyn_phy(v)
61    
62      ! Passage d'un champ 3D de la grille dynamique \`a la grille physique      ! Passage d'un champ 3D de la grille dynamique \`a la grille physique
Legend:
Removed from v.168  
changed lines
  Added in v.189
  ViewVC Help
Powered by ViewVC 1.1.21