Add files via upload

code/sunparam.f

@@ -0,0 +1,32 @@
+C $Id: sunparam.f,v 1.1 2009/06/09 21:51:53 daven Exp $
+      SUBROUTINE SUNPARAM(X)
+
+      IMPLICIT NONE
+
+C===============================================
+C the sequence is lai,suncos,cloud fraction
+C===============================================
+C  NN = number of variables (lai,suncos,cloud fraction)
+      INTEGER NN
+      PARAMETER(NN=3)
+C  ND = scaling factor for each variable
+      INTEGER ND(NN),I
+      DATA ND /55,20,11/
+C  X0 = maximum for each variable
+      REAL*8 X(NN),X0(NN),XLOW
+      DATA X0 /11.,1.,1./
+
+      DO I=1,NN
+        X(I)=MIN(X(I),X0(I))
+C XLOW = minimum for each variable
+        IF (I.NE.3) THEN
+          XLOW=X0(I)/REAL(ND(I))
+        ELSE
+          XLOW= 0.
+        END IF
+        X(I)=MAX(X(I),XLOW)
+        X(I)=X(I)/X0(I)
+      END DO
+
+      RETURN
+      END