INTERFACE:
subroutine clm_run1( doalb, nextsw_cday )DESCRIPTION:
land model run1 phase
USES:
use shr_orb_mod , only : shr_orb_decl
use clm_time_manager, only : get_nstep, get_step_size, get_curr_calday
use clm_varorb , only : eccen, mvelpp, lambm0, obliqr
use clm_driver , only : clm_driver1
use clm_atmlnd , only : clm_map2gcell
ARGUMENTS:
logical , intent(IN) :: doalb ! true if surface albedo calculation time step from atm
real(r8), intent(IN) :: nextsw_cday ! calendar day for nstep+1
LOCAL VARIABLES:
integer :: dtime ! time step increment (sec)
real(r8) :: calday ! calendar day for nstep
real(r8) :: declin ! solar declination angle in radians for nstep
real(r8) :: declinp1 ! solar declination angle in radians for nstep+1
real(r8) :: eccf ! earth orbit eccentricity factor
REVISION HISTORY:
Author: Mariana Vertenstein