Contr gem1.f90

From CFD-Wiki

This subroutine make only output of all geometrical date. (it was be done in order to control all geometry)

Subroutine Control_gem

include 'icomm_1.f90'

Dimension F_out(nx,ny)

Character Filename*10

!----------------------------------------------------------------

NImax = NXmax

NJmax = NYmax

F_out = X

	Filename  ='X_ooo.txt' 

   Call  Out_array(F_out,NImax,NJmax,Filename)

!-------------------------------------------------------------------

!----------------------------------------------------------------

NImax = NXmax

NJmax = NYmax

F_out = Y

	Filename  ='Y_ooo.txt' 

   Call  Out_array(F_out,NImax,NJmax,Filename)

!-------------------------------------------------------------------

!----------------------------------------------------------------

NImax = NXmaxP

NJmax = NYmaxP

F_out = Xp

	Filename  ='X_poo.txt' 

   Call  Out_array(F_out,NImax,NJmax,Filename)

!-------------------------------------------------------------------

!----------------------------------------------------------------

NImax = NXmaxP

NJmax = NYmaxP

F_out = Yp

	Filename  ='Y_poo.txt' 

   Call  Out_array(F_out,NImax,NJmax,Filename)

!-------------------------------------------------------------------

!----------------------------------------------------------------

NImax = NXmaxP

NJmax = NYmaxP

F_out = Del_X_xi

	Filename  ='DX_xi.txt' 

   Call  Out_array(F_out,NImax,NJmax,Filename)

!-------------------------------------------------------------------

!----------------------------------------------------------------

NImax = NXmaxP

NJmax = NYmaxP

F_out = Del_Y_xi

	Filename  ='DY_xi.txt' 

   Call  Out_array(F_out,NImax,NJmax,Filename)

!-------------------------------------------------------------------

!----------------------------------------------------------------

NImax = NXmaxP

NJmax = NYmaxP

F_out = Del_X_et

	Filename  ='DX_et.txt' 

   Call  Out_array(F_out,NImax,NJmax,Filename)

!-------------------------------------------------------------------

!----------------------------------------------------------------

NImax = NXmaxP

NJmax = NYmaxP

F_out = Del_Y_et

	Filename  ='DY_et.txt' 

   Call  Out_array(F_out,NImax,NJmax,Filename)

!----------------------------------------------------------------

NImax = NXmaxP

NJmax = NYmaxP

F_out = X_et

	Filename  ='7X_et.txt' 

   Call  Out_array(F_out,NImax,NJmax,Filename)

!-------------------------------------------------------------------

!----------------------------------------------------------------

NImax = NXmaxP

NJmax = NYmaxP

F_out = Y_et

	Filename  ='7Y_et.txt' 

   Call  Out_array(F_out,NImax,NJmax,Filename)

!-------------------------------------------------------------------

!----------------------------------------------------------------

NImax = NXmaxP

NJmax = NYmaxP

F_out = X_xi

	Filename  ='7X_xi.txt' 

   Call  Out_array(F_out,NImax,NJmax,Filename)

!-------------------------------------------------------------------

!----------------------------------------------------------------

NImax = NXmaxP

NJmax = NYmaxP

F_out = Y_xi

	Filename  ='7Y_xi.txt' 

   Call  Out_array(F_out,NImax,NJmax,Filename)

!-------------------------------------------------------------------

Return

End