DIAG_MISC_SEAICE_INIT Subroutine

  1. modd_diag_misc_seaicen.F90
  2. MODD_DIAG_MISC_SEAICE_n
  3. DIAG_MISC_SEAICE_INIT

public subroutine DIAG_MISC_SEAICE_INIT(YDIAG_MISC_SEAICE)

Arguments

Type IntentOptional AttributesName
type(DIAG_MISC_SEAICE_t), intent(inout) :: YDIAG_MISC_SEAICE

Contents

Source Code

DIAG_MISC_SEAICE_INIT

Source Code

SUBROUTINE DIAG_MISC_SEAICE_INIT(YDIAG_MISC_SEAICE)
TYPE(DIAG_MISC_SEAICE_t), INTENT(INOUT) :: YDIAG_MISC_SEAICE
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_DIAG_MISC_SEAICE_N:DIAG_MISC_SEAICE_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YDIAG_MISC_SEAICE%XSIT)
  NULLIFY(YDIAG_MISC_SEAICE%XSND)
  NULLIFY(YDIAG_MISC_SEAICE%XMLT)
YDIAG_MISC_SEAICE%LDIAG_MISC_SEAICE=.FALSE.
IF (LHOOK) CALL DR_HOOK("MODD_DIAG_MISC_SEAICE_N:DIAG_MISC_SEAICE_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE DIAG_MISC_SEAICE_INIT