rad_sw_pre.F90

 
 
module rad_sw_pre
contains
 
 
  subroutine rad_sw_pre_run (im, lsswr, coszen, nday, idxday, errmsg, errflg)
    use machine,  only: kind_phys
    implicit none
    
    ! Inputs
    integer,                      intent(in)    :: im
    logical,                      intent(in)    :: lsswr
    real(kind_phys), dimension(:), intent(in)   :: coszen
    
    ! Outputs
    integer,                      intent(out)   :: nday
    integer, dimension(:),        intent(out)   :: idxday
    character(len=*),             intent(out)   :: errmsg
    integer,                      intent(out)   :: errflg
    
    ! Local variables
    integer :: i
    
    ! Initialize CCPP error handling variables
    errmsg = ''
    errflg = 0
 
    if (lsswr) then
       ! Check for daytime points for SW radiation.
       nday = 0
       idxday = 0
       do i = 1, im
          if (coszen(i) >= 0.0001) then
             nday = nday + 1
             idxday(nday) = i
          endif
       enddo
    else
       nday   = 0
       idxday = 0
    endif
    
  end subroutine rad_sw_pre_run
end module rad_sw_pre