IDEAL_INIT Subroutine

  1. modd_idealn.F90
  2. MODD_IDEAL_n
  3. IDEAL_INIT

public subroutine IDEAL_INIT(YIDEAL)

Arguments

Type IntentOptional AttributesName
type(IDEAL_t), intent(inout) :: YIDEAL

Contents

Source Code

IDEAL_INIT

Source Code

SUBROUTINE IDEAL_INIT(YIDEAL)
TYPE(IDEAL_t), INTENT(INOUT) :: YIDEAL
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_IDEAL_N:IDEAL_INIT",0,ZHOOK_HANDLE)
YIDEAL%XTSTEP=0.
YIDEAL%XOUT_TSTEP=0.
IF (LHOOK) CALL DR_HOOK("MODD_IDEAL_N:IDEAL_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE IDEAL_INIT