/[lmdze]/trunk/libf/phylmd/orografi.f
ViewVC logotype

Diff of /trunk/libf/phylmd/orografi.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 32  c Line 32  c
32  c ARGUMENTS  c ARGUMENTS
33  c  c
34        INTEGER nlon,nlev        INTEGER nlon,nlev
35        REAL dtime        REAL, intent(in):: dtime
36        REAL, intent(in):: paprs(klon,klev+1)        REAL, intent(in):: paprs(klon,klev+1)
37        REAL, intent(in):: pplay(klon,klev)        REAL, intent(in):: pplay(klon,klev)
38        REAL pmea(nlon),pstd(nlon),psig(nlon),pgam(nlon),pthe(nlon)        REAL pmea(nlon),pstd(nlon),psig(nlon),pgam(nlon),pthe(nlon)
# Line 240  c Line 240  c
240       *       zd1(klon),       *       zd1(klon),
241       *       zd2(klon),       *       zd2(klon),
242       *       zdmod(klon)       *       zdmod(klon)
243        real ztmst, ptsphy, zrtmst        real ztmst, zrtmst
244          real, intent(in):: ptsphy
245  c  c
246  c------------------------------------------------------------------  c------------------------------------------------------------------
247  c  c
# Line 1322  c Line 1323  c
1323  c ARGUMENTS  c ARGUMENTS
1324  c  c
1325        INTEGER nlon,nlev        INTEGER nlon,nlev
1326        REAL dtime        REAL, intent(in):: dtime
1327        REAL, intent(in):: paprs(klon,klev+1)        REAL, intent(in):: paprs(klon,klev+1)
1328        REAL, intent(in):: pplay(klon,klev)        REAL, intent(in):: pplay(klon,klev)
1329        REAL, intent(in):: plat(nlon)        REAL, intent(in):: plat(nlon)
# Line 1469  C Line 1470  C
1470       *      PAPHM1(NLON,NLEV+1)       *      PAPHM1(NLON,NLEV+1)
1471  C  C
1472        INTEGER  KTEST(NLON)        INTEGER  KTEST(NLON)
1473        real ptsphy        real, intent(in):: ptsphy
1474  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
1475  C  C
1476  C*       0.2   LOCAL ARRAYS  C*       0.2   LOCAL ARRAYS
Legend:
Removed from v.10  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21