17 lines
583 B
Fortran
17 lines
583 B
Fortran
C $Id: NOABS.f,v 1.1 2009/06/09 21:51:51 daven Exp $
|
|
SUBROUTINE NOABS(XLO3,XLO2,XLRAY,BCAER,RFLECT)
|
|
C-----------------------------------------------------------------------
|
|
C Zero out absorption terms to check scattering code. Leave a little
|
|
C Rayleigh to provide a minimal optical depth, and set surface albedo
|
|
C to unity.
|
|
C-----------------------------------------------------------------------
|
|
IMPLICIT NONE
|
|
real*8 XLO3,XLO2,XLRAY,BCAER,RFLECT
|
|
XLO3=0.d0
|
|
XLO2=0.d0
|
|
XLRAY=XLRAY*1.d-10
|
|
BCAER=0.d0
|
|
RFLECT=1.d0
|
|
RETURN
|
|
END
|