Changeset 10586 for vendors/AGRIF/dev

Timestamp:

2019-01-27T20:42:34+01:00 (6 years ago)

Author:

nicolasmartin

Message:

Apply bugfix for PGI compilation of AGRIF, close #2072

Location:

vendors/AGRIF/dev/AGRIF_FILES

Files:

• modlinktomodel.F90 (modified) (1 diff)
• modutil.F90 (modified) (1 diff)

vendors/AGRIF/dev/AGRIF_FILES/modlinktomodel.F90

@@ -50 +50 @@
         end subroutine alloc_proc
 !
-        subroutine typedef_proc ( )
+        subroutine typdef_proc ( )
             implicit none
-        end subroutine typedef_proc
+        end subroutine typdef_proc
 !
     end interface
     
     procedure(alloc_proc)   :: Agrif_Allocationcalls
-    procedure(typedef_proc) :: Agrif_probdim_modtype_def
+    procedure(typdef_proc) :: Agrif_probdim_modtype_def
 !
 end module Agrif_Link

vendors/AGRIF/dev/AGRIF_FILES/modutil.F90

@@ -700 +700 @@
 subroutine Agrif_Init_Grids ( procname1, procname2 )
 !---------------------------------------------------------------------------------------------------
-    procedure(typedef_proc), optional   :: procname1 !< (Default: Agrif_probdim_modtype_def)
+    procedure(typdef_proc), optional   :: procname1 !< (Default: Agrif_probdim_modtype_def)
     procedure(alloc_proc),   optional   :: procname2 !< (Default: Agrif_Allocationcalls)
 !