ReadNewBioclimIfNecessary.f90

Go to the documentation of this file.

!==============================================================================
!===============================================================
 
SUBROUTINE readnewbioclimifnecessary(year)
 
    
    use all_par, only: simustartyear, newbioclim, oldbioclim, envfromfile
 
    IMPLICIT NONE
 
    ! Passed variables>--------------------------------------------------------------------------------
 
    INTEGER, INTENT(in) :: year
 
    ! Local variables>---------------------------------------------------------------------------------
    INTEGER :: actualyear
 
    ! Here the SUBROUTINE starts>**********************************************************************
 
    actualyear = year + simustartyear ! current year in real years
    if (envfromfile) then
        do while (actualyear .ge. newbioclim%cctime) ! if current year > last read in year then read new bioclim data
            oldbioclim = newbioclim
            call readnewbioclim
        end do
    end if
end SUBROUTINE readnewbioclimifnecessary
! done