My Project
 All Classes Files Functions Variables Macros
pression_loc.F
Go to the documentation of this file.
1  SUBROUTINE pression_loc( ngrid, ap, bp, ps, p )
2  USE parallel
3 c
4 
5 c Auteurs : P. Le Van , Fr.Hourdin .
6 
7 c ************************************************************************
8 c Calcule la pression p(l) aux differents niveaux l = 1 ( niveau du
9 c sol) a l = llm +1 ,ces niveaux correspondant aux interfaces des (llm)
10 c couches , avec p(ij,llm +1) = 0. et p(ij,1) = ps(ij) .
11 c ************************************************************************
12 c
13  IMPLICIT NONE
14 c
15 #include "dimensions.h"
16 #include "paramet.h"
17 c
18  INTEGER ngrid
19  INTEGER l,ij
20 
21  REAL ap( llmp1 ), bp( llmp1 ), ps( ijb_u:ije_u )
22  REAL p( ijb_u:ije_u,llmp1 )
23 
24  INTEGER ijb,ije
25 
26 
27  ijb=ij_begin-iip1
28  ije=ij_end+2*iip1
29 
30  if (pole_nord) ijb=ij_begin
31  if (pole_sud) ije=ij_end
32 
33 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
34  DO l = 1, llmp1
35  DO ij = ijb, ije
36  p(ij,l) = ap(l) + bp(l) * ps(ij)
37  ENDDO
38  ENDDO
39 c$OMP END DO NOWAIT
40  RETURN
41  END