Changeset 5274 for LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90

Timestamp:

Oct 25, 2024, 3:41:23 PM (11 hours ago)

Author:

abarral

Message:

Replace yomcst.h by existing module

File:

• LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90

@@ -794 +794 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
+          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
+          , R_ecc, R_peri, R_incl                                      &
+          , RA, RG, R1SA                                         &
+          , RSIGMA                                                     &
+          , R, RMD, RMV, RD, RV, RCPD                    &
+          , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12        &
+          , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w                    &
+          , RCW, RCS                                                 &
+          , RLVTT, RLSTT, RLMLT, RTT, RATM                           &
+          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
+          , RALPD, RBETD, RGAMD
       USE mod_grid_phy_lmdz
       USE mod_phys_lmdz_para
@@ -801 +813 @@
       USE indice_sol_mod
       USE write_field_phy
-     
+
 
       USE mod_phys_lmdz_transfert_para
@@ -819 +831 @@
 ! Remarques en vrac:
 ! ------------------
-! 1/ le call phytrac se fait avec nqmax-2 donc nous avons bien 
+! 1/ le call phytrac se fait avec nqmax-2 donc nous avons bien
 ! les vrais traceurs (nbtr) dans phytrac (pas la vapeur ni eau liquide)
-!! AS : nqmax-2 devrait etre nqmax-3 apres introducton de H2Oi ; 
+!! AS : nqmax-2 devrait etre nqmax-3 apres introducton de H2Oi ;
 !!   et c'est encore different avec le parser de DC ?
 !======================================================================
       INCLUDE "chem.h"
       INCLUDE "chem_spla.h"
-      INCLUDE "YOMCST.h"
       INCLUDE "YOETHF.h"
       INCLUDE "alpale.h"