yoeozoc.F90

Go to the documentation of this file.

MODULE yoeozoc


#include "tsmbkind.h"

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------
!*     *YOEOZOC* SPECTRAL DISTRIBUTION OF OZONE
!     ------------------------------------------------------------------


real_b :: cozqc(21)
real_b :: cozqs(15)
real_b :: cozhc(21)
real_b :: cozhs(15)

real_b :: rsinc(19)
real_b :: rozt(19,0:35)
real_b :: rproc(0:35)

!*     *YOEOZOC* SPECTRAL DISTRIBUTION OF OZONE
!                     (TRIANGULAR *T5* TRUNCATION FOR OZONE).

!     R.G AND M.J        E.C.M.W.F.     29/11/82.

!      NAME     TYPE      PURPOSE
!      ----     ----      -------

!     *COZ__*   REAL      *REFERS TO *OZONE.
!     *C___C*   REAL      *REFERS TO *COS COMPONENT.
!     *C___S*   REAL      *REFERS TO *SIN COMPONENT.
!       ----------------------------------------------------------------
END MODULE yoeozoc