       subroutine myOwnMagField_init(year)

       REAL*8    year

       end
