source: LMDZ.3.3/trunk/libf/dyn3d/pression.F @ 507

Last change on this file since 507 was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 806 bytes
Line 
1      SUBROUTINE pression( ngrid, ap, bp, ps, p )
2c
3
4c      Auteurs : P. Le Van , Fr.Hourdin  .
5
6c  ************************************************************************
7c     Calcule la pression p(l) aux differents niveaux l = 1 ( niveau du
8c     sol) a l = llm +1 ,ces niveaux correspondant aux interfaces des (llm)
9c     couches , avec  p(ij,llm +1) = 0.  et p(ij,1) = ps(ij)  .     
10c  ************************************************************************
11c
12      IMPLICIT NONE
13c
14#include "dimensions.h"
15#include "paramet.h"
16c
17      INTEGER ngrid
18      INTEGER l,ij
19 
20      REAL ap( llmp1 ), bp( llmp1 ), ps( ngrid ), p( ngrid,llmp1 )
21     
22      DO    l    = 1, llmp1
23        DO  ij   = 1, ngrid
24         p(ij,l) = ap(l) + bp(l) * ps(ij)
25        ENDDO
26      ENDDO
27   
28      RETURN
29      END
Note: See TracBrowser for help on using the repository browser.