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

Annotation of /trunk/Sources/phylmd/gr_fi_ecrit.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 186 - (hide annotations)
Mon Mar 21 15:36:26 2016 UTC (8 years, 2 months ago) by guez
File size: 865 byte(s) 
Removed variables nlm and nlp of module cv30_param_m. We do not
believe much in the benefit of these intermediary variables so we go
for clarity.

Removed variable noff of module cv30_param_m. Never used anywhere
else. Just set the value of nl explicitly in cv30_param.

Removed argument nd of cv30_param. Only called with nd = klev.

Replaced calls to zilch by array assignments. There was a strange
double call to zilch with the same arguments in cv30_mixing.

Removed procedure cv_flag. Just set the value of variable cvflag_grav
of module cvflag at declaration.
1 guez 186 module gr_fi_ecrit_m
2 guez 3
3     IMPLICIT none
4    
5 guez 186 contains
6 guez 3
7 guez 186 SUBROUTINE gr_fi_ecrit(nfield, nlon, iim, jjmp1, fi, ecrit)
8 guez 3
9 guez 186 ! From phylmd/physiq.F, version 1.22 2006/02/20 09:38:28
10 guez 3
11 guez 186 ! 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 guez 3
15 guez 186 INTEGER, intent(in):: nfield, nlon, iim, jjmp1
16     REAL, intent(in):: fi(nlon, nfield)
17     real ecrit(iim*jjmp1, nfield)
18 guez 3
19 guez 186 ! Variables local to the procedure:
20 guez 3
21 guez 186 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     END SUBROUTINE gr_fi_ecrit
38    
39     end module gr_fi_ecrit_m
  ViewVC Help
Powered by ViewVC 1.1.21