Changeset 5977 for LMDZ6/trunk/libf/phylmd/lmdz_cv_ini.f90

Timestamp:

Dec 19, 2025, 2:22:27 PM (13 days ago)

Author:

yann meurdesoif

Message:

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

File:

• LMDZ6/trunk/libf/phylmd/lmdz_cv_ini.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/lmdz_cv_ini.f90

@@ -9 +9 @@
   !------------------------------------------------------------
   IMPLICIT NONE; PRIVATE
-  PUBLIC sigdz, spfac, pbcrit, ptcrit, elcrit, tlcrit, coef_peel, omtrain, dtovsh, dpbase, &
+  PUBLIC :: sigdz, spfac, pbcrit, ptcrit, elcrit, tlcrit, coef_peel, omtrain, dtovsh, dpbase, &
           dttrig, dtcrit, tau, beta, alpha, alpha1, T_top_max, tau_stop, noconv_stop, wbmax, &
           delta, betad, ejectliq, ejectice, flag_wb, flag_epKEorig, cv_flag_feed, noff, minorig, &
           nl, nlp, nlm
-  PUBLIC cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl,  &
+  PUBLIC :: cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl,  &
           clmci, eps, epsi, epsim1, ginv, hrd, grav, keep_bug_indices_cv3_tracer, restore_bug_cvdn
 
@@ -19 +19 @@
 
   ! provenant de cvparam
-  PUBLIC entp, sigs,sigd, omtsnow,coeffr, coeffs, dtmax, cu, damp
+  PUBLIC :: entp, sigs,sigd, omtsnow,coeffr, coeffs, dtmax, cu, damp