Ignore:
Timestamp:
Dec 9, 2025, 1:57:12 PM (5 weeks ago)
Author:
yann meurdesoif
Message:

For better GPUmorphosis parsing use "PUBLIC :: var" instead of "PUBLIC var"
YM

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

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/dyn1d/compar1d_mod_h.f90

    r5627 r5923  
    11MODULE compar1d_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC nat_surf, tsurf, beta_surf, rugos, rugosh, &
     3  PUBLIC :: nat_surf, tsurf, beta_surf, rugos, rugosh, &
    44          xqsol, qsurf, psurf, zsurf, albedo, time, time_ini, xlat, xlon, airefi, &
    55          wtsurf, wqsurf, restart_runoff, xagesno, qsolinp, zpicinp, &

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/dyn1d/date_cas_mod_h.f90

    r5302 r5923  
    11MODULE date_cas_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC year_ini_cas, mth_ini_cas, day_deb, heure_ini_cas, pdt_cas, day_ju_ini_cas
     3  PUBLIC :: year_ini_cas, mth_ini_cas, day_deb, heure_ini_cas, pdt_cas, day_ju_ini_cas
    44
    55  INTEGER :: year_ini_cas    ! initial year of the case
Note: See TracChangeset for help on using the changeset viewer.