mf2mr.f90

CCSM Research Tools: Community Atmosphere Model (CAM)

#include <misc.h>
#include <params.h>

subroutine mf2mr( lchnk, ncol, q3 )

!----------------------------------------------------------------------- 
! 
! Purpose: 
! Convert mass fractions of the non-water trace species to mixing ratio.
! 
! Method: 
! 
! Author: J. Olson
! 
!-----------------------------------------------------------------------
!
! $Id: mf2mr.F90,v 1.1 2001/09/16 22:13:44 rosinski Exp $
! $Author: rosinski $
!
!-----------------------------------------------------------------------

  use precision
  use ppgrid
  use dycore,  only: dycore_is
  use tracers, only: pcnst, pnats

  implicit none

!------------------------------Arguments--------------------------------
  integer, intent(in) :: lchnk                          ! chunk identifier
  integer, intent(in) :: ncol                           ! number of atmospheric columns

  real(r8), intent(inout) :: q3(pcols,pver,pcnst+pnats) ! Constituent mass fraction
!-----------------------------------------------------------------------

!---------------------------Local variables-----------------------------
  integer :: m             ! constituent indices
!-----------------------------------------------------------------------
!
! LR: Do nothing here as suggested by Phil Rasch                                        
!
  if (.not. dycore_is ('LR')) then
     do m = 2,pcnst+pnats
        q3(:ncol,:pver,m) = q3(:ncol,:pver,m)/ (1. - q3(:ncol,:pver,1))
     end do
  end if
!
  return
end subroutine mf2mr