mom_coms::assignment(=) Interface Reference

Detailed Description

Copy the value of one extended-fixed-point number into another.

Definition at line 83 of file MOM_coms.F90.

Private functions
subroutine	efp_assign (EFP1, EFP2)
	Copy one extended-fixed-point number into another. More...

Detailed Description

Copy the value of one extended-fixed-point number into another.

Definition at line 83 of file MOM_coms.F90.

Functions and subroutines

efp_assign()

subroutine mom_coms::assignment(=)::efp_assign ( type(efp_type), intent(out)  EFP1, type(efp_type), intent(in)  EFP2  )

private

Copy one extended-fixed-point number into another.

Parameters

[out]	efp1	The recipient extended fixed point number
[in]	efp2	The source extended fixed point number

Definition at line 728 of file MOM_coms.F90.

  type(EFP_type), intent(out) :: EFP1 !< The recipient extended fixed point number
  type(EFP_type), intent(in)  :: EFP2 !< The source extended fixed point number
  integer i
  ! This subroutine assigns all components of the extended fixed point type
  ! variable on the RHS (EFP2) to the components of the variable on the LHS
  ! (EFP1).
 
  do i=1,ni ; efp1%v(i) = efp2%v(i) ; enddo

---

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

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