New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1200 for trunk/AGRIF/AGRIF_FILES/modtypes.F – NEMO

Ignore:
Timestamp:
2008-09-24T15:05:20+02:00 (16 years ago)
Author:
rblod
Message:

Adapt Agrif to the new SBC and correct several bugs for agrif (restart writing and reading), see ticket #133
Note : this fix does not work yet on NEC computerq (sxf90/360)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/AGRIF/AGRIF_FILES/modtypes.F

    r898 r1200  
    3232C     Maximum refinement ratio 
    3333 
    34       INTEGER, PARAMETER :: Agrif_MaxRaff = 7       
     34      INTEGER, PARAMETER :: Agrif_MaxRaff = 7 
     35       
     36C     Maximum number of grids of the hierarchy 
     37      INTEGER, PARAMETER :: Agrif_NbMaxGrids = 10 
     38                   
    3539C 
    3640C     ************************************************************************** 
     
    160164           INTEGER ,DIMENSION(:,:)        ,Pointer :: tabpoint2D 
    161165           INTEGER ,DIMENSION(:,:,:)      ,Pointer :: tabpoint3D 
    162             
     166           Type(Agrif_List_Variables), Pointer     :: variables=>NULL() 
     167           INTEGER                                 :: NbVariables = 0 
    163168           Type(Agrif_Flux), Pointer               :: fluxes => NULL() 
    164169      End TYPE Agrif_grid 
     
    172177C 
    173178      TYPE Agrif_Variable  
     179         CHARACTER*80 :: variablename 
    174180C        
    175181         ! Pointer on the variable of the root grid  
     
    204210         REAL*8, DIMENSION(:,:,:,:,:)  ,Pointer :: darray5   => NULL() 
    205211         REAL*8, DIMENSION(:,:,:,:,:,:),Pointer :: darray6   => NULL() 
     212C        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() 
    206220C        Arrays containing the values of the grid variables (LOGICAL) 
    207221         LOGICAL                                 :: larray0 
     
    241255         INTEGER :: bcinf ! option bc 
    242256         INTEGER :: bcsup ! option bc 
    243          INTEGER :: updateinf ! option update 
    244          INTEGER :: updatesup ! option update          
     257         INTEGER, DIMENSION(6) :: updateinf ! option update 
     258         INTEGER, DIMENSION(6) :: updatesup ! option update          
    245259         INTEGER, DIMENSION(6,6) :: bcTYPEinterp ! option bcinterp 
    246260         INTEGER, DIMENSION(6) :: TYPEinterp ! option interp 
    247261         INTEGER, DIMENSION(6) :: TYPEupdate ! option update 
     262          
     263         INTEGER, DIMENSION(6) :: lb, ub 
    248264          
    249265         Type(Agrif_List_Interp_Loc), Pointer :: list_interp => NULL() 
     
    278294      Type(Agrif_List_Interp_Loc), Pointer :: suiv 
    279295      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                
    281302       TYPE Agrif_Profile 
    282303          character*80 :: profilename 
     
    294315         !    each of them  
    295316         CHARACTER(6),DIMENSION(:) ,Pointer :: interptab   => NULL()  
     317         Type(Agrif_Variable), Pointer :: var 
    296318         Type(Agrif_Profile), Pointer :: nextprofile  => NULL() 
    297319       END TYPE Agrif_Profile 
     
    354376      INTEGER               :: Agrif_Minwidth 
    355377      REAL                  :: Agrif_Efficiency = 0.7 
     378      INTEGER               :: MaxSearch = 5 
    356379      REAL    ,DIMENSION(3) :: Agrif_mind 
    357380C     PARAMETERs for the interpolation of the child grids 
Note: See TracChangeset for help on using the changeset viewer.