diff --git a/Source/geom.f90 b/Source/geom.f90 index 216af77f507..67dfc03ffcc 100644 --- a/Source/geom.f90 +++ b/Source/geom.f90 @@ -22177,6 +22177,7 @@ SUBROUTINE READ_GEOM DEVC_ID,CTRL_ID,SURF_IDS(3),SURF_ID6(6),MOVE_ID CHARACTER(FN_LENGTH) :: BUFFER,FN_BINGEOM,BINARY_FILE CHARACTER(LABEL_LENGTH), ALLOCATABLE, DIMENSION(:) :: SURF_ID +CHARACTER(MESSAGE_LENGTH) :: FYI REAL(EB), ALLOCATABLE, DIMENSION(:) :: ZVALS,TFACES REAL(EB), ALLOCATABLE, TARGET, DIMENSION(:) :: VERTS,VERTS_AUX INTEGER, ALLOCATABLE, DIMENSION(:) :: SURF_ID_IND,POLY @@ -22235,7 +22236,7 @@ SUBROUTINE READ_GEOM NAMELIST /GEOM/ BNDF_GEOM,BINARY_FILE,CELL_BLOCK_IOR,CELL_BLOCK_ORIENTATION,COLOR,CYLINDER_ORIGIN,CYLINDER_AXIS,& CYLINDER_RADIUS,CYLINDER_LENGTH,CYLINDER_NSEG_THETA,CYLINDER_NSEG_AXIS,& - EXTRUDE,EXTEND_TERRAIN,FACES,ID,IJK,IS_TERRAIN,MOVE_ID,N_LAT,N_LEVELS,N_LONG,POLY,& + EXTRUDE,EXTEND_TERRAIN,FACES,FYI,ID,IJK,IS_TERRAIN,MOVE_ID,N_LAT,N_LEVELS,N_LONG,POLY,& RGB,SPHERE_ORIGIN,SPHERE_RADIUS,SPHERE_TYPE,SURF_ID,SURF_IDS,SURF_ID6,& TEXTURE_MAPPING,TEXTURE_ORIGIN,TEXTURE_SCALE,TRANSPARENCY,& VERTS,XB,ZMIN,ZVALS,ZVAL_HORIZON @@ -24311,6 +24312,7 @@ SUBROUTINE SET_GEOM_DEFAULTS MOVE_ID = 'null' DEVC_ID = 'null' CTRL_ID = 'null' + FYI = 'null' HAVE_SURF = .TRUE. HAVE_MATL = .TRUE. TEXTURE_ORIGIN = 0.0_EB