~ubuntu-branches/ubuntu/oneiric/code-saturne/oneiric

« back to all changes in this revision

Viewing changes to src/ctwr/cs_ctwr_f2c.f90

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

src/ctwr/cs_ctwr_f2c.f90

 

1

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

 

2

 

 

3

!     This file is part of the Code_Saturne Kernel, element of the

 

4

!     Code_Saturne CFD tool.

 

5

 

 

6

!     Copyright (C) 1998-2009 EDF S.A., France

 

7

 

 

8

!     contact: saturne-support@edf.fr

 

9

 

 

10

!     The Code_Saturne Kernel is free software; you can redistribute it

 

11

!     and/or modify it under the terms of the GNU General Public License

 

12

!     as published by the Free Software Foundation; either version 2 of

 

13

!     the License, or (at your option) any later version.

 

14

 

 

15

!     The Code_Saturne Kernel is distributed in the hope that it will be

 

16

!     useful, but WITHOUT ANY WARRANTY; without even the implied warranty

 

17

!     of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 

18

!     GNU General Public License for more details.

 

19

 

 

20

!     You should have received a copy of the GNU General Public License

 

21

!     along with the Code_Saturne Kernel; if not, write to the

 

22

!     Free Software Foundation, Inc.,

 

23

!     51 Franklin St, Fifth Floor,

 

24

!     Boston, MA  02110-1301  USA

 

25

 

 

26

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

 

27

 

 

28

subroutine defct &

 

29

!================

 

30

 

 

31

 ( idimze, nomze,   imzech,  ntypze, neleze,          &

 

32

   deltat, teaueze, qeaueze, xap, xnp, surface, dgout )

 

33

 

 

34

!===============================================================================

 

35

! FONCTION :

 

36

! ----------

 

37

 

 

38

!     DEFINITION DE COUPLAGE(S) AVEC LE CODE SYRTHES

 

39

 

 

40

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

 

41

!ARGU                             ARGUMENTS

 

42

!__________________.____._____.________________________________________________.

 

43

!    nom           !type!mode !                   role                         !

 

44

!__________________!____!_____!________________________________________________!

 

45

! idimze           ! e  ! <-- ! dimension de la zone d'echange                 !

 

46

! nomze            ! a  ! <-- ! caracterisation de zone d'echange              !

 

47

! imzech           ! e  ! <-- ! modele de zone d'echange (impose par usppmo)   !

 

48

! ntypze           ! e  ! <-- ! types de zone d'echanges                       !

 

49

! neleze           ! e  ! <-- ! nombre d'element pour extrusion de la zone     !

 

50

! deltat           ! r  ! <-- ! ecart de temperature impose                    !

 

51

! teaueze          ! r  ! <-- ! Temperature eau de la zone d'echange           !

 

52

! qeaueze          ! r  ! <-- ! debit d'eau traversant la zone d'echange       !

 

53

! xap              ! r  ! <-- ! coefficent                                     !

 

54

! xnp              ! r  ! <-- ! coefficient                                    !

 

55

! surface          ! r  ! <-- ! surface de la zone d'echange                   !

 

56

! dgout            ! r  ! <-- ! diametre de goutte                             !

 

57

!__________________!____!_____!________________________________________________!

 

58

 

 

59

!     TYPE : E (ENTIER), R (REEL), A (ALPHANUMERIQUE), T (TABLEAU)

 

60

!            L (LOGIQUE)   .. ET TYPES COMPOSES (EX : TR TABLEAU REEL)

 

61

!     MODE : <-- donnee, --> resultat, <-> Donnee modifiee

 

62

!            --- tableau de travail

 

63

 

 

64

!===============================================================================

 

65

 

 

66

implicit none

 

67

 

 

68

!===============================================================================

 

69

!     DONNEES EN COMMON

 

70

!===============================================================================

 

71

 

 

72

!===============================================================================

 

73

 

 

74

! Arguments

 

75

 

 

76

character*(*) nomze

 

77

 

 

78

integer          imzech,ntypze,idimze,neleze,icoul

 

79

 

 

80

double precision teaueze,qeaueze,deltat

 

81

double precision xap,xnp,surface

 

82

double precision dgout

 

83

 

 

84

! Variables locales

 

85

 

 

86

integer       lnomze

 

87

 

 

88

!===============================================================================

 

89

 

 

90

lnomze = len(nomze)

 

91

 

 

92

 

 

93

call defct1( idimze, nomze, lnomze, imzech, ntypze, neleze,      &

 

94

!==========

 

95

              deltat, teaueze, qeaueze, xap, xnp, surface, dgout )

 

96

 

 

97

 

 

98

return

 

99

 

 

100

end subroutine

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1