       	SUBROUTINE TO3PPMV(TOTOZ,PPMV)
C***********************************************************************
C
C   NAME-  TO3PPMV
C
C   LANGUAGE- VS FORTRAN   TYPE- SUBROUTINE
C
C   VERSION- 1.0    DATE- 04/01/98    PROGRAMMER- BRIAN BARIL   (RSTX)
C
C   FUNCTION-  CONVERTS A TOTAL OZONE AMOUNT TO MIXING RATIO PROFILE.
C	       THIS IS DONE BY MULTIPLYING THE US STANDARD ATMOSPHERE
C	       OZONE MIXING RATIO PROFILE BY THE GIVEN TOTAL OZONE 
C	       DIVIDED BY THE TOTAL OZONE OF THE STANDARD ATMOSPHERE.
C
C   VERSION 2.0- ADAPTED FOR USE IN ATOVS
C
C   CALLING SEQUENCE PARAMETERS-
C   NAME    TYPE   I/O   DESCRIPTION
C   ----    ----   ---   -----------
C   TOTOZ   REAL    I    TOTAL OZONE AMOUNT (DOBSON UNITS).
C   PPMV    REAL    O    MIXING RATIO PROFILE IN PPMV ON 42 NESDIS 
C                        LEVELS
C
C   LOCAL PARAMETERS-
C   NAME    TYPE   DESCRIPTION
C   ----    ----   -----------
C   OZMR    REAL   ARRAY (DIM 42) CONTAINING THE US STANDARD ATMOSPHERE
C                  OZONE MIXING RATIO PROFILE.
C   NL      INT    DO LOOP COUNTER FOR LEVEL.
C   USSTO3  INT    US STANDARD TOTAL OZONE.   
C   RATIO   REAL   RATIO OF TOTAL OZONE TO TOTAL US STANDARD OZONE.
C
C   EXIT STATES-  NONE
C
C   COMMENTS-  THIS IS BASED ON THE ROUTINE 'TOTOZ_TO_PPMV'
C              PROVIDED BY THOMAS J. KLEESPIES OF THE ORA PHYSICS
C              BRANCH.
C
C***********************************************************************

	IMPLICIT NONE

	REAL TOTOZ
	REAL PPMV(*)

*	LOCAL VARIABLES

	REAL USSTO3
	DATA USSTO3 /348.7897 /

	INTEGER NL 
	PARAMETER  (Nl =42)

	REAL RATIO
	INTEGER I

	REAL OZMR(NL) ! FROM US STD ATMOSPHERE
        DATA (OZMR(I),I=1,NL)/0.65318,1.04797,
     + 2.13548,3.82386,5.26768,6.11313,7.35964,7.75004,7.82119,7.56126,
     + 6.92006,6.10266,5.55513,5.15298,4.59906,2.86792,2.29259,1.80627,
     + 1.28988,0.93973,0.72277,0.54848,0.46009,0.29116,0.16277,0.09861,
     + 0.06369,0.05193,0.04718,0.04097,0.03966,0.03614,0.03384,0.03342,
     + 0.03319,0.03249,0.03070,0.02878,0.02805,0.02689,0.02633,0.02579/

	RATIO = TOTOZ/USSTO3
	DO I = 1 , NL
        PPMV(I) = OZMR(I)*RATIO
	ENDDO

	RETURN
	END

