Symbol Description Uses
yc 13


File Line number Procedure Code
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 269 GETSST 
       if( abs(yc(i,j,bi,bj)*deg2rad)  .lt. pio3 ) then
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 270 GETSST 
        sinarg = 3.*yc(i,j,bi,bj)*deg2rad/2.
./verification/flt_example/extra/write_float.F 111 NO PROCEDURE 
                   ypart  = yc(j)
./verification/flt_example/extra/write_float.F 138 NO PROCEDURE 
                   ypart  = yc(j)
./verification/flt_example/extra/write_float.F 164 NO PROCEDURE 
                   ypart  = yc(j)
./verification/flt_example/extra/write_float.F 186 NO PROCEDURE 
                   ypart  = yc(j)
./verification/flt_example/extra/write_float.F 48 NO PROCEDURE 
        yc(1)=2500.
./verification/flt_example/extra/write_float.F 50 NO PROCEDURE 
           yc(j)=yc(j-1)+degY
./verification/flt_example/extra/write_float.F 54 NO PROCEDURE 
        print*,'yc(1), yc(Ny): ',yc(1), yc(Ny)
./verification/flt_example/extra/write_float.F 7 NO PROCEDURE 
        double precision depth(Nx,Ny),xc(Nx),yc(Ny),degX,degY
./verification/flt_example/extra/write_float.F 89 NO PROCEDURE 
                   ypart  = yc(j)