Changeset 5977 for LMDZ6/trunk


Ignore:
Timestamp:
Dec 19, 2025, 2:22:27 PM (12 days ago)
Author:
yann meurdesoif
Message:

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

Location:
LMDZ6/trunk/libf/phylmd
Files:
27 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/alpale_mod.f90

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

  • LMDZ6/trunk/libf/phylmd/calcul_divers_mod_h.f90

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

  • LMDZ6/trunk/libf/phylmd/chem_mod_h.f90

    r5554 r5977  
    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/trunk/libf/phylmd/clesphys_mod_h.f90

    r5905 r5977  
    44  IMPLICIT NONE; PRIVATE
    55
    6   PUBLIC co2_ppm, solaire                                              &
     6  PUBLIC :: co2_ppm, solaire                                           &
    77          , RCO2, RCH4, RN2O                                           &
    88          , RCFC11, RCFC12                                             &

  • LMDZ6/trunk/libf/phylmd/comsoil_mod_h.f90

    r5298 r5977  
    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/trunk/libf/phylmd/conema3_mod_h.f90

    r5283 r5977  
    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/trunk/libf/phylmd/cv30_routines_mod.f90

    r5346 r5977  
    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/trunk/libf/phylmd/cvflag_mod_h.f90

    r5275 r5977  
    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/trunk/libf/phylmd/dimpft_mod_h.f90

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

  • LMDZ6/trunk/libf/phylmd/dimsoil_mod_h.f90

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

  • LMDZ6/trunk/libf/phylmd/fcg_gcssold_mod_h.f90

    r5301 r5977  
    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/trunk/libf/phylmd/flux_arp_mod_h.f90

    r5301 r5977  
    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/trunk/libf/phylmd/iotd_mod_h.f90

    r5291 r5977  
    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/trunk/libf/phylmd/lmdz_cv_ini.f90

    r5682 r5977  
    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/trunk/libf/phylmd/nuage_params_mod_h.f90

    r5307 r5977  
    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/trunk/libf/phylmd/pbl_surface_mod.F90

    r5970 r5977  
    10341034    REAL, DIMENSION(klon, klev, nbsrf) :: flux_u_x, flux_v_x, flux_u_w, flux_v_w
    10351035    REAL, DIMENSION(klon, nbsrf)       :: fluxlat_x, fluxlat_w
    1036 
     1036   
    10371037
    10381038
    … …  
    10421042    INTEGER :: knon
    10431043    INTEGER :: ni(klon)
    1044 
     1044    REAL,  DIMENSION(:, :), ALLOCATABLE ::  ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09
     1045    REAL,  DIMENSION(:, :), ALLOCATABLE ::  ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19
     1046
     1047   
    10451048      IF (is_master) WRITE(lunout,*) "****************** CHECKSUM IN ****************************"
    10461049      CALL checksum("dtime", dtime)
    … …  
    12681271      ENDIF
    12691272    ENDDO
     1273
     1274    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))
     1275    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))
     1276
    12701277   
    12711278    CALL pbl_surface_subsrf( nsrf, knon, ni(1:knon),  &
    … …  
    13211328       pblt_w, therm_w, trmb1_w, trmb2_w, trmb3_w, pblh, plcl, capCL, oliqCL, cteiCL, pblT, &
    13221329       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,&
    1323        flux_u_x, flux_v_x, flux_u_w, flux_v_w, fluxlat_x, fluxlat_w)
     1330       flux_u_x, flux_v_x, flux_u_w, flux_v_w, fluxlat_x, fluxlat_w, &
     1331       ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09,&
     1332       ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19)
     1333
    13241334 
    13251335  ENDDO
     1336 
     1337  DEALLOCATE(ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09)
     1338  DEALLOCATE(ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19)
    13261339
    13271340  CALL pbl_surface_uncompressed_post( &
    … …  
    23562369       therm, trmb1, trmb2, trmb3, alb, snowerosion, iflag_split_ref, &
    23572370       delp, d_t_diss_x, d_t_diss_w, flux_t_x, flux_q_x, flux_t_w, flux_q_w,&
    2358        flux_u_x, flux_v_x, flux_u_w, flux_v_w, fluxlat_x, fluxlat_w)
    2359 !$gpum horizontal knon
     2371       flux_u_x, flux_v_x, flux_u_w, flux_v_w, fluxlat_x, fluxlat_w, &
     2372       ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09,&
     2373       ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19)
     2374!$gpum horizontal knon klon
    23602375
    23612376
    … …  
    29542969    REAL, DIMENSION(knon) :: yzxtsol     ! temperature at surface
    29552970    REAL, DIMENSION(knon)                   :: ypblh_tmp ! temporaire pblh compressed
     2971    REAL, DIMENSION(knon) :: zgeo1_over_RG
    29562972#ifdef ISO
    29572973    REAL, DIMENSION(knon)       :: h1
    29582974    INTEGER                     :: ixt
    29592975#endif
     2976
     2977    REAL, INTENT(OUT), DIMENSION(knon, klev+1) ::  ytemp00, ytemp01, ytemp02, ytemp03, ytemp04, ytemp05, ytemp06, ytemp07, ytemp08, ytemp09
     2978    REAL, INTENT(OUT), DIMENSION(knon, klev+1) ::  ytemp10, ytemp11, ytemp12, ytemp13, ytemp14, ytemp15, ytemp16, ytemp17, ytemp18, ytemp19
     2979   
     2980   ytemp00=0 ; ytemp01=0 ; ytemp02=0 ; ytemp03=0 ; ytemp04=0 ; ytemp05=0 ; ytemp06=0 ; ytemp07=0 ; ytemp08=0 ; ytemp09=0
     2981   ytemp10=0 ; ytemp11=0 ; ytemp12=0 ; ytemp13=0 ; ytemp14=0 ; ytemp15=0 ; ytemp16=0 ; ytemp17=0 ; ytemp18=0 ; ytemp19=0
     2982
     2983!$gpum nocall checksum
     2984
    29602985      IF (using_xios) THEN
    29612986        missing_val=missing_val_xios
    … …  
    33123337            ENDDO
    33133338            !
    3314 
    3315             CALL eff_surf_param(knon, nbtersrf, yz0m_tersrf, yfrac_tersrf, 'CDN', yz0m, zgeo1/RG)
    3316             CALL eff_surf_param(knon, nbtersrf, yz0h_tersrf, yfrac_tersrf, 'CDN', yz0h, zgeo1/RG)
     3339            zgeo1_over_RG(1:knon) = zgeo1(1:knon)/RG
     3340            CALL eff_surf_param(knon, nbtersrf, yz0m_tersrf, yfrac_tersrf, 'CDN', yz0m, zgeo1_over_RG)
     3341            CALL eff_surf_param(knon, nbtersrf, yz0h_tersrf, yfrac_tersrf, 'CDN', yz0h, zgeo1_over_RG)
    33173342            !
    33183343          ENDIF
    … …  
    39904015
    39914016        end if
    3992 
     4017           zgeo1_over_RG(1:knon) = zgeo1(1:knon)/RG
    39934018           CALL surf_ocean(rlon, rlat, ysolsw, ysollw, yalb_vis, &
    39944019               ywindsp, yrmu0, yfder, yts, &
    39954020               itap, dtime, jour, knon, ni, &
    3996                ypplay(:,1), zgeo1(1:knon)/RG, ycdragh, ycdragm, yrain_f, ysnow_f, ybs_f, yt(:,1), yq(:,1),&    ! ym missing init
     4021               ypplay(:,1), zgeo1_over_RG, ycdragh, ycdragm, yrain_f, ysnow_f, ybs_f, yt(:,1), yq(:,1),&    ! ym missing init
    39974022               AcoefH, AcoefQ, BcoefH, BcoefQ, &
    39984023               AcoefU, AcoefV, BcoefU, BcoefV, &
    … …  
    40114036#endif               
    40124037         &      )
    4013 !$gpum nocall
     4038
    40144039           CALL checksum("yalb_dir_new_ocean",yalb_dir_new(1:knon,:))
    40154040      IF (prt_level >=10) THEN

  • LMDZ6/trunk/libf/phylmd/planete_mod_h.f90

    r5298 r5977  
    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/trunk/libf/phylmd/raddimlw_mod_h.f90

    r5314 r5977  
    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/trunk/libf/phylmd/radepsi_mod_h.f90

    r5314 r5977  
    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/trunk/libf/phylmd/radopt_mod_h.f90

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

  • LMDZ6/trunk/libf/phylmd/regdim_mod_h.f90

    r5315 r5977  
    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/trunk/libf/phylmd/thermcell_old_mod_h.f90

    r5291 r5977  
    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/trunk/libf/phylmd/tsoilnudge_mod_h.f90

    r5301 r5977  
    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/trunk/libf/phylmd/yoecumf_mod_h.f90

    r5289 r5977  
    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/trunk/libf/phylmd/yoethf_mod_h.f90

    r5284 r5977  
    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/trunk/libf/phylmd/yomcst2_mod_h.f90

    r5304 r5977  
    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/trunk/libf/phylmd/yomcst_mod_h.f90

    r5264 r5977  
    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.