DATA_SEAFLUX_INIT Subroutine

  1. modd_data_seafluxn.F90
  2. MODD_DATA_SEAFLUX_n
  3. DATA_SEAFLUX_INIT

public subroutine DATA_SEAFLUX_INIT(YDATA_SEAFLUX)

Arguments

Type IntentOptional AttributesName
type(DATA_SEAFLUX_t), intent(inout) :: YDATA_SEAFLUX

Contents

Source Code

DATA_SEAFLUX_INIT

Source Code

SUBROUTINE DATA_SEAFLUX_INIT(YDATA_SEAFLUX)
TYPE(DATA_SEAFLUX_t), INTENT(INOUT) :: YDATA_SEAFLUX
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_DATA_SEAFLUX_N:DATA_SEAFLUX_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YDATA_SEAFLUX%XDATA_SST)
YDATA_SEAFLUX%NTIME=0
YDATA_SEAFLUX%LSST_DATA=.FALSE.
IF (LHOOK) CALL DR_HOOK("MODD_DATA_SEAFLUX_N:DATA_SEAFLUX_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE DATA_SEAFLUX_INIT