Changeset 3956

Timestamp:

Nov 12, 2025, 9:35:34 AM (5 weeks ago)

Author:

emillour

Message:

Venus PCM:
Follow-up of r3954: comsctfi.h and YOCST.h no longer exist.
Use modules comcstfi_mod and YOMCST_mod instead.
EM

File:

• trunk/LMDZ.VENUS/libf/phyvenus/moldiff_MPF.F90 (modified) (8 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/moldiff_MPF.F90

@@ -5 +5 @@
 USE infotrac_phy
 USE dimphy    
+USE comcstfi_mod
 
 implicit none
 
-#include "comcstfi.h"
 #include "diffusion.h"
 
@@ -1043 +1043 @@
 
         SUBROUTINE ZVERT(P,T,M,Z,nl,ig)
-        IMPLICIT NONE
-#include "YOMCST.h"
+        USE YOMCST_mod, ONLY: RG, RKBOL, RNAVO
+        IMPLICIT NONE
+
         INTEGER :: nl,l,ig
         REAL*8,dimension(nl) :: P,T,M,Z,H
@@ -1075 +1076 @@
 
         SUBROUTINE RHOTOT(P,T,M,qq,rhoN,rhoK,nl,nq)
-        IMPLICIT NONE
-#include "YOMCST.h"
+        USE YOMCST_mod, ONLY: RKBOL, RNAVO
+        IMPLICIT NONE
+
         REAL*8 :: kbolt,masseU,Konst
         INTEGER :: nl,nq,l,iq
@@ -1097 +1099 @@
      & qq,mol_tr,gc,Praf,Traf,Qraf,Mraf,Zraf,                             &
      & Nraf,Nrafk,Rraf,Rrafk,il,nl,nq,nlx,ig)
-        use chemparam_mod
-        use infotrac_phy
-        IMPLICIT NONE
-#include "YOMCST.h"
+!        use chemparam_mod
+!       use infotrac_phy
+        use YOMCST_mod, only: RG, RKBOL, RNAVO
+        IMPLICIT NONE
+
         INTEGER :: nl,nq,il,l,i,iq,nlx,iz,ig
         INTEGER :: gc(nq)
@@ -1256 +1259 @@
        
         SUBROUTINE VELVERT(nn,T,H,D,Dz,masse,W,nl)
-        IMPLICIT NONE
-#include "YOMCST.h"
+        USE YOMCST_mod, ONLY: RG, RKBOL, RNAVO
+        IMPLICIT NONE
+
         INTEGER :: l,nl,nn
         REAL*8,DIMENSION(nl) :: T,H,D,W,DT
@@ -1410 +1414 @@
 
         SUBROUTINE Checkmass2(qold,qnew,P,il,nl,nn,nq)
-        IMPLICIT NONE
-#include "YOMCST.h"
+        USE YOMCST_mod, ONLY: RG
+        IMPLICIT NONE
+
         INTEGER :: nl,nn,l,nq,il
         REAL,DIMENSION(nl+1) :: P
@@ -1434 +1439 @@
         SUBROUTINE GCMGRID_P(Z,P,Q,T,Nk,Rk,qq,qnew,tt,tnew,             &
      &    pp,M,gc,nl,nq,nlx,ig)
-        use chemparam_mod
-        use infotrac_phy
+!        use chemparam_mod
+!       use infotrac_phy
+        use YOMCST_mod, only: RG, RKBOL, RNAVO
         IMPLICIT NONE
-#include "YOMCST.h"
+
         INTEGER :: nl,nq,nlx,il,nn,iP,ig,compteur
         INTEGER,DIMENSION(1) :: indP
@@ -1539 +1545 @@
 !         use chemparam_mod
 !        use infotrac
+        use YOMCST_mod, ONLY: RG, RKBOL, RNAVO
         IMPLICIT NONE
-#include "YOMCST.h"
+
         INTEGER :: nl,nq,nlx,il,nn,iP,ig,compteur
         INTEGER,DIMENSION(1) :: indP