source: LMDZ5/trunk/libf/dyn3dmem/interpost.F @ 1907

Last change on this file since 1907 was 1907, checked in by lguez, 10 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 882 bytes
Line 
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 "comconst.h"
12#include "comvert.h"
13#include "comgeom2.h"
14
15c Arguments   
16      real   q(iip1,jjp1,llm)
17      real   qppm(iim,jjp1,llm)
18c Local
19      integer l,i,j
20 
21c RE-INVERSION DES NIVEAUX
22c le programme ppm3d travaille avec une 3ème coordonnée inversée par rapport
23c de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface
24c 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           
34c 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
Note: See TracBrowser for help on using the repository browser.