SURF_ATM_GRID_INIT Subroutine

  1. modd_surf_atm_gridn.F90
  2. MODD_SURF_ATM_GRID_n
  3. SURF_ATM_GRID_INIT

public subroutine SURF_ATM_GRID_INIT(YSURF_ATM_GRID)

Arguments

Type IntentOptional AttributesName
type(SURF_ATM_GRID_t), intent(inout) :: YSURF_ATM_GRID

Contents

Source Code

SURF_ATM_GRID_INIT

Source Code

SUBROUTINE SURF_ATM_GRID_INIT(YSURF_ATM_GRID)
TYPE(SURF_ATM_GRID_t), INTENT(INOUT) :: YSURF_ATM_GRID
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_SURF_ATM_GRID_N:SURF_ATM_GRID_INIT",0,ZHOOK_HANDLE)
  CALL GRID_INIT(YSURF_ATM_GRID%G)
  NULLIFY(YSURF_ATM_GRID%NNEAR)
  NULLIFY(YSURF_ATM_GRID%XGRID_FULL_PAR)
  NULLIFY(YSURF_ATM_GRID%XJPDIR) 
YSURF_ATM_GRID%NGRID_FULL_PAR=0
IF (LHOOK) CALL DR_HOOK("MODD_SURF_ATM_GRID_N:SURF_ATM_GRID_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE SURF_ATM_GRID_INIT