*IDENT ST171199
*/ Original mod created by Andy Jones. This  modified by Simon Tett
*/ to allow optional double call radn diagnostics.
*/ Note this MOD  must be added AFTER RFORC405 (as it modifies that mod)
*DECLARE RAD_CTL1
*I GDR3F305.159
     &      d_alb_ref(P_FIELDDA,CLOUD_LEVELSDA),
!! cld albedo perturbation ref (which will be set to zero)
*I RAD_CTL1.209
      d_alb_ref=0.0 !! set the cloud perturbation to zero.
*/ insert into the 2nd SW call.
*B RFSWCA.1
     &        d_alb_ref(first_point,1), !! reference aerosol change
