Changeset 5274 for LMDZ6/trunk/libf/phylmdiso/lmdz_lscp_old.F90

Timestamp:

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

Author:

abarral

Message:

Replace yomcst.h by existing module

File:

• LMDZ6/trunk/libf/phylmdiso/lmdz_lscp_old.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/lmdz_lscp_old.F90

@@ -68 +68 @@
 #endif
 
+  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
   IMPLICIT none
   !======================================================================
@@ -79 +91 @@
   ! P0> Thermalisation des precipitations venant de la couche du dessus
   ! P1> Evaporation de la precipitation (qui vient du niveau k+1)
-  ! P2> Formation du nuage (en k) 
+  ! P2> Formation du nuage (en k)
   ! P2.A.0> Calcul des grandeurs nuageuses une pdf en creneau
-  ! P2.A.1> Avec les nouvelles PDFs, calcul des grandeurs nuageuses pour 
+  ! P2.A.1> Avec les nouvelles PDFs, calcul des grandeurs nuageuses pour
   ! les valeurs de T et Q initiales
   ! P2.A.2> Prise en compte du couplage entre eau condensee et T.
@@ -89 +101 @@
   ! P3> Formation de la precipitation (en k)
   !======================================================================
-  ! JLD: 
+  ! JLD:
   ! * Routine probablement fausse (au moins incoherente) si thermcep = .false.
-  ! * fl_cor_ebil doit etre > 0 ; 
+  ! * fl_cor_ebil doit etre > 0 ;
   !   fl_cor_ebil= 0 pour reproduire anciens bugs
   !======================================================================
-  include "YOMCST.h"
   !
   ! Principaux inputs: