Changeset 1200 for trunk/AGRIF/AGRIF_FILES/modtypes.F
- Timestamp:
- 2008-09-24T15:05:20+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/AGRIF/AGRIF_FILES/modtypes.F
r898 r1200 32 32 C Maximum refinement ratio 33 33 34 INTEGER, PARAMETER :: Agrif_MaxRaff = 7 34 INTEGER, PARAMETER :: Agrif_MaxRaff = 7 35 36 C Maximum number of grids of the hierarchy 37 INTEGER, PARAMETER :: Agrif_NbMaxGrids = 10 38 35 39 C 36 40 C ************************************************************************** … … 160 164 INTEGER ,DIMENSION(:,:) ,Pointer :: tabpoint2D 161 165 INTEGER ,DIMENSION(:,:,:) ,Pointer :: tabpoint3D 162 166 Type(Agrif_List_Variables), Pointer :: variables=>NULL() 167 INTEGER :: NbVariables = 0 163 168 Type(Agrif_Flux), Pointer :: fluxes => NULL() 164 169 End TYPE Agrif_grid … … 172 177 C 173 178 TYPE Agrif_Variable 179 CHARACTER*80 :: variablename 174 180 C 175 181 ! Pointer on the variable of the root grid … … 204 210 REAL*8, DIMENSION(:,:,:,:,:) ,Pointer :: darray5 => NULL() 205 211 REAL*8, DIMENSION(:,:,:,:,:,:),Pointer :: darray6 => NULL() 212 C Arrays containing the values of the grid variables (REAL*4) 213 REAL*4 :: sarray0 214 REAL*4, DIMENSION(:) ,Pointer :: sarray1 => NULL() 215 REAL*4, DIMENSION(:,:) ,Pointer :: sarray2 => NULL() 216 REAL*4, DIMENSION(:,:,:) ,Pointer :: sarray3 => NULL() 217 REAL*4, DIMENSION(:,:,:,:) ,Pointer :: sarray4 => NULL() 218 REAL*4, DIMENSION(:,:,:,:,:) ,Pointer :: sarray5 => NULL() 219 REAL*4, DIMENSION(:,:,:,:,:,:),Pointer :: sarray6 => NULL() 206 220 C Arrays containing the values of the grid variables (LOGICAL) 207 221 LOGICAL :: larray0 … … 241 255 INTEGER :: bcinf ! option bc 242 256 INTEGER :: bcsup ! option bc 243 INTEGER :: updateinf ! option update244 INTEGER :: updatesup ! option update257 INTEGER, DIMENSION(6) :: updateinf ! option update 258 INTEGER, DIMENSION(6) :: updatesup ! option update 245 259 INTEGER, DIMENSION(6,6) :: bcTYPEinterp ! option bcinterp 246 260 INTEGER, DIMENSION(6) :: TYPEinterp ! option interp 247 261 INTEGER, DIMENSION(6) :: TYPEupdate ! option update 262 263 INTEGER, DIMENSION(6) :: lb, ub 248 264 249 265 Type(Agrif_List_Interp_Loc), Pointer :: list_interp => NULL() … … 278 294 Type(Agrif_List_Interp_Loc), Pointer :: suiv 279 295 End Type Agrif_List_Interp_Loc 280 296 297 TYPE Agrif_List_Variables 298 Type(Agrif_PVariable), Pointer :: pvar 299 Type(Agrif_List_Variables), Pointer :: nextvariable => NULL() 300 END TYPE Agrif_List_Variables 301 281 302 TYPE Agrif_Profile 282 303 character*80 :: profilename … … 294 315 ! each of them 295 316 CHARACTER(6),DIMENSION(:) ,Pointer :: interptab => NULL() 317 Type(Agrif_Variable), Pointer :: var 296 318 Type(Agrif_Profile), Pointer :: nextprofile => NULL() 297 319 END TYPE Agrif_Profile … … 354 376 INTEGER :: Agrif_Minwidth 355 377 REAL :: Agrif_Efficiency = 0.7 378 INTEGER :: MaxSearch = 5 356 379 REAL ,DIMENSION(3) :: Agrif_mind 357 380 C PARAMETERs for the interpolation of the child grids
Note: See TracChangeset
for help on using the changeset viewer.