------------------------------------- Doing diff of akim.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/akim.f ------------------------------------- Doing diff of amatrix.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/amatrix.f ------------------------------------- Doing diff of bound.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/bound.f ------------------------------------- Doing diff of const.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/const.f ------------------------------------- Doing diff of fdump.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/fdump.f ------------------------------------- Doing diff of frmin.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/frmin.f ------------------------------------- Doing diff of frmout.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/frmout.f ------------------------------------- Doing diff of h12.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/h12.f ------------------------------------- Doing diff of i1mach.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/i1mach.f ------------------------------------- Doing diff of init.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/init.f 2,3c2,3 < parameter (isize=25,ires=2,ngprd=9,npts=isize*ires*ngprd) < parameter (imx=150,kmax=42,lgi=16 ,imx1=imx*9,jmx1=imx*9) --- > parameter (isize=25,ires=2,ngprd=6,npts=isize*ires*ngprd) > parameter (imx=150,kmax=42,lgi=16 ,imx1=imx*6,jmx1=imx*6) 5c5 < parameter (imxx=350, imxxp=imxx+1) --- > parameter (imxx=250, imxxp=imxx+1) 156,157c156 < c dx = pi180/12.0 < dx = pi180/18.0 --- > dx = pi180/12.0 232,234c231,232 < dxm = .5/float(ires) < c dxp = 1./12. < dxp = dxm/float(ngprd) --- > dxm = .5 > dxp = 1./12. 237,238c235 < c cord = .25/6. - .25 < cord = dxp - dxm --- > cord = .25/6. - .25 ------------------------------------- Doing diff of interad.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/interad.f 2c2 < parameter (isize=25,ires=2,ngprd=9,npts=isize*ires*ngprd) --- > parameter (isize=25,ires=2,ngprd=6,npts=isize*ires*ngprd) 5,6c5,6 < parameter (inmax = 150*9, jnmax = 150*9) < parameter (imaxn = 150*9, jmaxn = 150*9) --- > parameter (inmax = 150*6, jnmax = 150*6) > parameter (imaxn = 150*6, jmaxn = 150*6) ------------------------------------- Doing diff of interp.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/interp.f ------------------------------------- Doing diff of isamax.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/isamax.f NOTE: File isamax.f does not exist in directory /nwprod/sorc/gfdl_chgvortx.fd ------------------------------------- Doing diff of j4save.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/j4save.f ------------------------------------- Doing diff of modules.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/modules.f ------------------------------------- Doing diff of mwd.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/mwd.f 5c5 < parameter (ixx=9*150, jxx=9*150) --- > parameter (ixx=6*150, jxx=6*150) ------------------------------------- Doing diff of nest.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/nest.f 2,3c2,3 < parameter (imx=150, kmax=42,lgi=16,imx1=imx*9,jmx=150) < parameter (kmaxp = kmax+1, kmaxm = kmax-1,jmx1=jmx*9) --- > parameter (imx=150, kmax=42,lgi=16,imx1=imx*6,jmx=150) > parameter (kmaxp = kmax+1, kmaxm = kmax-1,jmx1=jmx*6) 50,51c50 < c one12 = pi180/24. < one12 = pi180/36. --- > one12 = pi180/24. ------------------------------------- Doing diff of omu.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/omu.f ------------------------------------- Doing diff of pcort.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/pcort.f ------------------------------------- Doing diff of phase.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/phase.f ------------------------------------- Doing diff of psfin.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/psfin.f ------------------------------------- Doing diff of psfout.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/psfout.f ------------------------------------- Doing diff of radd.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/radd.f ------------------------------------- Doing diff of rodist.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/rodist.f ------------------------------------- Doing diff of sasum.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/sasum.f NOTE: File sasum.f does not exist in directory /nwprod/sorc/gfdl_chgvortx.fd ------------------------------------- Doing diff of saxpy.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/saxpy.f NOTE: File saxpy.f does not exist in directory /nwprod/sorc/gfdl_chgvortx.fd ------------------------------------- Doing diff of scopy.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/scopy.f NOTE: File scopy.f does not exist in directory /nwprod/sorc/gfdl_chgvortx.fd ------------------------------------- Doing diff of sdot.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/sdot.f NOTE: File sdot.f does not exist in directory /nwprod/sorc/gfdl_chgvortx.fd ------------------------------------- Doing diff of separ.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/separ.f ------------------------------------- Doing diff of seval.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/seval.f NOTE: File seval.f does not exist in directory /nwprod/sorc/gfdl_chgvortx.fd ------------------------------------- Doing diff of snrm2.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/snrm2.f NOTE: File snrm2.f does not exist in directory /nwprod/sorc/gfdl_chgvortx.fd ------------------------------------- Doing diff of spline.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/spline.f NOTE: File spline.f does not exist in directory /nwprod/sorc/gfdl_chgvortx.fd ------------------------------------- Doing diff of srotm.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/srotm.f ------------------------------------- Doing diff of srotmg.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/srotmg.f ------------------------------------- Doing diff of sscal.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/sscal.f NOTE: File sscal.f does not exist in directory /nwprod/sorc/gfdl_chgvortx.fd ------------------------------------- Doing diff of sswap.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/sswap.f NOTE: File sswap.f does not exist in directory /nwprod/sorc/gfdl_chgvortx.fd ------------------------------------- Doing diff of star.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/star.f ------------------------------------- Doing diff of wght.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/wght.f 3c3 < parameter (isize=25,ires=2,ngprd=9,npts=isize*ires*ngprd) --- > parameter (isize=25,ires=2,ngprd=6,npts=isize*ires*ngprd) 6,7c6,7 < parameter (inmax = 150*9, jnmax = 150*9) < parameter (imaxn = 150*9, jmaxn = 150*9) --- > parameter (inmax = 150*6, jnmax = 150*6) > parameter (imaxn = 150*6, jmaxn = 150*6) ------------------------------------- Doing diff of wghts.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/wghts.f ------------------------------------- Doing diff of wind.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/wind.f ------------------------------------- Doing diff of wnlit.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/wnlit.f ------------------------------------- Doing diff of wnlsm.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/wnlsm.f ------------------------------------- Doing diff of wnnls.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/wnnls.f ------------------------------------- Doing diff of xerabt.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/xerabt.f ------------------------------------- Doing diff of xerctl.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/xerctl.f ------------------------------------- Doing diff of xerprt.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/xerprt.f ------------------------------------- Doing diff of xerror.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/xerror.f ------------------------------------- Doing diff of xerrwv.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/xerrwv.f ------------------------------------- Doing diff of xersav.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/xersav.f ------------------------------------- Doing diff of xgetua.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/xgetua.f ------------------------------------- Doing diff of zzz000.f <<< ------ >>> /nwprod/sorc/gfdl_chgvortx.fd/zzz000.f