source: LMDZ4/branches/LMDZ4_V2_patch/libf/phylmd/o3cm.F @ 1798

Last change on this file since 1798 was 665, checked in by (none), 19 years ago

This commit was manufactured by cvs2svn to create branch
'LMDZ4_V2_patch'.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.3 KB
Line 
1!
2! $Header$
3!
4      SUBROUTINE o3cm (amb, bmb, sortie, ntab)
5      IMPLICIT none
6c======================================================================
7c Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
8c Objet: Ce programme calcule le contenu en ozone "sortie"
9c        (unite: cm.atm) entre deux niveaux "amb" et "bmb" (unite: mb)
10c        "ntab" est le nombre d'intervalles pour l'integration, sa
11c        valeur depend bien sur de l'epaisseur de la couche et de
12c        la precision qu'on souhaite a obtenir
13c======================================================================
14      REAL amb, bmb, sortie
15      INTEGER ntab
16c======================================================================
17      INTEGER n
18      REAL xtab(500), xa, xb, ya, yb, xincr
19c======================================================================
20      external mbtozm
21c======================================================================
22c la fonction en ligne w(x) donne le profil de l'ozone en fonction
23c de l'altitude (unite: cm.atm / km)
24c (Green 1964, Appl. Opt. 3: 203-208)
25      REAL wp, xp, h, x, w, con
26      PARAMETER (wp=0.218, xp=23.25, h=4.63, con=1.0)
27      w(x) = wp/h * EXP((x-xp)/h)/ (con+EXP((x-xp)/h))**2
28c======================================================================
29      IF (ntab .GT. 499) STOP 'BIG ntab'
30      xincr = (bmb-amb) / FLOAT(ntab)
31      xtab(1) = amb
32      DO n = 2, ntab
33         xtab(n) = xtab(n-1) + xincr
34      ENDDO
35      xtab(ntab+1) = bmb
36      sortie = 0.0
37      DO n = 1, ntab
38         CALL mbtozm(xtab(n), xa)
39         CALL mbtozm(xtab(n+1), xb)
40         xa = xa / 1000.
41         xb = xb / 1000.
42         ya = w(xa)
43         yb = w(xb)
44         sortie = sortie + (ya+yb)/2.0 * ABS(xb-xa)
45      ENDDO
46      RETURN
47      END
48      SUBROUTINE mbtozm(rmb,zm)
49      IMPLICIT none
50c======================================================================
51c Auteur(s): Z.X. Li (LMD/CNRS)
52c Objet: transformer une hauteur de mb (rmb) en metre (zm)
53c======================================================================
54      REAL rmb, zm
55c======================================================================
56      REAL gama, tzero, pzero, g, r
57      PARAMETER (gama=6.5e-3, tzero=288., pzero=1013.25)
58      PARAMETER (g=9.81, r=287.0)
59      zm = tzero/gama * ( 1.-(rmb/pzero)**(r*gama/g) )
60      RETURN
61      END
Note: See TracBrowser for help on using the repository browser.