Rupert Ford
Rupert Ford
``` SUBROUTINE set_field(fld, val) implicit none type(field_type), INTENT(out) :: fld real, INTENT(in) :: val select type(fld) type is (r2d_field) fld%data = val class default end select END SUBROUTINE set_field ```...
I think this internal compiler error is to do with the `extend` clause ``` module field_mod implicit none type, public, extends(field_type) :: r2d_field integer :: ntiles end type r2d_field end...
``` function get_tmask(self) result(tmask) implicit none class (grid_type), target, intent(in) :: self integer, pointer :: tmask(:,:) tmask => self%tmask return end function get_tmask ``` ``` grid_mod.f90:3:3: error: sorry: CLASS type-specifier...
type bound procedures fail ... ``` module grid_mod implicit none type, public :: grid_type integer :: name contains procedure :: get_tmask end type grid_type end module grid_mod ``` ``` grid_mod.f90:7:6:...
constructors don't seem to be supported ... ``` module region_mod implicit none type :: region_type integer :: nx end type region_type interface region_type module procedure region_constructor end interface region_type end...
Raises generic PSyIR capturing an LFRic Kernel to LFRic-specific PSyIR with the metadata stored in a separate class for easy access, modification etc.
Will also be implemented in PSyAD as part of the preprocessing.
Adds support for explicit array range declarations to the dotproducttrans transformation. Required for PSyAD with PR #1825.