OCEAN_INIT Subroutine

  1. modd_oceann.F90
  2. MODD_OCEAN_n
  3. OCEAN_INIT

public subroutine OCEAN_INIT(YOCEAN)

Arguments

Type IntentOptional AttributesName
type(OCEAN_t), intent(inout) :: YOCEAN

Contents

Source Code

OCEAN_INIT

Source Code

SUBROUTINE OCEAN_INIT(YOCEAN)
TYPE(OCEAN_t), INTENT(INOUT) :: YOCEAN
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_OCEAN_N:OCEAN_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YOCEAN%XSEAT)
  NULLIFY(YOCEAN%XSEAS)
  NULLIFY(YOCEAN%XSEAU)
  NULLIFY(YOCEAN%XSEAV)
  NULLIFY(YOCEAN%XSEAE)
  NULLIFY(YOCEAN%XSEABATH)
  NULLIFY(YOCEAN%XSEAHMO)
  NULLIFY(YOCEAN%XLE)
  NULLIFY(YOCEAN%XLK)
  NULLIFY(YOCEAN%XKMEL)
  NULLIFY(YOCEAN%XKMELM)
  NULLIFY(YOCEAN%XSEATEND)
  NULLIFY(YOCEAN%XDTFNSOL)
  NULLIFY(YOCEAN%XDTFSOL)
YOCEAN%LMERCATOR=.FALSE.
YOCEAN%LCURRENT=.FALSE.
YOCEAN%LPROGSST=.FALSE.
YOCEAN%NTIME_COUPLING=0
YOCEAN%NOCTCOUNT=0
YOCEAN%XOCEAN_TSTEP=5*60.
IF (LHOOK) CALL DR_HOOK("MODD_OCEAN_N:OCEAN_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE OCEAN_INIT