← Back to branch summary

~ubuntu-branches/ubuntu/precise/code-saturne/precise

« back to all changes in this revision

Viewing changes to src/atmo/mematm.f90

  • Committer: Package Import Robot
  • Author(s): Sylvestre Ledru
  • Date: 2011-11-24 00:00:08 UTC
  • mfrom: (6.1.9 sid)
  • Revision ID: package-import@ubuntu.com-20111124000008-2vo99e38267942q5
Tags: 2.1.0-3
Install a missing file

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/atmo/mematm.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 mematm &
29
 
!================
30
 
 
31
 
 ( idbia0 , idbra0 , ifinia , ifinra , ra )
32
 
!===============================================================================
33
 
!  FONCTION
34
 
!  --------
35
 
 
36
 
!  MEMORY MANAGEMENT FOR THE ATMOSPHERIC SPECIFIC PHYSICS MODULE
37
 
 
38
 
!-------------------------------------------------------------------------------
39
 
! Arguments
40
 
!__________________.____._____.________________________________________________.
41
 
! name             !type!mode ! role                                           !
42
 
!__________________!____!_____!________________________________________________!
43
 
! idbia0           ! i  ! <-- ! number of first free position in ia            !
44
 
! idbra0           ! i  ! <-- ! number of first free position in ra            !
45
 
! ifinia           ! i  ! --> ! number of first free position in ia (at exit)  !
46
 
! ifinra           ! i  ! --> ! number of first free position in ra (at exit)  !
47
 
!__________________.____._______________.________________________________________________!
48
 
 
49
 
!     TYPE : E (ENTIER), R (REEL), A (ALPHANUMERIQUE), T (TABLEAU)
50
 
!            L (LOGIQUE)   .. ET TYPES COMPOSES (EX : TR TABLEAU REEL)
51
 
!     MODE : <-- donnee, --> resultat, <-> Donnee modifiee
52
 
!            --- tableau de travail
53
 
!===============================================================================
54
 
 
55
 
implicit none
56
 
 
57
 
!===============================================================================
58
 
!     COMMON DATA
59
 
!===============================================================================
60
 
 
61
 
include "paramx.h"
62
 
include "entsor.h"
63
 
include "ppppar.h"
64
 
include "atincl.h"
65
 
 
66
 
!===============================================================================
67
 
 
68
 
! Arguments
69
 
 
70
 
integer          idbia0, idbra0, ifinia, ifinra
71
 
double precision ra(*)
72
 
 
73
 
! Local variables
74
 
 
75
 
integer          idebia, idebra, imode
76
 
double precision rvoid(1)
77
 
 
78
 
!===============================================================================
79
 
!  1. INITIALISATION
80
 
!===============================================================================
81
 
 
82
 
idebia = idbia0
83
 
idebra = idbra0
84
 
 
85
 
!===============================================================================
86
 
!  2. MEMORY MANAGEMENT FOR THE METEO PROFILES
87
 
!===============================================================================
88
 
 
89
 
!  2.1 READING THE METEO FILE IN ORDER TO ESTIMATE THE REQUIRED SIZE OF
90
 
!  THE TABLES
91
 
!-------------------------------------------------------------------------------
92
 
if (imeteo.gt.0) then
93
 
 
94
 
  imode = 0
95
 
 
96
 
!     Nb les arguments ne sont pas utilises quand IMODE=0
97
 
  call atlecm &
98
 
  !==========
99
 
 ( imode      ,             &
100
 
   rvoid , rvoid , rvoid ,  &
101
 
   rvoid , rvoid , rvoid ,  &
102
 
   rvoid , rvoid ,          &
103
 
   rvoid , rvoid ,          &
104
 
   rvoid , rvoid ,          &
105
 
   rvoid , rvoid , rvoid )
106
 
 
107
 
  endif
108
 
 
109
 
!  2.2 MEMORY MANAGEMENT :
110
 
! ------------------------
111
 
 
112
 
! --> Integer
113
 
 
114
 
ifinia = idebia
115
 
 
116
 
! --> Real
117
 
 
118
 
itmmet = idebra
119
 
izdmet = itmmet + nbmetm
120
 
iztmet = izdmet + nbmetd
121
 
iumet  = iztmet + nbmett
122
 
ivmet  = iumet  + nbmetd*nbmetm
123
 
iwmet  = ivmet  + nbmetd*nbmetm
124
 
iekmet = iwmet  + nbmetd*nbmetm
125
 
iepmet = iekmet + nbmetd*nbmetm
126
 
ittmet = iepmet + nbmetd*nbmetm
127
 
iqvmet = ittmet + nbmett*nbmetm
128
 
ipmer  = iqvmet + nbmett*nbmetm
129
 
ixmet  = ipmer  + nbmetm
130
 
iymet  = ixmet  + nbmetm
131
 
irmet  = iymet  + nbmetm
132
 
itpmet = irmet  + nbmett*nbmetm
133
 
iphmet = itpmet + nbmett*nbmetm
134
 
ifinra = iphmet + nbmett*nbmetm
135
 
 
136
 
! --> Verification
137
 
 
138
 
CALL IASIZE('MEMATM',IFINIA)
139
 
!==========
140
 
 
141
 
CALL RASIZE('MEMATM',IFINRA)
142
 
!==========
143
 
 
144
 
!----
145
 
! FIN
146
 
!----
147
 
 
148
 
return
149
 
end subroutine
150
 
 
151