Changeset 10087 for vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modinit.F90
- Timestamp:
- 2018-09-05T15:33:44+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modinit.F90
r5656 r10087 31 31 ! 32 32 implicit none 33 34 abstract interface 35 subroutine step_proc() 36 end subroutine step_proc 37 end interface 38 33 39 ! 34 40 contains 35 41 ! 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 36 55 !=================================================================================================== 37 56 ! subroutine Agrif_Allocation
Note: See TracChangeset
for help on using the changeset viewer.