*IDENT fixoi
*/
*/ GR says the OI stress sign is wrong in numerous places. Correct them.
*/
*/ WMC 2002/10/09
*/
*DECLARE CALCDIFF 
*D CALCDIFF.210,CALCDIFF.213
c wmc/gr
c       XSTRESS_ICE(I) = WSX_LEADS(I)+ISX(I)                               CALCDIFF.210
c       YSTRESS_ICE(I) = WSY_LEADS(I)+ISY(I)                               CALCDIFF.211
c       XSTRESS_ICEM(I) = WSX_LEADSM(I)+ISXM(I)                            CALCDIFF.212
c       YSTRESS_ICEM(I) = WSY_LEADSM(I)+ISYM(I)                            CALCDIFF.213
        XSTRESS_ICE(I) = WSX_LEADS(I)-ISX(I)                          
        YSTRESS_ICE(I) = WSY_LEADS(I)-ISY(I)                        
        XSTRESS_ICEM(I) = WSX_LEADSM(I)-ISXM(I)                    
        YSTRESS_ICEM(I) = WSY_LEADSM(I)-ISYM(I)                
*/
*DECLARE CALCESAV
*D OLA0F404.113,OLA0F404.116
c wmc/gr
c       XSTRESS_ICE(I) = WSX_LEADS(I)+ISX(I)                               OLA0F404.113
c       YSTRESS_ICE(I) = WSY_LEADS(I)+ISY(I)                               OLA0F404.114
c       XSTRESS_ICEM(I) = WSX_LEADSM(I)+ISXM(I)                            OLA0F404.115
c       YSTRESS_ICEM(I) = WSY_LEADSM(I)+ISYM(I)                            OLA0F404.116
        XSTRESS_ICE(I) = WSX_LEADS(I)-ISX(I)  
        YSTRESS_ICE(I) = WSY_LEADS(I)-ISY(I)   
        XSTRESS_ICEM(I) = WSX_LEADSM(I)-ISXM(I)  
        YSTRESS_ICEM(I) = WSY_LEADSM(I)-ISYM(I)   
*/
*DECLARE CLINIC
*D ORH1F305.2953,ORH1F305.2954
C wmc/gr
c           xstress_ice(i) = ( wsx_leads(i) + isx(i) ) * gm(i,1)           ORH1F305.2953
c           ystress_ice(i) = ( wsy_leads(i) + isy(i) ) * gm(i,1)           ORH1F305.2954
            xstress_ice(i) = ( wsx_leads(i) - isx(i) ) * gm(i,1)    
            ystress_ice(i) = ( wsy_leads(i) - isy(i) ) * gm(i,1)   
*/
*DECLARE TRACER
*D OLA0F404.67,OLA0F404.70
c wmc/gr
c       XSTRESS_ICE(I) = WSX_LEADS(I)+ISX(I)                               OLA0F404.67
c       YSTRESS_ICE(I) = WSY_LEADS(I)+ISY(I)                               OLA0F404.68
c       XSTRESS_ICEM(I) = WSX_LEADSM(I)+ISXM(I)                            OLA0F404.69
c       YSTRESS_ICEM(I) = WSY_LEADSM(I)+ISYM(I)                            OLA0F404.70
        XSTRESS_ICE(I) = WSX_LEADS(I)-ISX(I)                       
        YSTRESS_ICE(I) = WSY_LEADS(I)-ISY(I)             
        XSTRESS_ICEM(I) = WSX_LEADSM(I)-ISXM(I)       
        YSTRESS_ICEM(I) = WSY_LEADSM(I)-ISYM(I)