Ignore:
Timestamp:
2018-09-05T15:33:44+02:00 (2 years ago)
Author:
rblod
Message:

update AGRIF library

File:
1 edited

Legend:

Unmodified
Added
Removed
  • vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modinit.F90

    r5656 r10087  
    3131! 
    3232    implicit none 
     33 
     34    abstract interface 
     35        subroutine step_proc() 
     36        end subroutine step_proc 
     37    end interface 
     38     
    3339! 
    3440contains 
    3541! 
     42 
     43 
     44subroutine Agrif_call_procname ( procname ) 
     45    procedure(step_proc)  :: procname 
     46    call procname() 
     47end subroutine  Agrif_call_procname 
     48!=================================================================================================== 
     49 
     50subroutine Agrif_call_procname1 ( procname1 ) 
     51    procedure(typedef_proc) :: procname1  
     52    call procname1() 
     53end subroutine  Agrif_call_procname1 
     54 
    3655!=================================================================================================== 
    3756!  subroutine Agrif_Allocation 
Note: See TracChangeset for help on using the changeset viewer.