DUMMY_SURF_FIELDS_INIT Subroutine

  1. modd_dummy_surf_fieldsn.F90
  2. MODD_DUMMY_SURF_FIELDS_n
  3. DUMMY_SURF_FIELDS_INIT

public subroutine DUMMY_SURF_FIELDS_INIT(YDUMMY_SURF_FIELDS)

Arguments

Type IntentOptional AttributesName
type(DUMMY_SURF_FIELDS_t), intent(inout) :: YDUMMY_SURF_FIELDS

Contents

Source Code

DUMMY_SURF_FIELDS_INIT

Source Code

SUBROUTINE DUMMY_SURF_FIELDS_INIT(YDUMMY_SURF_FIELDS)
TYPE(DUMMY_SURF_FIELDS_t), INTENT(INOUT) :: YDUMMY_SURF_FIELDS
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_DUMMY_SURF_FIELDS_N:DUMMY_SURF_FIELDS_INIT",0,ZHOOK_HANDLE)
  NULLIFY(YDUMMY_SURF_FIELDS%CDUMMY_NAME)
  NULLIFY(YDUMMY_SURF_FIELDS%CDUMMY_AREA)
  NULLIFY(YDUMMY_SURF_FIELDS%XDUMMY_FIELDS)
YDUMMY_SURF_FIELDS%NDUMMY_NBR=0
IF (LHOOK) CALL DR_HOOK("MODD_DUMMY_SURF_FIELDS_N:DUMMY_SURF_FIELDS_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE DUMMY_SURF_FIELDS_INIT