!auto_modi:spll_vegetation_update.D MODULE MODI_VEGETATION_UPDATE INTERFACE SUBROUTINE VEGETATION_UPDATE (DTCO, DTV, KDIM, IO, KK, PK, PEK, KPATCH, & PTSTEP, TTIME ,PCOVER, OCOVER, & OAGRIP, HSFTYPE, OALB, ISSK, ODUPDATED, OABSENT ) USE MODD_ISBA_n, ONLY : ISBA_K_t, ISBA_P_t, ISBA_PE_t USE MODD_SSO_n, ONLY : SSO_t USE MODD_DATA_COVER_n, ONLY : DATA_COVER_t USE MODD_DATA_ISBA_n, ONLY : DATA_ISBA_t USE MODD_ISBA_OPTIONS_n, ONLY : ISBA_OPTIONS_t USE MODD_TYPE_DATE_SURF IMPLICIT NONE TYPE(DATA_COVER_t), INTENT(INOUT) :: DTCO TYPE(DATA_ISBA_t), INTENT(INOUT) :: DTV INTEGER, INTENT(IN) :: KDIM TYPE(ISBA_OPTIONS_t), INTENT(INOUT) :: IO TYPE(ISBA_K_t), INTENT(INOUT) :: KK TYPE(ISBA_P_t), INTENT(INOUT) :: PK TYPE(ISBA_PE_t), INTENT(INOUT) :: PEK INTEGER, INTENT(IN) :: KPATCH REAL, INTENT(IN) :: PTSTEP ! time step TYPE(DATE_TIME), INTENT(IN) :: TTIME ! UTC time REAL, DIMENSION(:,:), INTENT(IN) :: PCOVER ! cover types LOGICAL, DIMENSION(:), INTENT(IN) :: OCOVER LOGICAL, INTENT(IN) :: OAGRIP CHARACTER(LEN=*), INTENT(IN) :: HSFTYPE ! nature / garden LOGICAL, INTENT(IN) :: OALB TYPE(SSO_t), INTENT(INOUT) :: ISSK LOGICAL, INTENT(OUT) :: ODUPDATED ! T if parameters are being reset LOGICAL,DIMENSION(:), INTENT(IN), OPTIONAL :: OABSENT ! T where field is not defined END SUBROUTINE VEGETATION_UPDATE END INTERFACE END MODULE MODI_VEGETATION_UPDATE