W_DAMP module_initialize_real.F SOLVE_EM TC_BOGUS FDOB_INIT IN4DOB SET_PROJECTION ROTATE_VECTOR CALC_TS_LOCATIONS