CFD Online Logo CFD Online URL
www.cfd-online.com
[Sponsors]
Home > Wiki > Contr gem1.f90

Contr gem1.f90

From CFD-Wiki

(Difference between revisions)
Jump to: navigation, search
Line 1: Line 1:
-
''This subroutine make only output of all geometrical date. (it was be done in order to control all''
+
''This subroutine make only output of all geometrical date. (it was be done in order to control all geometry)''
Subroutine Control_gem
Subroutine Control_gem

Revision as of 02:11, 19 September 2005

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

My wiki