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

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

Location:
LMDZ6/branches/PBLSURF_GPUPORT/libf
Files:
41 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/dyn3d_common/comdissnew_mod_h.f90

    r5280 r5923  
    33MODULE comdissnew_mod_h
    44  IMPLICIT NONE; PRIVATE
    5   PUBLIC lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
     5  PUBLIC :: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
    66          tetagrot, tetatemp, coefdis, vert_prof_dissip
    77

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/dyn3d_common/comgeom2_mod_h.f90

    r5281 r5923  
    88  USE paramet_mod_h
    99  IMPLICIT NONE; PRIVATE
    10   PUBLIC                                                               &
     10  PUBLIC ::                                                              &
    1111          cu, cv, unscu2, unscv2, aire, airesurg, aireu, airev, apoln, apols, unsaire &
    1212          , unsairez, airuscv2, airvscu2, aireij1, aireij2, aireij3, aireij4, &

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/dyn3d_common/paramet_mod_h.f90

    r5358 r5923  
    33
    44  IMPLICIT NONE; PRIVATE
    5   PUBLIC iip1, iip2, jjp1, llmp1, llmm1, ip1jm, ip1jmp1, &
     5  PUBLIC :: iip1, iip2, jjp1, llmp1, llmm1, ip1jm, ip1jmp1, &
    66          ip1jmi1, ijp1llm, ijmllm
    77

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/dyn3d_common/tracstoke_mod_h.f90

    r5283 r5923  
    22MODULE tracstoke_mod_h
    33  IMPLICIT NONE; PRIVATE
    4   PUBLIC istdyn, istphy, unittrac
     4  PUBLIC :: istdyn, istphy, unittrac
    55
    66  INTEGER istdyn, istphy, unittrac

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/Dust/chem_spla_mod_h.f90

    r5556 r5923  
    11MODULE chem_spla_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC ss_bins 
     3  PUBLIC :: ss_bins 
    44
    55  INTEGER, PARAMETER :: ss_bins = 2

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/Dust/condsurfs_new_mod.f90

    r5337 r5923  
    11MODULE condsurfs_new_mod
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC condsurfs_new
     3  PUBLIC :: condsurfs_new
    44
    55CONTAINS

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/StratAer/strataer_emiss_mod.f90

    r5370 r5923  
    22  ! This module contains information about strato microphysic model emission parameters
    33   IMPLICIT NONE; PRIVATE
    4    PUBLIC strataer_emiss_init
     4   PUBLIC :: strataer_emiss_init
    55CONTAINS
    66

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/StratAer/traccoag_mod.f90

    r5367 r5923  
    55!
    66  IMPLICIT NONE; PRIVATE
    7   PUBLIC traccoag
     7  PUBLIC :: traccoag
    88CONTAINS
    99

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

    r5815 r5923  
    44MODULE alpale_mod
    55  IMPLICIT NONE; PRIVATE
    6   PUBLIC alpale
     6  PUBLIC :: alpale
    77
    88  !=====================================================================

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

    r5293 r5923  
    11MODULE calcul_divers_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC calcul_divers
     3  PUBLIC :: calcul_divers
    44
    55CONTAINS

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

    r5554 r5923  
    55
    66  IMPLICIT NONE; PRIVATE
    7   PUBLIC idms, iso2, iso4, ih2s, idmso, imsa, ih2o2, &
     7  PUBLIC :: idms, iso2, iso4, ih2s, idmso, imsa, ih2o2, &
    88           rho_water, rho_ice
    99

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

    r5825 r5923  
    44  IMPLICIT NONE; PRIVATE
    55
    6   PUBLIC co2_ppm, solaire                                           &
     6  PUBLIC ::  co2_ppm, solaire                                           &
    77          , RCO2, RCH4, RN2O, RCFC11, RCFC12                           &
    88          , RCO2_act, RCH4_act, RN2O_act, RCFC11_act, RCFC12_act       &

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

    r5627 r5923  
    33MODULE compbl_mod_h
    44  IMPLICIT NONE; PRIVATE
    5   PUBLIC iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree, iflag_hetero_surf
     5  PUBLIC :: iflag_pbl, iflag_pbl_split, iflag_order2_sollw, ifl_pbltree, iflag_hetero_surf
    66
    77  !!      integer iflag_pbl,iflag_pbl_split

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

    r5298 r5923  
    33MODULE comsoil_mod_h
    44  IMPLICIT NONE; PRIVATE
    5   PUBLIC inertie_sol, inertie_sno, inertie_sic, inertie_lic, iflag_sic, iflag_inertie
     5  PUBLIC :: inertie_sol, inertie_sno, inertie_sic, inertie_lic, iflag_sic, iflag_inertie
    66
    77  REAL inertie_sol, inertie_sno, inertie_sic, inertie_lic

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

    r5283 r5923  
    11MODULE conema3_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC epmax, coef_epmax_cape, cvl_comp_threshold, cvl_sig2feed
    4   PUBLIC iflag_cvl_sigd, iflag_clw, ok_adj_ema
     3  PUBLIC :: epmax, coef_epmax_cape, cvl_comp_threshold, cvl_sig2feed
     4  PUBLIC :: iflag_cvl_sigd, iflag_clw, ok_adj_ema
    55
    66  REAL epmax             ! 0.993

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

    r5346 r5923  
    99
    1010  IMPLICIT NONE; PRIVATE
    11   PUBLIC sigd, spfac, pbcrit, ptcrit, omtrain, dtovsh, dpbase, dttrig, dtcrit, &
    12           tau, beta, alpha, delta, betad, noff, minorig, nl, nlp, nlm, &
    13           cv30_param, cv30_prelim, cv30_feed, cv30_undilute1, cv30_trigger, &
    14           cv30_compress, cv30_undilute2, cv30_closure, cv30_mixing, cv30_unsat, &
    15           cv30_yield, cv30_tracer, cv30_uncompress, cv30_epmax_fn_cape
     11  PUBLIC :: sigd, spfac, pbcrit, ptcrit, omtrain, dtovsh, dpbase, dttrig, dtcrit, &
     12            tau, beta, alpha, delta, betad, noff, minorig, nl, nlp, nlm, &
     13            cv30_param, cv30_prelim, cv30_feed, cv30_undilute1, cv30_trigger, &
     14            cv30_compress, cv30_undilute2, cv30_closure, cv30_mixing, cv30_unsat, &
     15            cv30_yield, cv30_tracer, cv30_uncompress, cv30_epmax_fn_cape
    1616
    1717  INTEGER noff, minorig, nl, nlp, nlm

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

    r5275 r5923  
    33MODULE cvflag_mod_h
    44  IMPLICIT NONE; PRIVATE
    5   PUBLIC icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
    6           ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
     5  PUBLIC :: icvflag_Tpa, cvflag_grav, cvflag_ice, ok_optim_yield, ok_entrain, ok_homo_tend, &
     6            ok_convstop, ok_intermittent, cvflag_prec_eject, qsat_depends_on_qt, adiab_ascent_mass_flux_depends_on_ejectliq, keepbug_ice_frac
    77
    88  LOGICAL cvflag_grav

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

    r5305 r5923  
    11MODULE dimpft_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC nvm_lmdz
     3  PUBLIC :: nvm_lmdz
    44
    55  INTEGER :: nvm_lmdz

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

    r5273 r5923  
    11MODULE dimsoil_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC nsoilmx, nsnowmx, nsismx
     3  PUBLIC :: nsoilmx, nsnowmx, nsismx
    44
    55  INTEGER nsoilmx

  • 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

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

    r5301 r5923  
    33MODULE fcg_gcssold_mod_h
    44  IMPLICIT NONE; PRIVATE
    5   PUBLIC imp_fcg_gcssold, ts_fcg_gcssold, Tp_fcg_gcssold, Tp_ini_gcssold, xTurb_fcg_gcssold
     5  PUBLIC :: imp_fcg_gcssold, ts_fcg_gcssold, Tp_fcg_gcssold, Tp_ini_gcssold, xTurb_fcg_gcssold
    66
    77  LOGICAL :: imp_fcg_gcssold, ts_fcg_gcssold, Tp_fcg_gcssold

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

    r5301 r5923  
    44MODULE flux_arp_mod_h
    55  IMPLICIT NONE; PRIVATE
    6   PUBLIC fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf
     6  PUBLIC :: fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf
    77
    88  LOGICAL :: ok_flux_surf

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/inlandsis/VAR_SV.f90

    r5273 r5923  
    22      USE dimsoil_mod_h, ONLY: nsoilmx, nsnowmx
    33IMPLICIT NONE; PRIVATE
    4       PUBLIC nsol, nsot, nsno, nb_wri, klonv, knonv
     4      PUBLIC :: nsol, nsot, nsno, nb_wri, klonv, knonv
    55
    66! +

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/inlandsis/sisvat_weq_mod.f90

    r5309 r5923  
    11MODULE sisvat_weq_mod
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC sisvat_weq
     3  PUBLIC :: sisvat_weq
    44
    55  LOGICAL :: logWEq

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/inlandsis/surf_inlandsis_mod.f90

    r5868 r5923  
    22
    33    IMPLICIT NONE; PRIVATE
    4     PUBLIC surf_inlandsis, get_soil_levels, SISVAT_ini, sisvatetat0, sisvatredem
     4    PUBLIC :: surf_inlandsis, get_soil_levels, SISVAT_ini, sisvatetat0, sisvatredem
    55
    66CONTAINS

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

    r5291 r5923  
    11MODULE iotd_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC imax, jmax, lmax, nid, dim_coord, iotd_ts, iotd_t0, n_names_iotd_def, names_iotd_def, &
    4           un_nom
     3  PUBLIC :: imax, jmax, lmax, nid, dim_coord, iotd_ts, iotd_t0, n_names_iotd_def, names_iotd_def, &
     4            un_nom
    55  !=======================================================================
    66  !

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

    r5682 r5923  
    99  !------------------------------------------------------------
    1010  IMPLICIT NONE; PRIVATE
    11   PUBLIC sigdz, spfac, pbcrit, ptcrit, elcrit, tlcrit, coef_peel, omtrain, dtovsh, dpbase, &
     11  PUBLIC :: sigdz, spfac, pbcrit, ptcrit, elcrit, tlcrit, coef_peel, omtrain, dtovsh, dpbase, &
    1212          dttrig, dtcrit, tau, beta, alpha, alpha1, T_top_max, tau_stop, noconv_stop, wbmax, &
    1313          delta, betad, ejectliq, ejectice, flag_wb, flag_epKEorig, cv_flag_feed, noff, minorig, &
    1414          nl, nlp, nlm
    15   PUBLIC cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl,  &
     15  PUBLIC :: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl,  &
    1616          clmci, eps, epsi, epsim1, ginv, hrd, grav, keep_bug_indices_cv3_tracer, restore_bug_cvdn
    1717
    … …  
    1919
    2020  ! provenant de cvparam
    21   PUBLIC entp, sigs,sigd, omtsnow,coeffr, coeffs, dtmax, cu, damp
     21  PUBLIC :: entp, sigs,sigd, omtsnow,coeffr, coeffs, dtmax, cu, damp
    2222
    2323

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

    r5307 r5923  
    33MODULE nuage_params_mod_h
    44  IMPLICIT NONE; PRIVATE
    5   PUBLIC rad_froid, rad_chau1, rad_chau2, &
     5  PUBLIC :: rad_froid, rad_chau1, rad_chau2, &
    66          tau_cld_cv, coefw_cld_cv, &
    77          tmax_fonte_cv, iflag_ratqs, &

  • LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/pbl_surface_mod.F90

    r5908 r5923  
    10321032    REAL, DIMENSION(klon, klev, nbsrf) :: flux_u_x, flux_v_x, flux_u_w, flux_v_w
    10331033    REAL, DIMENSION(klon, nbsrf)       :: fluxlat_x, fluxlat_w
    1034 
     1034   
    10351035
    10361036
    … …  
    10401040    INTEGER :: knon
    10411041    INTEGER :: ni(klon)
    1042 
     1042    REAL,  DIMENSION(:, :), ALLOCATABLE ::  ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09
     1043    REAL,  DIMENSION(:, :), ALLOCATABLE ::  ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19
     1044
     1045   
    10431046      IF (is_master) WRITE(lunout,*) "****************** CHECKSUM IN ****************************"
    10441047      CALL checksum("dtime", dtime)
    … …  
    12661269      ENDIF
    12671270    ENDDO
     1271
     1272    ALLOCATE(ytemp00(knon,klev+1), ytemp01(knon,klev+1), ytemp02(knon,klev+1), ytemp03(knon,klev+1), ytemp04(knon,klev+1), ytemp05(knon,klev+1), ytemp06(knon,klev+1), ytemp07(knon,klev+1), ytemp08(knon,klev+1), ytemp09(knon,klev+1))
     1273    ALLOCATE(ytemp10(knon,klev+1), ytemp11(knon,klev+1), ytemp12(knon,klev+1), ytemp13(knon,klev+1), ytemp14(knon,klev+1), ytemp15(knon,klev+1), ytemp16(knon,klev+1), ytemp17(knon,klev+1), ytemp18(knon,klev+1), ytemp19(knon,klev+1))
     1274
    12681275   
    12691276    CALL pbl_surface_subsrf( nsrf, knon, ni(1:knon),  &
    … …  
    13191326       pblt_w, therm_w, trmb1_w, trmb2_w, trmb3_w, pblh, plcl, capCL, oliqCL, cteiCL, pblT, &
    13201327       therm, trmb1, trmb2, trmb3, alb, snowerosion, iflag_split_ref, delp, d_t_diss_x, d_t_diss_w, flux_t_x, flux_q_x, flux_t_w, flux_q_w,&
    1321        flux_u_x, flux_v_x, flux_u_w, flux_v_w, fluxlat_x, fluxlat_w)
     1328       flux_u_x, flux_v_x, flux_u_w, flux_v_w, fluxlat_x, fluxlat_w, &
     1329       ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09,&
     1330       ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19)
     1331
    13221332 
    13231333  ENDDO
     1334 
     1335  DEALLOCATE(ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09)
     1336  DEALLOCATE(ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19)
    13241337
    13251338  CALL pbl_surface_uncompressed_post( &
    … …  
    23542367       therm, trmb1, trmb2, trmb3, alb, snowerosion, iflag_split_ref, &
    23552368       delp, d_t_diss_x, d_t_diss_w, flux_t_x, flux_q_x, flux_t_w, flux_q_w,&
    2356        flux_u_x, flux_v_x, flux_u_w, flux_v_w, fluxlat_x, fluxlat_w)
    2357 !$gpum horizontal knon
     2369       flux_u_x, flux_v_x, flux_u_w, flux_v_w, fluxlat_x, fluxlat_w, &
     2370       ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09,&
     2371       ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19)
     2372!$gpum horizontal knon klon
    23582373
    23592374
    … …  
    29522967    REAL, DIMENSION(knon) :: yzxtsol     ! temperature at surface
    29532968    REAL, DIMENSION(knon)                   :: ypblh_tmp ! temporaire pblh compressed
     2969    REAL, DIMENSION(knon) :: zgeo1_over_RG
    29542970#ifdef ISO
    29552971    REAL, DIMENSION(knon)       :: h1
    29562972    INTEGER                     :: ixt
    29572973#endif
     2974
     2975    REAL, INTENT(OUT), DIMENSION(knon, klev+1) ::  ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09
     2976    REAL, INTENT(OUT), DIMENSION(knon, klev+1) ::  ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19
     2977   
     2978   ytemp00=0 ; ytemp01=0 ; ytemp02=0 ; ytemp03=0 ; ytemp04=0 ; ytemp05=0 ; ytemp06=0 ; ytemp07=0 ; ytemp08=0 ; ytemp09=0
     2979   ytemp10=0 ; ytemp11=0 ; ytemp12=0 ; ytemp13=0 ; ytemp14=0 ; ytemp15=0 ; ytemp16=0 ; ytemp17=0 ; ytemp18=0 ; ytemp19=0
     2980
     2981!$gpum nocall checksum
     2982
    29582983      IF (using_xios) THEN
    29592984        missing_val=missing_val_xios
    … …  
    33103335            ENDDO
    33113336            !
    3312 
    3313             CALL eff_surf_param(knon, nbtersrf, yz0m_tersrf, yfrac_tersrf, 'CDN', yz0m, zgeo1/RG)
    3314             CALL eff_surf_param(knon, nbtersrf, yz0h_tersrf, yfrac_tersrf, 'CDN', yz0h, zgeo1/RG)
     3337            zgeo1_over_RG(1:knon) = zgeo1(1:knon)/RG
     3338            CALL eff_surf_param(knon, nbtersrf, yz0m_tersrf, yfrac_tersrf, 'CDN', yz0m, zgeo1_over_RG)
     3339            CALL eff_surf_param(knon, nbtersrf, yz0h_tersrf, yfrac_tersrf, 'CDN', yz0h, zgeo1_over_RG)
    33153340            !
    33163341          ENDIF
    … …  
    39884013
    39894014        end if
    3990 
     4015           zgeo1_over_RG(1:knon) = zgeo1(1:knon)/RG
    39914016           CALL surf_ocean(rlon, rlat, ysolsw, ysollw, yalb_vis, &
    39924017               ywindsp, yrmu0, yfder, yts, &
    39934018               itap, dtime, jour, knon, ni, &
    3994                ypplay(:,1), zgeo1(1:knon)/RG, ycdragh, ycdragm, yrain_f, ysnow_f, ybs_f, yt(:,1), yq(:,1),&    ! ym missing init
     4019               ypplay(:,1), zgeo1_over_RG, ycdragh, ycdragm, yrain_f, ysnow_f, ybs_f, yt(:,1), yq(:,1),&    ! ym missing init
    39954020               AcoefH, AcoefQ, BcoefH, BcoefQ, &
    39964021               AcoefU, AcoefV, BcoefU, BcoefV, &
    … …  
    40094034#endif               
    40104035         &      )
    4011 !$gpum nocall
     4036
    40124037           CALL checksum("yalb_dir_new_ocean",yalb_dir_new(1:knon,:))
    40134038      IF (prt_level >=10) THEN

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

    r5298 r5923  
    11MODULE planete_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC aphelie, periheli, year_day, peri_day, obliquit, timeperi, e_elips, p_elips, unitastr
     3  PUBLIC :: aphelie, periheli, year_day, peri_day, obliquit, timeperi, e_elips, p_elips, unitastr
    44
    55  REAL aphelie, periheli, year_day, peri_day, obliquit, timeperi, e_elips, &

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

    r5314 r5923  
    11MODULE raddimlw_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC nua, ntra, ninter, ng1, ng1p1
     3  PUBLIC :: nua, ntra, ninter, ng1, ng1p1
    44
    55  INTEGER NUA

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

    r5314 r5923  
    11MODULE radepsi_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC zeelog, zepsc, zepsco, zepscq, zepsct, zepscw, zepsec, zepscr, repsct
     3  PUBLIC :: zeelog, zepsc, zepsco, zepscq, zepsct, zepscw, zepsec, zepscr, repsct
    44
    55  REAL(KIND = 8) ZEELOG, ZEPSC, ZEPSCO, ZEPSCQ, ZEPSCT, ZEPSCW

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

    r5314 r5923  
    11MODULE radopt_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC levoigt, novlp, kaer
     3  PUBLIC :: levoigt, novlp, kaer
    44
    55  LOGICAL LEVOIGT

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

    r5315 r5923  
    11MODULE regdim_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC i1_deb, i1_fin, i2_deb, i2_fin, j_deb, j_fin
     3  PUBLIC :: i1_deb, i1_fin, i2_deb, i2_fin, j_deb, j_fin
    44
    55  INTEGER i1_deb, i1_fin

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

    r5291 r5923  
    11MODULE thermcell_old_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC r_aspect_thermals, l_mix_thermals, w2di_thermals
     3  PUBLIC :: r_aspect_thermals, l_mix_thermals, w2di_thermals
    44  real, parameter :: r_aspect_thermals = 2.
    55  real, parameter :: l_mix_thermals = 30.

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

    r5301 r5923  
    11MODULE tsoilnudge_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC nudge_tsoil, isoil_nudge, Tsoil_nudge, tau_soil_nudge
     3  PUBLIC :: nudge_tsoil, isoil_nudge, Tsoil_nudge, tau_soil_nudge
    44
    55  LOGICAL nudge_tsoil

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

    r5289 r5923  
    55
    66  IMPLICIT NONE; PRIVATE
    7   PUBLIC ENTRPEN, ENTRSCV, ENTRMID, ENTRDD, CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, &
     7  PUBLIC :: ENTRPEN, ENTRSCV, ENTRMID, ENTRDD, CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, &
    88          CPRCON, LMFPEN, LMFSCV, LMFMID, LMFDD, LMFDUDV
    99

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

    r5284 r5923  
    1010  !     *RHOH2O*  *DENSITY OF LIQUID WATER.   (RATM/100.)
    1111  IMPLICIT NONE; PRIVATE
    12   PUBLIC R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES, RVTMP2, RHOH2O, R5ALVCP, &
     12  PUBLIC :: R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES, RVTMP2, RHOH2O, R5ALVCP, &
    1313          R5ALSCP, RALVDCP, RALSDCP, RALFDCP, RTWAT, RTBER, RTBERCU, RTICE, RTICECU, &
    1414          RTWAT_RTICE_R, RTWAT_RTICECU_R, RKOOP1, RKOOP2, OK_BAD_ECMWF_THERMO

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

    r5304 r5923  
    11MODULE yomcst2_mod_h
    22  IMPLICIT NONE; PRIVATE
    3   PUBLIC gammas, alphas, betas, Fmax, scut, qqa1, qqa2, qqa3, Qcoef1max, &
     3  PUBLIC :: gammas, alphas, betas, Fmax, scut, qqa1, qqa2, qqa3, Qcoef1max, &
    44          Qcoef2max, Supcrit1, Supcrit2, choice, iflag_mix, coef_clos_ls, iflag_mix_adiab
    55

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

    r5264 r5923  
    44  IMPLICIT NONE; PRIVATE
    55
    6   PUBLIC RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     6  PUBLIC :: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    77          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    88          , R_ecc, R_peri, R_incl                                      &
Note: See TracChangeset for help on using the changeset viewer.