Generic GCM:
readcoord.F scatter.F gather.F ini36.F from36.F to36.F lnblnk.F (F90 len_trim() should be used instead)
xvik.F (specific to current Mars)
EM