Symbol Description Uses
ny 45



File Line number Procedure Code
./pkg/compon_communic/mitcoupler_register.F 25 MITCOUPLER_REGISTER
      integer j,numtiles,nx,ny,i0,j0
./pkg/compon_communic/mitcoupler_register.F 60 MITCOUPLER_REGISTER
       ny=ibuf(3)
./pkg/compon_communic/mitcoupler_register.F 72 MITCOUPLER_REGISTER
       if (ny.lt.1) then
./pkg/compon_communic/mitcoupler_register.F 73 MITCOUPLER_REGISTER
        write(LogUnit,*) 'MITCOUPLER_register: ny = ',ny
./pkg/compon_communic/mitcoupler_register.F 88 MITCOUPLER_REGISTER
       if (j0+ny-1.gt.nny) then
./pkg/compon_communic/mitcoupler_register.F 95 MITCOUPLER_REGISTER
       component_tile_ny(1,n,compind)=ny