Changeset 3822 for LMDZ6/trunk


Ignore:
Timestamp:
Feb 4, 2021, 11:30:26 PM (4 years ago)
Author:
lguez
Message:

Remove elemental prefix

Because the function includes YOMCST.h, which contains an OpenMP
directive. A pure or elemental function may contain such a directive
only in OpenMP version >= 5.0. For the moment, we want to be
compatible with lower OpenMP standard.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/Ocean_skin/sens_heat_rain.F90

    r3816 r3822  
    55contains
    66
    7   elemental real function sens_heat_rain(rain, t, q, rhoa, xlv, t_int, p)
     7  real function sens_heat_rain(rain, t, q, rhoa, xlv, t_int, p)
    88
    9     ! Computes heat flux due to rainfall, in W m-2, positive upward.
     9    ! Computes heat flux due to rainfall, in W m-2, positive
     10    ! upward.
     11
     12    ! Do not declare this function as elemental because it may include
     13    ! YOMCST.h, which contains an OpenMP directive, and that only
     14    ! works in OpenMP 5.0.
    1015
    1116    use const, only: cpa, cpw, rgas
Note: See TracChangeset for help on using the changeset viewer.