LMDZ
interpost.F
Go to the documentation of this file.
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 
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èe coordonnée inversée par rapport c de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface c On passe donc des niveaux de Lin à ceux du LMDZ do l=1,llm do j=1,jjp1 do i=1,iim q(i,j,l)=qppm(i,j,llm-l+1) enddo enddo enddo c BOUCLAGE EN LONGITUDE PAS EFFECTUE DANS PPM3D do l=1,llm do j=1,jjp1 q(iip1,j,l)=q(1,j,l) enddo enddo return end me coordonné inversée par rapport c de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface c On passe donc des niveaux de Lin à ceux du LMDZ do l=1,llm do j=1,jjp1 do i=1,iim q(i,j,l)=qppm(i,j,llm-l+1) enddo enddo enddo c BOUCLAGE EN LONGITUDE PAS EFFECTUE DANS PPM3D do l=1,llm do j=1,jjp1 q(iip1,j,l)=q(1,j,l) enddo enddo return end e inversé par rapport c de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface c On passe donc des niveaux de Lin à ceux du LMDZ do l=1,llm do j=1,jjp1 do i=1,iim q(i,j,l)=qppm(i,j,llm-l+1) enddo enddo enddo c BOUCLAGE EN LONGITUDE PAS EFFECTUE DANS PPM3D do l=1,llm do j=1,jjp1 q(iip1,j,l)=q(1,j,l) enddo enddo return end 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 do l=1,llm do j=1,jjp1 do i=1,iim q(i,j,l)=qppm(i,j,llm-l+1) enddo enddo enddo c BOUCLAGE EN LONGITUDE PAS EFFECTUE DANS PPM3D do l=1,llm do j=1,jjp1 q(iip1,j,l)=q(1,j,l) enddo enddo return end 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
interpost
subroutine interpost(q, qppm)
Definition: interpost.F:5
llm
!$Id Turb_fcg_gcssold get_uvd hqturb_gcssold endif!large scale llm day day1 day day1 *dt_toga endif!time annee_ref dt_toga u_toga vq_toga w_prof vq_prof llm day day1 day day1 *dt_dice endif!time annee_ref dt_dice swup_dice vg_dice omega_dice tg_prof vg_profd w_profd omega_profd!do llm!print llm l llm
Definition: 1D_interp_cases.h:103
jjp1
!$Header jjp1
Definition: paramet.h:14
ppm3d
subroutine ppm3d(IGD, Q, PS1, PS2, U, V, W, NDT, IORD, JORD, KORD, NC, IMR, JNP, j1, NLAY, AP, BP, PT, AE, fill, dum, Umax)
Definition: ppm3d.F:67
iim
c c zjulian c cym CALL iim cym klev iim
Definition: ini_bilKP_ave.h:24
de
do llm!au dessus de
Definition: 1D_nudge_sandu_astex.h:1