DIAG_OCEAN_INIT Subroutine

  1. modd_diag_oceann.F90
  2. MODD_DIAG_OCEAN_n
  3. DIAG_OCEAN_INIT

public subroutine DIAG_OCEAN_INIT(YDIAG_OCEAN)

Arguments

Type IntentOptional AttributesName
type(DIAG_OCEAN_t), intent(inout) :: YDIAG_OCEAN

Contents

Source Code

DIAG_OCEAN_INIT

Source Code

SUBROUTINE DIAG_OCEAN_INIT(YDIAG_OCEAN)
TYPE(DIAG_OCEAN_t), INTENT(INOUT) :: YDIAG_OCEAN
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_DIAG_OCEAN_N:DIAG_OCEAN_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YDIAG_OCEAN%XTOCMOY)
  NULLIFY(YDIAG_OCEAN%XSOCMOY)
  NULLIFY(YDIAG_OCEAN%XUOCMOY)
  NULLIFY(YDIAG_OCEAN%XVOCMOY)
  NULLIFY(YDIAG_OCEAN%XDOCMOY)
YDIAG_OCEAN%LDIAG_OCEAN=.FALSE.
IF (LHOOK) CALL DR_HOOK("MODD_DIAG_OCEAN_N:DIAG_OCEAN_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE DIAG_OCEAN_INIT