Changeset 4670


Ignore:
Timestamp:
Sep 4, 2023, 11:17:27 AM (18 months ago)
Author:
Ehouarn Millour
Message:

Fix for ifort compiler which fails to compile unless implicit inlined
functions and their arguments are declared on the same line.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/lmdz_lscp_old.F90

    r4667 r4670  
    193193  ! Fonctions en ligne:
    194194  !
    195   REAL ::  fallvs,fallvc ! Vitesse de chute pour cristaux de glace
     195  REAL ::  fallvs,fallvc,zzz ! Vitesse de chute pour cristaux de glace
    196196                     ! (Heymsfield & Donner, 1990)
    197197  fallvc (zzz) = 3.29/2.0 * ((zzz)**0.16) * ffallv_con
    198198  fallvs (zzz) = 3.29/2.0 * ((zzz)**0.16) * ffallv_lsc
    199 
    200   REAL :: zzz
    201199
    202200  !
Note: See TracChangeset for help on using the changeset viewer.