*IDENT CLDDC404
*/
*/ Modset to diagnose cloud extinctions and absorptivities.
*/ changes for double call added by SFBT 17/11/99.
*/ note if double call wanted then this mod must be added AFTER RFORC405
*/
*/ This is only a partial conversion to stop the LW and SW calls
*/ crashing because they have argument mis-matches.
*/ The user stash master doesn't include these diagnostics.
*/ If wanted as forcings (i.e. differences) then more changes
*/ are needed.
*DECLARE RAD_CTL1
*I RAD_CTL1.36
!LL 4.x Nov. 1999 Diagnostics of SW cloud extinction
!LL                  and LW cloud absorptivity and of total cloud
!LL                  amount on model levels added to 2nd call
!LL                                      (S Tett)
*/ Mods to the 2nd SW call. 
*I RFSWCL.1
!! NOTE that as the double call stands the cloud diagnostics shouldn't
!! be generated as they are identical to the first call values.
!! In future there might be some point.....
     &        STASHWORK(SI(439,1,im_index)+JS), SF(439,1),
     &        STASHWORK(SI(440,1,im_index)+JS), SF(440,1),
*/ Mods to the 2nd LW call.
*I RFLWCL.1
!! NOTE that as RFORC404 stands the cloud diagnostics shouldn't
!! be generated as they are identical to the first call. 
!! In future there might be some point.....
     &        STASHWORK(JS_LOCAL(I)+SI(439,2,im_index)), SF(439,2),
     &        STASHWORK(JS_LOCAL(I)+SI(440,2,im_index)), SF(440,2),
     &        STASHWORK(JS_LOCAL(I)+SI(441,2,im_index)), SF(441,2),
