wrap_benchmark_fields Subroutine

public subroutine wrap_benchmark_fields(ywflds, lvordiv, lscders, luvders, kuv, k2d, k3d, zspvor, zspdiv, zspsc3a, zspsc2, zgpuv, zgp3a, zgp2)

Arguments

Type IntentOptional Attributes Name
type(wrapped_fields), intent(inout) :: ywflds
logical, intent(in) :: lvordiv
logical, intent(in) :: lscders
logical, intent(in) :: luvders
integer, intent(in) :: kuv
integer, intent(in) :: k2d
integer, intent(in) :: k3d
real(kind=jprb), intent(in) :: zspvor(:,:)
real(kind=jprb), intent(in) :: zspdiv(:,:)
real(kind=jprb), intent(in) :: zspsc3a(:,:,:)
real(kind=jprb), intent(in) :: zspsc2(:,:)
real(kind=jprb), intent(in) :: zgpuv(:,:,:,:)
real(kind=jprb), intent(in) :: zgp3a(:,:,:,:)
real(kind=jprb), intent(in) :: zgp2(:,:,:)

Calls

proc~~wrap_benchmark_fields~~CallsGraph proc~wrap_benchmark_fields wrap_benchmark_fields field_new field_new proc~wrap_benchmark_fields->field_new