GRID_CONF_PROJ_INIT Subroutine

  1. modd_grid_conf_projn.F90
  2. MODD_GRID_CONF_PROJ_n
  3. GRID_CONF_PROJ_INIT

public subroutine GRID_CONF_PROJ_INIT(YGRIDCONF)

Arguments

Type IntentOptional AttributesName
type(GRID_CONF_PROJ_t), intent(inout) :: YGRIDCONF

Contents

Source Code

GRID_CONF_PROJ_INIT

Source Code

SUBROUTINE GRID_CONF_PROJ_INIT(YGRIDCONF)
TYPE(GRID_CONF_PROJ_t), INTENT(INOUT) :: YGRIDCONF
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_GRID_CONF_PROJ_n:GRID_CONF_PROJ_INIT",0,ZHOOK_HANDLE)
YGRIDCONF%NX = 0
YGRIDCONF%NY = 0
YGRIDCONF%XLAT0 = 0.
YGRIDCONF%XLON0 = 0.
YGRIDCONF%XLATORI = 0.
YGRIDCONF%XLONORI = 0.
YGRIDCONF%XRPK = 0.
YGRIDCONF%XBETA = 0.
YGRIDCONF%XLATC = 0.
YGRIDCONF%XLONC = 0.
IF (LHOOK) CALL DR_HOOK("MODD_GRID_CONF_PROJ_n:GRID_CONF_PROJ_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE GRID_CONF_PROJ_INIT