DIAG_MISC_FLAKE_INIT Subroutine

  1. modd_diag_misc_flaken.F90
  2. MODD_DIAG_MISC_FLAKE_n
  3. DIAG_MISC_FLAKE_INIT

public subroutine DIAG_MISC_FLAKE_INIT(DMF)

Arguments

Type IntentOptional AttributesName
type(DIAG_MISC_FLAKE_t), intent(inout) :: DMF

Contents

Source Code

DIAG_MISC_FLAKE_INIT

Source Code

SUBROUTINE DIAG_MISC_FLAKE_INIT(DMF)
TYPE(DIAG_MISC_FLAKE_t), INTENT(INOUT) :: DMF
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_DIAG_MISC_FLAKE_N:DIAG_MISC_FLAKE_INIT",0,ZHOOK_HANDLE)
  NULLIFY(DMF%XZWAT_PROFILE)
  NULLIFY(DMF%XZW_PROFILE)
  NULLIFY(DMF%XTW_PROFILE)
DMF%LWATER_PROFILE=.FALSE.
IF (LHOOK) CALL DR_HOOK("MODD_DIAG_MISC_FLAKE_N:DIAG_MISC_FLAKE_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE DIAG_MISC_FLAKE_INIT