FUNCTION EFFG(Z)
#include "YOMCST.h"
! RA en m, Z en km...
      EFFG = RG * (RA/(RA + Z*1000. ) )**2
      RETURN
      END