mom_hor_index::assignment(=) Interface Reference

Detailed Description

Copy the contents of one horizontal index type into another.

Definition at line 58 of file MOM_hor_index.F90.

Private functions
subroutine	hit_assign (HI1, HI2)
	HIT_assign copies one hor_index_type into another. It is accessed via an assignment (=) operator. More...

Detailed Description

Copy the contents of one horizontal index type into another.

Definition at line 58 of file MOM_hor_index.F90.

Functions and subroutines

hit_assign()

subroutine mom_hor_index::assignment(=)::hit_assign ( type(hor_index_type), intent(out)  HI1, type(hor_index_type), intent(in)  HI2  )

private

HIT_assign copies one hor_index_type into another. It is accessed via an assignment (=) operator.

Parameters

[out]	hi1	Horizontal index type to copy to
[in]	hi2	Horizontal index type to copy from

Definition at line 103 of file MOM_hor_index.F90.

  type(hor_index_type), intent(out) :: HI1 !< Horizontal index type to copy to
  type(hor_index_type), intent(in)  :: HI2 !< Horizontal index type to copy from
  ! This subroutine copies all components of the horizontal array index type
  ! variable on the RHS (HI2) to the variable on the LHS (HI1).
 
  hi1%isc = hi2%isc ; hi1%iec = hi2%iec ; hi1%jsc = hi2%jsc ; hi1%jec = hi2%jec
  hi1%isd = hi2%isd ; hi1%ied = hi2%ied ; hi1%jsd = hi2%jsd ; hi1%jed = hi2%jed
  hi1%isg = hi2%isg ; hi1%ieg = hi2%ieg ; hi1%jsg = hi2%jsg ; hi1%jeg = hi2%jeg
 
  hi1%IscB = hi2%IscB ; hi1%IecB = hi2%IecB ; hi1%JscB = hi2%JscB ; hi1%JecB = hi2%JecB
  hi1%IsdB = hi2%IsdB ; hi1%IedB = hi2%IedB ; hi1%JsdB = hi2%JsdB ; hi1%JedB = hi2%JedB
  hi1%IsgB = hi2%IsgB ; hi1%IegB = hi2%IegB ; hi1%JsgB = hi2%JsgB ; hi1%JegB = hi2%JegB
 
  hi1%niglobal = hi2%niglobal ; hi1%njglobal = hi2%njglobal
  hi1%idg_offset = hi2%idg_offset ; hi1%jdg_offset = hi2%jdg_offset
  hi1%symmetric = hi2%symmetric
  hi1%turns = hi2%turns

---

The documentation for this interface was generated from the following file:

• /home/cermak/src/MOM6.devrob/src/framework/MOM_hor_index.F90