Ignore:
Timestamp:
Jan 10, 2020, 5:48:45 PM (6 years ago)
Author:
dubos
Message:

simple_physics : minor fixes for parsing by XCodeML F_Front

Location:
dynamico_lmdz/simple_physics/phyparam/physics
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/simple_physics/phyparam/physics/logging.F90

    r4226 r4227  
    3030#ifndef XCODEML
    3131  ! Note F2003/F2008: XCodeML cannot parse procedure pointers
    32   PROCEDURE(plugin), POINTER :: flush_plugin => NULL()
    33   PROCEDURE(plugin_log_gridpoint), POINTER :: log_gridpoint_plugin => NULL()
     32  PROCEDURE(plugin), POINTER, PUBLIC :: flush_plugin => NULL()
     33  PROCEDURE(plugin_log_gridpoint), POINTER, PUBLIC :: log_gridpoint_plugin => NULL()
    3434#endif
    3535
    … …  
    4444
    4545  PUBLIC :: logging_buf, logging_bufsize, logging_lineno, flush_log, log_gridpoint, &
    46        flush_plugin, log_gridpoint_plugin, default_flush_plugin, &
    4746       missing_plugin
    4847

  • dynamico_lmdz/simple_physics/phyparam/physics/read_param_mod.F90

    r4226 r4227  
    3434#ifndef XCODEML
    3535  ! Note compiler compatibility : see logging.F90
    36   PROCEDURE(plugin_read_paramr), POINTER :: read_paramr_plugin => NULL()
    37   PROCEDURE(plugin_read_parami), POINTER :: read_parami_plugin => NULL()
    38   PROCEDURE(plugin_read_paramb), POINTER :: read_paramb_plugin => NULL()
     36
     37  PROCEDURE(plugin_read_paramr), POINTER, PUBLIC :: read_paramr_plugin => NULL()
     38  PROCEDURE(plugin_read_parami), POINTER, PUBLIC :: read_parami_plugin => NULL()
     39  PROCEDURE(plugin_read_paramb), POINTER, PUBLIC :: read_paramb_plugin => NULL()
     40
    3941#endif
    4042
    … …  
    4345  END INTERFACE read_param
    4446
    45   PUBLIC :: read_param, read_paramr_plugin, read_parami_plugin, read_paramb_plugin
     47  PUBLIC :: read_param
    4648
    4749CONTAINS

  • dynamico_lmdz/simple_physics/phyparam/physics/writefield_mod.F90

    r4226 r4227  
    1717
    1818#ifndef XCODEML
    19   PROCEDURE(plugin_writefield1), POINTER :: writefield1_plugin => NULL()
    20   PROCEDURE(plugin_writefield2), POINTER :: writefield2_plugin => NULL()
     19
     20  PROCEDURE(plugin_writefield1), POINTER, PUBLIC :: writefield1_plugin => NULL()
     21  PROCEDURE(plugin_writefield2), POINTER, PUBLIC :: writefield2_plugin => NULL()
     22
    2123#endif
    2224  INTERFACE writefield
    … …  
    2426  END INTERFACE writefield
    2527
    26   PUBLIC :: writefield, writefield1_plugin, writefield2_plugin
     28  PUBLIC :: writefield
    2729
    2830CONTAINS
Note: See TracChangeset for help on using the changeset viewer.