D:/demona/2.0/manual/doc/2-31set/preprocessor/generateCoordinates.f90

Go to the documentation of this file.

subroutine generateCoordinates(dx,dy)

use global

integer myDomaim


integer,pointer :: myfullNx,myfullNy

integer,pointer :: myNumberOfDomains

integer,pointer :: myLocalDof

real(8) dx,dy

real(8) myX,myY



myNumberOfDomains=>myModel%physics(currentPhysics)%numberOfDomains



myfullNx=>myModel%physics(currentPhysics)%domain(currentDomain)%Nx
myfullNy=>myModel%physics(currentPhysics)%domain(currentDomain)%Ny


                do j=1,myfullNy

                        !myY=(j-1)*dy+myModel%physics(myPhysics)%domain(myDomain)%refYcoor
                        myY=(j-1)*dy+myModel%physics(currentPhysics)%refYcoor+myModel%physics(currentPhysics)%domain(currentDomain)%relYcoor

                        do i=1,myfullNx

                                !myX=(i-1)*dx+myModel%physics(myPhysics)%domain(myDomain)%refXcoor
                                myX=(i-1)*dx+myModel%physics(currentPhysics)%refXcoor+myModel%physics(currentPhysics)%domain(currentDomain)%relXcoor

                                        
                                if (myModel%physics(currentPhysics)%domain(currentDomain)%nodeMatrix(i,j,2).ne.0) then

                                                
                                                                
                                        myModel%physics(currentPhysics)%domain(currentDomain)%xCoor(myModel%physics(currentPhysics)%domain(currentDomain)%nodeMatrix(i,j,2))=myX
                                        myModel%physics(currentPhysics)%domain(currentDomain)%yCoor(myModel%physics(currentPhysics)%domain(currentDomain)%nodeMatrix(i,j,2))=myY
                                        

                                end if

                        end do

                end do












end subroutine generateCoordinates

---