MOM6
mom_coms::operator(-) Interface Reference

Detailed Description

Subtract one extended-fixed-point number from another.

Definition at line 71 of file MOM_coms.F90.

Private functions

type(efp_type) function efp_minus (EFP1, EFP2)
 Subract one extended-fixed-point number from another. More...
 

Functions and subroutines

◆ efp_minus()

type(efp_type) function mom_coms::operator(-)::efp_minus ( type(efp_type), intent(in)  EFP1,
type(efp_type), intent(in)  EFP2 
)
private

Subract one extended-fixed-point number from another.

Returns
The result in extended fixed point format
Parameters
[in]efp1The first extended fixed point number
[in]efp2The extended fixed point number being subtracted from the first extended fixed point number

Definition at line 625 of file MOM_coms.F90.

625  type(EFP_type) :: EFP_minus !< The result in extended fixed point format
626  type(EFP_type), intent(in) :: EFP1 !< The first extended fixed point number
627  type(EFP_type), intent(in) :: EFP2 !< The extended fixed point number being
628  !! subtracted from the first extended fixed point number
629  integer :: i
630 
631  do i=1,ni ; efp_minus%v(i) = -1*efp2%v(i) ; enddo
632 
633  call increment_ints(efp_minus%v(:), efp1%v(:))

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