MODULE layout_mod USE genmod IMPLICIT NONE INTEGER,PARAMETER :: field_T=1 INTEGER,PARAMETER :: field_U=2 INTEGER,PARAMETER :: field_Z=3 INTEGER,PARAMETER :: field_type_max=3 TYPE t_layout LOGICAL :: oriented ! .TRUE. if sign may need to change when exchanging halos INTEGER :: ij_size ! needed for allocation END type t_layout ! allocated and filled during model startup TYPE(t_layout), ALLOCATABLE :: layout(:,:), & ! used by allocated_field & layout_glo(:,:) ! used by allocated_field_glo CONTAINS END MODULE layout_mod