Changeset 4100 for trunk/LMDZ.VENUS/libf/phyvenus/moldiffcoeff_red.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/moldiffcoeff_red.F (modified) (3 diffs)

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

@@ +1 @@
+      MODULE moldiffcoeff_red_mod
+      
+      IMPLICIT NONE
+      
+      CONTAINS
+
       subroutine moldiffcoeff_red(dij,indic,gcmind,ncompdiff2)
 
-       USE chemparam_mod
-       USE infotrac_phy
-       USE dimphy    
+       use chemparam_mod, only: M_tr
+       use infotrac_phy, only: nqtot, tname
 
        IMPLICIT NONE
@@ -15 +20 @@
 c
 c=======================================================================
-#include "diffusion.h"
 
 c-----------------------------------------------------------------------
@@ -304 +308 @@
 
 
-      return   
-      end 
+      end subroutine moldiffcoeff_red
       
+      END MODULE moldiffcoeff_red_mod