OCEAN_REL_INIT Subroutine

  1. modd_ocean_reln.F90
  2. MODD_OCEAN_REL_n
  3. OCEAN_REL_INIT

public subroutine OCEAN_REL_INIT(YOCEAN_REL)

Arguments

Type IntentOptional AttributesName
type(OCEAN_REL_t), intent(inout) :: YOCEAN_REL

Contents

Source Code

OCEAN_REL_INIT

Source Code

SUBROUTINE OCEAN_REL_INIT(YOCEAN_REL)
TYPE(OCEAN_REL_t), INTENT(INOUT) :: YOCEAN_REL
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_OCEAN_REL_N:OCEAN_REL_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YOCEAN_REL%XSEAT_REL)
  NULLIFY(YOCEAN_REL%XSEAS_REL)
  NULLIFY(YOCEAN_REL%XSEAU_REL)
  NULLIFY(YOCEAN_REL%XSEAV_REL)
YOCEAN_REL%XTAU_REL=0.
YOCEAN_REL%XQCORR=0.
YOCEAN_REL%LREL_CUR=.FALSE.
YOCEAN_REL%LREL_TS=.FALSE.
YOCEAN_REL%LFLUX_NULL=.FALSE.
YOCEAN_REL%LFLX_CORR=.FALSE.
YOCEAN_REL%LDIAPYCNAL=.FALSE.
!
IF (LHOOK) CALL DR_HOOK("MODD_OCEAN_REL_N:OCEAN_REL_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE OCEAN_REL_INIT