Add files via upload

code/NOABS.f

@@ -0,0 +1,16 @@
+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