Changeset 662 for trunk/AGRIF/AGRIF_FILES/modlinktomodel.F

Timestamp:

2007-05-25T17:58:52+02:00 (17 years ago)

Author:

opalod

Message:

RB: update Agrif internal routines with a new update scheme and performance improvment

File:

• trunk/AGRIF/AGRIF_FILES/modlinktomodel.F (modified) (4 diffs)

trunk/AGRIF/AGRIF_FILES/modlinktomodel.F

@@ -19 +19 @@
 C
 C
-C
       Module Agrif_link
 C
@@ -31 +30 @@
 c        external Agrif_detect
 C
-      IMPLICIT NONE        
         external Agrif_probdim_modtype_def
         external Agrif_clustering_def
@@ -40 +38 @@
          TYPE(Agrif_Grid), Pointer :: Agrif_Gr   ! Pointer on the current grid  
          End Subroutine Agrif_Set_numberofcells
-        
+      End interface
+      Interface
          Subroutine Agrif_Get_numberofcells(Agrif_Gr)
          Use Agrif_Types, Only : Agrif_grid
          TYPE(Agrif_Grid), Pointer :: Agrif_Gr   ! Pointer on the current grid  
          End Subroutine Agrif_Get_numberofcells
-         
+      End interface
+      Interface
          Subroutine Agrif_Allocationcalls(Agrif_Gr)
          Use Agrif_Types, Only : Agrif_grid
@@ -51 +51 @@
          End Subroutine Agrif_Allocationcalls
       End interface
-   
+C   
       End Module Agrif_link
 C     **************************************************************************