/[lmdze]/trunk/Sources/phylmd/gr_phy_write.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/gr_phy_write.f

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 186 by guez, Mon Mar 21 15:36:26 2016 UTC
# Line 1  Line 1 
1  SUBROUTINE gr_fi_ecrit(nfield, nlon, iim, jjmp1, fi, ecrit)  module gr_fi_ecrit_m
   
   ! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28  
2    
3    IMPLICIT none    IMPLICIT none
4    
5    ! Transforme une variable de la grille physique à la grille d'écriture.  contains
6    ! Cf. version moderne "gr_phy_write_2d", dans le cas où "nfield" vaut 1.  
7      SUBROUTINE gr_fi_ecrit(nfield, nlon, iim, jjmp1, fi, ecrit)
8    
9        ! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28
10    
11        ! Transforme une variable de la grille physique \`a la grille
12        ! d'\'ecriture.  Cf. version moderne "gr_phy_write_2d", dans le
13        ! cas o\`u "nfield" vaut 1.
14    
15        INTEGER, intent(in):: nfield, nlon, iim, jjmp1
16        REAL, intent(in):: fi(nlon, nfield)
17        real ecrit(iim*jjmp1, nfield)
18    
19        ! Variables local to the procedure:
20    
21        integer jjm
22        INTEGER i, n, ig
23    
24        !---------------
25    
26        jjm = jjmp1 - 1
27        DO n = 1, nfield
28           DO i=1, iim
29              ecrit(i, n) = fi(1, n)
30              ecrit(i+jjm*iim, n) = fi(nlon, n)
31           ENDDO
32           DO ig = 1, nlon - 2
33              ecrit(iim+ig, n) = fi(1+ig, n)
34           ENDDO
35        ENDDO
36    
37    INTEGER, intent(in):: nfield, nlon, iim, jjmp1    END SUBROUTINE gr_fi_ecrit
   REAL, intent(in):: fi(nlon, nfield)  
   real ecrit(iim*jjmp1, nfield)  
   
   ! Variables local to the procedure:  
   
   integer jjm  
   INTEGER i, n, ig  
   
   !---------------  
   
   jjm = jjmp1 - 1  
   DO n = 1, nfield  
      DO i=1, iim  
         ecrit(i, n) = fi(1, n)  
         ecrit(i+jjm*iim, n) = fi(nlon, n)  
      ENDDO  
      DO ig = 1, nlon - 2  
         ecrit(iim+ig, n) = fi(1+ig, n)  
      ENDDO  
   ENDDO  
38    
39  END SUBROUTINE gr_fi_ecrit  end module gr_fi_ecrit_m
Legend:
Removed from v.134  
changed lines
  Added in v.186
  ViewVC Help
Powered by ViewVC 1.1.21