GRID_INIT Subroutine

  1. modd_sfx_gridn.F90
  2. MODD_SFX_GRID_n
  3. GRID_INIT

public subroutine GRID_INIT(G)

Arguments

Type IntentOptional AttributesName
type(GRID_t), intent(inout) :: G

Contents

Source Code

GRID_INIT

Source Code

SUBROUTINE GRID_INIT(G)
TYPE(GRID_t), INTENT(INOUT) :: G
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_SFX_GRID_N:IGRID_INIT",0,ZHOOK_HANDLE)
  NULLIFY(G%XGRID_PAR)
  NULLIFY(G%XLAT)
  NULLIFY(G%XLON)
  NULLIFY(G%XMESH_SIZE)
G%NDIM=0
G%CGRID=' '
IF (LHOOK) CALL DR_HOOK("MODD_SFX_GRID_N:GRID_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE GRID_INIT