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

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

Parent Directory Parent Directory | Revision Log Revision Log

Revision 186 - (show annotations)
Mon Mar 21 15:36:26 2016 UTC (8 years, 1 month ago) by guez
Original Path: trunk/Sources/phylmd/gr_fi_ecrit.f
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 module gr_fi_ecrit_m
2
3 IMPLICIT none
4
5 contains
6
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 END SUBROUTINE gr_fi_ecrit
38
39 end module gr_fi_ecrit_m
  ViewVC Help
Powered by ViewVC 1.1.21