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

Annotation of /trunk/dyn3d/interpost.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 66 - (hide annotations)
Thu Sep 20 13:00:41 2012 UTC (11 years, 8 months ago) by guez
Original Path: trunk/libf/dyn3d/interpost.f
File size: 958 byte(s)
Changed name of module "comvert" to "disvert_m". Changed constant
1. to 0.3 in vertical sampling "strato".

1 guez 3 !
2     ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/interpost.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $
3     !
4     subroutine interpost(q,qppm)
5    
6     use dimens_m
7     use paramet_m
8     use comconst
9 guez 66 use disvert_m
10 guez 3 use comgeom
11     implicit none
12    
13    
14    
15     c Arguments
16     real q(iip1,jjp1,llm)
17     real qppm(iim,jjp1,llm)
18     c Local
19     integer l,i,j
20    
21     c RE-INVERSION DES NIVEAUX
22     c le programme ppm3d travaille avec une 3ème coordonnée inversée par rapport
23     c de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface
24     c On passe donc des niveaux de Lin à ceux du LMDZ
25    
26     do l=1,llm
27     do j=1,jjp1
28     do i=1,iim
29     q(i,j,l)=qppm(i,j,llm-l+1)
30     enddo
31     enddo
32     enddo
33    
34     c BOUCLAGE EN LONGITUDE PAS EFFECTUE DANS PPM3D
35    
36     do l=1,llm
37     do j=1,jjp1
38     q(iip1,j,l)=q(1,j,l)
39     enddo
40     enddo
41    
42    
43     return
44    
45     end

  ViewVC Help
Powered by ViewVC 1.1.21