This is my sub-routine UFIELD and relevant parts of the input file in my attempt to modify Young's Modulus with depth for a 3D block of soil. Model is 50 m in depth with vertical co-ordinate numbered from bottom up.
SUBROUTINE UFIELD(FIELD,KFIELD,NSECPT,KSTEP,KINC,TIME,NODE,
1...