Changeset 4227 for dynamico_lmdz


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

simple_physics : minor fixes for parsing by XCodeML F_Front

Location:
dynamico_lmdz/simple_physics/phyparam
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/simple_physics/phyparam/Makefile

    r4226 r4227  
    11# known to compile with gfortran version 7, ifort version 17, pgfortran version 18
    22# Examples
    3 # clear ; make clean ;
    4 # F90=ifort FFLAGS=-fast make
    5 # F90=gfortran F90FLAGS=-ffree-line-length-none make
    6 # F90=pgfortran F90FLAGS="-fast -Minfo=loop" make
     3# F90=ifort FFLAGS=-fast make clean all
     4# F90=gfortran F90FLAGS=-ffree-line-length-none make clean all
     5# F90=pgfortran F90FLAGS="-fast -Minfo=loop" make clean all
    76
    87# if XCodeML F_Front is installed, set FFRONT=F_Front to parse code into XML
    98FFRONT ?= true
     9
     10F90 ?= gfortran
     11F90FLAGS ?= -ffree-line-length-none
    1012
    1113VPATH = obj
    … …  
    2022clean :
    2123        rm -f obj/* include/* lib/* xml/*
    22         rmdir obj include lib xml
    2324
    2425%.so : $(OBJECTS)

  • 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.