#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!  returnend subroutine mf2mr