interp_temperature_v

public function interp_temperature_v(i, j, k)

Uses

- modfields
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Arguments

Type	Intent		Name
integer,	intent(in)	::	i
integer,	intent(in)	::	j
integer,	intent(in)	::	k

Return Value real

Source Code

   real function interp_temperature_v(i, j, k)
     ! interpolates the temperature at v-grid location i,j,k
     use modfields, only :  thl0
     integer, intent(in) :: i, j, k

     !interp_temperature_v = 0.5 * (thl0(i,j,k) + thl0(i,j-1,k))
     interp_temperature_v = 0.5 * (thl0(i,j  ,k)*mask_c(i,j  ,k)*(2.-mask_c(i,j-1,k)) &
                                 + thl0(i,j-1,k)*mask_c(i,j-1,k)*(2.-mask_c(i,j  ,k)))

     return
   end function interp_temperature_v

interp_temperature_v Function

Contents

Source Code

public function interp_temperature_v(i, j, k)

Uses

Arguments

Return Value real

Source Code