Changeset 2715 for trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modcurgridfunctions.F

Timestamp:

2011-03-30T17:58:35+02:00 (13 years ago)

Author:

rblod

Message:

First attempt to put dynamic allocation on the trunk

File:

• trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modcurgridfunctions.F (modified) (4 diffs)

trunk/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modcurgridfunctions.F

@@ -684 +684 @@
       
 C
-C
-      AGRIF_saveCURGRID => AGRIF_CURGRID
-C
-      Call AGRIF_INSTANCE(AGRIF_CURGRID%parent)            
+      
+      Agrif_Curgrid%Parent%save_grid => Agrif_Curgrid
+C
+      Call Agrif_Instance(Agrif_Curgrid%parent)            
 C
 C
@@ -709 +709 @@
 C
 C
-      Call AGRIF_INSTANCE(AGRIF_saveCURGRID)            
+      Call Agrif_Instance(Agrif_Curgrid%save_grid)
 C
 C
@@ -737 +737 @@
       INTEGER :: iii,out,iiimax
       Logical :: BEXIST
-      INTEGER,DIMENSION(1:10) :: ForbiddenUnit
+      INTEGER,DIMENSION(1:1000) :: ForbiddenUnit
 C
 C
@@ -967 +967 @@
       MaxSearch = mymaxsearch
       end subroutine Agrif_Set_MaskMaxSearch
+      
+C *****************************************************************
+CCC  subroutine Agrif_Level
+C *****************************************************************
+      Function Agrif_Level()
+      Integer :: Agrif_Level
+     
+      Agrif_Level = Agrif_Curgrid % level
+     
+      End Function Agrif_Level
+      
+C *****************************************************************
+CCC  subroutine Agrif_MaxLevel
+C *****************************************************************
+      Function Agrif_MaxLevel()
+      Integer :: Agrif_MaxLevel
+     
+      Agrif_MaxLevel = Agrif_MaxLevelLoc
+     
+      End Function Agrif_MaxLevel      
 
       End Module Agrif_CurgridFunctions