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 10725 for vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modinit.F90 – NEMO

Ignore:
Timestamp:
2019-02-27T14:55:54+01:00 (5 years ago)
Author:
rblod
Message:

Update agrif library and conv see ticket #2129

File:
1 edited

Legend:

Unmodified
Added
Removed

  • vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modinit.F90

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