& thSIceTsurf_InitFile
CHARACTER*(MAX_LEN_FNAM) thSIceTsurf_InitFile
IF ( thSIceTsurf_InitFile .NE. ' ' ) THEN
CALL READ_REC_XY_RL(thSIceTsurf_InitFile,Tsrf,1,0,myThid)
thSIceTsurf_InitFile = ' '
& thSIceEnthp_InitFile, thSIceTsurf_InitFile