*IDENT RFO3405
*/ Modeset to go with RFORC405 to allow forcing to be computed relative to ozone changes.
*/ Reference ozone values should be specified in MURK ancillary file.
*/ I know it is an evil hack but we need a way of specifiying independant user ancillaries.
*/ only incorporate this mod is USEFORCE is defined.
*/ use force is defined in RFORC405.
*/ Declare second ozone field. 
*DECLARE RAD_CTL1
*I GDR3F305.159
     &      OZONE_ref(P_FIELDDA,OZONE_LEVELSDA),
!! reference ozone values.
*/ Copy second ozone field. 
*I RAD_CTL1.208
	if (call_2nd_lw.or.call_2nd_sw) then  !! only do this if need ozone
          DO I=1,P_FIELD
            OZONE_ref(I,LEVEL)=D1(JMURK(LEVEL)+I-1) !! MURK is really 3D ozone.
          END DO
        endif
*/ Change RFORC405 mod -- which has an ID for this change
*/ call to r2_swrad. 
*D RFSWO3.1
     &        D1(JQ(1)+JS),CO2_MMR_D,OZONE_ref(FIRST_POINT,1),O2MMR_D,
*/ call to r2_lwrad
*D RFLWO3.1
     &        D1(JQ(1)+JS_LOCAL(I)),CO2_MMR_D,OZONE_ref(FP_LOCAL(I),1),
