Ignore:
Timestamp:
Nov 19, 2025, 11:01:03 AM (3 days ago)
Author:
yann meurdesoif
Message:

GPU port : remove block construct that are incompatible with GPU-morphosis
YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5868 r5873  
    2222     cdm,  cdh,  zri,   pref, prain, tsol , pat1)
    2323
    24   USE dimphy, ONLY :
    2524  USE coare_cp_mod, ONLY: coare_cp
    2625  USE coare30_flux_cnrm_mod, ONLY: coare30_flux_cnrm
    … …  
    166165  LOGICAL               :: LPRECIP
    167166  LOGICAL               :: LPWG
     167  real, dimension(1) :: z0m_1d, z_0h_1d, sqrt_zdu2_1d, zgeop1_rg_1d  ! Pour COARE CNRM
     168                                                                     ! convert scalar to 1D for call
    168169
    169170
    … …  
    339340         LPWG    = .false.
    340341         call ini_csts
    341          block
    342            real, dimension(1) :: z0m_1d, z_0h_1d, sqrt_zdu2_1d, zgeop1_rg_1d  ! convert scalar to 1D for call
     342
    343343           z0m_1d = z0m
    344344           z_0h_1d = z0h
    … …  
    350350               PRESA,prain,pat1(i),z_0h_1d, LPRECIP, LPWG, coeffs)
    351351
    352          end block
    353352         cdmm(i) = coeffs(1)
    354353         cdhh(i) = coeffs(2)
Note: See TracChangeset for help on using the changeset viewer.