MOM6
mom_hor_index::assignment(=) Interface Reference

Detailed Description

Copy the contents of one horizontal index type into another.

Definition at line 52 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...
 

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]hi1Horizontal index type to copy to
[in]hi2Horizontal index type to copy from

Definition at line 96 of file MOM_hor_index.F90.

96  type(hor_index_type), intent(out) :: HI1 !< Horizontal index type to copy to
97  type(hor_index_type), intent(in) :: HI2 !< Horizontal index type to copy from
98  ! This subroutine copies all components of the horizontal array index type
99  ! variable on the RHS (HI2) to the variable on the LHS (HI1).
100 
101  hi1%isc = hi2%isc ; hi1%iec = hi2%iec ; hi1%jsc = hi2%jsc ; hi1%jec = hi2%jec
102  hi1%isd = hi2%isd ; hi1%ied = hi2%ied ; hi1%jsd = hi2%jsd ; hi1%jed = hi2%jed
103  hi1%isg = hi2%isg ; hi1%ieg = hi2%ieg ; hi1%jsg = hi2%jsg ; hi1%jeg = hi2%jeg
104 
105  hi1%IscB = hi2%IscB ; hi1%IecB = hi2%IecB ; hi1%JscB = hi2%JscB ; hi1%JecB = hi2%JecB
106  hi1%IsdB = hi2%IsdB ; hi1%IedB = hi2%IedB ; hi1%JsdB = hi2%JsdB ; hi1%JedB = hi2%JedB
107  hi1%IsgB = hi2%IsgB ; hi1%IegB = hi2%IegB ; hi1%JsgB = hi2%JsgB ; hi1%JegB = hi2%JegB
108 
109  hi1%idg_offset = hi2%idg_offset ; hi1%jdg_offset = hi2%jdg_offset
110  hi1%symmetric = hi2%symmetric
111 

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