Add files via upload

code/biofit.f

@@ -0,0 +1,40 @@
+C $Id: biofit.f,v 1.1 2009/06/09 21:51:52 daven Exp $
+      REAL*8 FUNCTION BIOFIT(COEFF1,XLAI1,SUNCOS1,CFRAC1)
+
+      IMPLICIT NONE
+C===============================================
+C Calculate the light correction
+C===============================================
+C* BIOFIT and SUNPARAM were written by Y.H. Wang.  See comment
+C* in subroutine DEPVEL on what these subroutines do.
+C*************************************************************
+#     include "CMN_SIZE"
+#     include "CMN_DEP"
+      INTEGER KK
+      PARAMETER (KK=4)
+      REAL*8 COEFF1(NPOLY),TERM(KK),REALTERM(NPOLY)
+      REAL*8 XLAI1,SUNCOS1,CFRAC1
+      INTEGER K,K1,K2,K3
+
+      TERM(1)=1.
+      TERM(2)=XLAI1
+      TERM(3)=SUNCOS1
+      TERM(4)=CFRAC1
+      CALL SUNPARAM(TERM(2))
+      K=0
+      DO K3=1,KK
+        DO K2=K3,KK
+          DO K1=K2,KK
+            K=K+1
+            REALTERM(K)=TERM(K1)*TERM(K2)*TERM(K3)
+          END DO
+        END DO
+      END DO
+      BIOFIT=0
+      DO K=1,NPOLY
+        BIOFIT=BIOFIT+COEFF1(K)*REALTERM(K)
+      END DO
+      IF (BIOFIT.LT.0.1) BIOFIT=0.1
+
+      RETURN
+      END