Changeset 5882


Ignore:
Timestamp:
Nov 24, 2025, 2:14:33 PM (4 days ago)
Author:
yann meurdesoif
Message:

GPU port of stdlevvar & stdlevvarn
YM

Location:
LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r5301 r5882  
    122122                         ri1, iri1, &
    123123                         pref, delm, delh, zri1, s_pblh, prain, tsol, pat1)
     124!$gpum horizontal knon klon
    124125      USE yomcst_mod_h
    125126      USE flux_arp_mod_h

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

    r5868 r5882  
    2121                           ts1, qsurf, z0m, z0h, psol, pat1, &
    2222                           t_2m, q_2m, t_10m, q_10m, u_10m, ustar, s_pblh, prain, tsol)
     23!$gpum horizontal knon klon
    2324        USE yoethf_mod_h
    2425        USE flux_arp_mod_h
    … …  
    317318                           t_2m, q_2m, t_10m, q_10m, u_10m, ustar, &
    318319                           n2mout)
    319 !
     320!$gpum horizontal knon klon
     321
    320322      USE indice_sol_mod, ONLY : nbsrf
    321323      USE yomcst_mod_h
    … …  
    433435      INTEGER, dimension(klon, 6) :: n10mout
    434436
     437!$gpum nocall checksum
    435438      CALL checksum("u1", u1)
    436439      CALL checksum("v1", v1)
Note: See TracChangeset for help on using the changeset viewer.