Ignore:
Timestamp:
Dec 15, 2025, 5:17:59 PM (11 days ago)
Author:
yann meurdesoif
Message:

add fake variable declaration to help gpumorphosis to parse correctly the code
=> to remove latter when fixed

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/cdrag_mod.f90

    r5876 r5929  
    206206  LOGICAL               :: LPWG
    207207  real, dimension(1) :: z0m_1d, z_0h_1d, sqrt_zdu2_1d, zgeop1_rg_1d  ! Pour COARE CNRM
    208                                                                      ! convert scalar to 1D for call
    209 
     208  INTEGER :: fake ! for gpum                                                                  ! convert scalar to 1D for call
     209
     210  fake=lunout
    210211
    211212
    … …  
    216217
    217218! Minimum du carre du vent
    218 
     219 
    219220 CEPDU2 = (0.1)**2
    220221
Note: See TracChangeset for help on using the changeset viewer.