GCC Code Coverage Report


Directory: ./
File: dyn3d_common/interpost.f
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 0 9 0.0%
Branches: 0 10 0.0%

Line Branch Exec Source
1 !
2 ! $Header$
3 !
4 subroutine interpost(q,qppm)
5
6 implicit none
7
8
9 include "dimensions.h"
10 include "paramet.h"
11 include "comgeom2.h"
12
13 c Arguments
14 real q(iip1,jjp1,llm)
15 real qppm(iim,jjp1,llm)
16 c Local
17 integer l,i,j
18
19 c RE-INVERSION DES NIVEAUX
20 c le programme ppm3d travaille avec une 3�me coordonn�e invers�e par rapport
21 c de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface
22 c On passe donc des niveaux de Lin � ceux du LMDZ
23
24 do l=1,llm
25 do j=1,jjp1
26 do i=1,iim
27 q(i,j,l)=qppm(i,j,llm-l+1)
28 enddo
29 enddo
30 enddo
31
32 c BOUCLAGE EN LONGITUDE PAS EFFECTUE DANS PPM3D
33
34 do l=1,llm
35 do j=1,jjp1
36 q(iip1,j,l)=q(1,j,l)
37 enddo
38 enddo
39
40
41 return
42
43 end
44