Add files via upload

2018-08-28 00:43:47 -04:00
parent b9acb75507
commit e17feeaad3
96 changed files with 68216 additions and 0 deletions
--- a/code/fcro2ho2.f
+++ b/code/fcro2ho2.f
@ -0,0 +1,13 @@
+!fgap
+!based on saunder 2003 k14
+      REAL*8 FUNCTION FCRO2HO2( XCARBN )
+
+      IMPLICIT NONE
+
+      ! Arguments
+      REAL*8, INTENT(IN) :: XCARBN
+
+      FCRO2HO2 = 1D0-EXP(-0.245D0*XCARBN)
+     
+      ! Return to calling program
+      END FUNCTION FCRO2HO2