trip_run_conf.F90

Go to the documentation of this file.

!######
SUBROUTINE trip_run_conf(KLISTING,OOASIS,KYEAR,KMONTH,KDAY,PTIME,  &
                         KLON,KLAT,KNB_TSTEP_RUN,PRUNTIME         )
!####################################################################
!
!!****  *TRIP_RUN_CONF* - prepare the dimenssions (xt or xyt) of a run
!!
!!    PURPOSE
!!    -------
!!
!!**  METHOD
!!    ------
!!
!!    EXTERNAL
!!    --------
!!
!!
!!    IMPLICIT ARGUMENTS
!!    ------------------
!!
!!    REFERENCE
!!    ---------
!!
!!
!!    AUTHOR
!!    ------
!!      B. decharme   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original    06/2008 
!-------------------------------------------------------------------------------
!
!*       0.    DECLARATIONS
!              ------------
!
USE modn_trip_run, ONLY : cfile_frc,creadfrc,cdrain, &
                          crunoff,xtstep_run
!
USE modn_trip,     ONLY : xtstep
!
USE modi_abort_trip
USE modi_trip_forcing_conf
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!*       0.1   Declarations of arguments
!              -------------------------
!
INTEGER,                INTENT(IN)  :: KLISTING
LOGICAL,                INTENT(IN)  :: OOASIS
INTEGER,                INTENT(IN)  :: KYEAR
INTEGER,                INTENT(IN)  :: KMONTH
INTEGER,                INTENT(IN)  :: KDAY
REAL,                   INTENT(IN)  :: PTIME
INTEGER,                INTENT(IN)  :: KLON
INTEGER,                INTENT(IN)  :: KLAT
!
INTEGER,                INTENT(OUT)   :: KNB_TSTEP_RUN
REAL,                   INTENT(INOUT) :: PRUNTIME
!
!
!*       0.2   Declarations of local variables
!              -------------------------------
!
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
!-------------------------------------------------------------------------------
! Read the configuration of the run
!-------------------------------------------------------------------------------
!
IF (lhook) CALL dr_hook('TRIP_RUN_CONF',0,zhook_handle)
!
IF(ooasis)THEN
!
  knb_tstep_run = int(pruntime/xtstep_run)
!
ELSE
!        
  CALL trip_forcing_conf(klisting,kyear,kmonth,kday,ptime,       &
                         cfile_frc,creadfrc,cdrain,crunoff,klon, &
                         klat,xtstep_run,knb_tstep_run,pruntime )
!
ENDIF
!
IF (lhook) CALL dr_hook('TRIP_RUN_CONF',1,zhook_handle)
!-------------------------------------------------------------------------------
!
END SUBROUTINE trip_run_conf