Add files via upload

code/findmon.f

@@ -0,0 +1,41 @@
+! $Id: findmon.f,v 1.1 2009/06/09 21:51:50 daven Exp $
+      SUBROUTINE FINDMON( JDAY, INMONTH, MM, STARTDAY )
+!
+!******************************************************************************
+!  Function FINDMON finds which month JDAY (day of this year) is in.
+!  FINDMON is called by the Leaf Area Index routine rdlai.f.
+!  (yhw, gmg, djj, 1994; bmy, 4/4/03)
+!
+!  Arguments as Input:
+!  ============================================================================
+!  (1 ) JDAY     (INTEGER) : Current day of year (0-365 or 0-366, leap years)
+!  (2 ) INMONTH  (INTEGER) : Current month (1-12)
+!  (4 ) STARTDAY (INTEGER) : Array of starting days for LAI monthly data
+!
+!  Arguments as Output:
+!  ============================================================================
+!  (3 ) MM       (INTEGER) : Output month number (1-12)
+!
+!  NOTES:
+!  (1 ) Updated comments, cosmetic changes (bmy, 4/4/03)
+!******************************************************************************
+!
+      IMPLICIT NONE
+
+      ! Arguments
+      INTEGER, INTENT(IN)  :: JDAY, INMONTH, STARTDAY(13)
+      INTEGER, INTENT(OUT) :: MM
+
+      !=================================================================
+      ! FINDMON begins here!
+      !=================================================================
+      IF ( JDAY < STARTDAY(1) ) THEN
+         MM = 12
+      ELSE IF ( JDAY < STARTDAY(INMONTH) ) THEN
+         MM = INMONTH-1
+      ELSE
+         MM = INMONTH
+      ENDIF
+
+      ! Return to calling program
+      END SUBROUTINE FINDMON