Changeset 4100 for trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F

Timestamp:

Mar 4, 2026, 2:16:03 PM (5 weeks ago)

Author:

emillour

Message:

Venus PCM:
Code tidying: remove common diffusion.h, make these variables module
variables in moldiff_MPF.F90 (turn it into a module in the process).
Turn moldiffcoeff_red.F into a module.
EM

File:

• trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F (modified) (2 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F

@@ -79 +79 @@
       use compo_hedin83_mod2, only: compo_hedin83_init2
       use compo_hedin83_mod2, only: compo_hedin83_mod
+      use moldiff_mpf_mod, only: moldiff_mpf
       use nirdata_mod, only: nir_leedat
       use radlwsw_newtoncool_mod, only: radlwsw_newtoncool
@@ -239 +240 @@
 c
       REAL Fsedim(klon,klev+1)  ! Flux de sedimentation (kg.m-2)
-      EXTERNAL moldiff_MPF
 
 c