Contr gem1.f90
From CFD-Wiki
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