ESMF_ShallowInit Subroutine

public subroutine ESMF_ShallowInit(s)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Shallow), intent(inout) :: s

Source Code

   subroutine ESMF_ShallowInit(s)
      type(ESMF_Shallow), intent(inout) :: s
       
       s%num=4

       ESMF_INIT_SET_DEFINED(s)
   end subroutine ESMF_ShallowInit