Yes, good catch. The problem that you are having with swanpre1.F is because you have a CPP option named VECTOR in cppdefs.h. I compiled and ran the coupled models with IFORT and I don't see the problem that you are reporting. I suspect that your application CPP option is VECTOR.
There are several uppercase words that cannot be used as CPP options in ROMS. This includes all the structures of ROMS like OCEAN, GRID, BOUNDARY and so on. The SWAN model is all in uppercase. This is an old legacy code and it is not recommended nowadays to use uppercase code. The CPP options by traditions are all uppercase. Recall that during C-preprocessing all the definitions are set to 1 when activated.