GetEnvFactors.f90

Go to the documentation of this file.

!==============================================================================
!
!===============================================================
SUBROUTINE getenvfactors(year, lat, lon, ddegs, wtemp, drstr, avnit, brwpr, disturb, germDrought)
 
    ! CALL modules for TYPE definitions and +- fixed variables>---------------------------------------------------------------
    use all_par, only: includeenv, envfromfile, stockability, oldbioclim
 
    IMPLICIT NONE
 
    !  Passed variables>-------------------------------------------------------------------------------
    INTEGER, INTENT(in) :: year, &    ! Passed simulation year
                           lat, lon       ! Passed coordinates
    REAL, INTENT(out)  :: ddegs, wtemp, drstr, avnit, brwpr, disturb, germDrought
 
    ! Here the SUBROUTINE starts>*********************************************************************
   !----- Check whether cell is stockable (muDD>= 0). if not, set stockability to 0----------------------------------------------------
    stockability(lat, lon) = 1.0
    if (oldbioclim%bc(lat, lon)%muDD < 0.0) then
        !  print *, lat, lon ,oldBioClim%bc(lat, lon)%muDD
        stockability(lat, lon)  = 0.0
        ddegs                   = -999.0
    end if
    if (stockability(lat, lon) == 0.0) return
    !----- if the cell is stockable get the values for the environmental factors ----------------------------------------------------
 
    include_env: if (includeenv) then
        !----- Read environmental (site) information per grid-cell -----------------------
        if ( (envfromfile ) .AND. (stockability(lat, lon) > 0.0) ) then
            call getbioclimsimple(year, lat, lon, ddegs, wtemp, drstr, avnit, brwpr, disturb, germdrought)
        end if
    end if include_env
 
end SUBROUTINE getenvfactors
!done