Changeset 5274 for LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (31 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h
r5272 r5274 1352 1352 ! sans WTG rajouter une advection horizontale 1353 1353 !---------------------------------------------------------------------- 1354 implicit none 1355 INCLUDE "YOMCST.h" 1354 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1355 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1356 , R_ecc, R_peri, R_incl & 1357 , RA, RG, R1SA & 1358 , RSIGMA & 1359 , R, RMD, RMV, RD, RV, RCPD & 1360 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 1361 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 1362 , RCW, RCS & 1363 , RLVTT, RLSTT, RLMLT, RTT, RATM & 1364 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1365 , RALPD, RBETD, RGAMD 1366 implicit none 1367 1356 1368 ! argument 1357 1369 integer llm … … 1426 1438 ! sans WTG rajouter une advection horizontale 1427 1439 !---------------------------------------------------------------------- 1428 implicit none 1429 INCLUDE "YOMCST.h" 1440 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1441 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1442 , R_ecc, R_peri, R_incl & 1443 , RA, RG, R1SA & 1444 , RSIGMA & 1445 , R, RMD, RMV, RD, RV, RCPD & 1446 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 1447 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 1448 , RCW, RCS & 1449 , RLVTT, RLSTT, RLMLT, RTT, RATM & 1450 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1451 , RALPD, RBETD, RGAMD 1452 implicit none 1453 1430 1454 ! argument 1431 1455 integer llm,nqtot … … 1507 1531 USE dimphy 1508 1532 1509 implicit none 1533 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1534 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1535 , R_ecc, R_peri, R_incl & 1536 , RA, RG, R1SA & 1537 , RSIGMA & 1538 , R, RMD, RMV, RD, RV, RCPD & 1539 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 1540 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 1541 , RCW, RCS & 1542 , RLVTT, RLSTT, RLMLT, RTT, RATM & 1543 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1544 , RALPD, RBETD, RGAMD 1545 implicit none 1510 1546 1511 1547 ! ======================================================== … … 1526 1562 ! Declaration des constantes et des fonctions thermodynamiques 1527 1563 ! 1528 include "YOMCST.h" 1564 1529 1565 include "YOETHF.h" 1530 1566 ! … … 1590 1626 USE dimphy 1591 1627 1592 implicit none 1628 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1629 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1630 , R_ecc, R_peri, R_incl & 1631 , RA, RG, R1SA & 1632 , RSIGMA & 1633 , R, RMD, RMV, RD, RV, RCPD & 1634 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 1635 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 1636 , RCW, RCS & 1637 , RLVTT, RLSTT, RLMLT, RTT, RATM & 1638 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1639 , RALPD, RBETD, RGAMD 1640 implicit none 1593 1641 1594 1642 ! ======================================================== … … 1620 1668 ! Declaration des constantes et des fonctions thermodynamiques 1621 1669 ! 1622 include "YOMCST.h" 1670 1623 1671 include "YOETHF.h" 1624 1672 ! … … 1747 1795 1748 1796 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 1797 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1798 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1799 , R_ecc, R_peri, R_incl & 1800 , RA, RG, R1SA & 1801 , RSIGMA & 1802 , R, RMD, RMV, RD, RV, RCPD & 1803 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 1804 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 1805 , RCW, RCS & 1806 , RLVTT, RLSTT, RLMLT, RTT, RATM & 1807 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1808 , RALPD, RBETD, RGAMD 1749 1809 implicit none 1750 1810 1751 INCLUDE "YOMCST.h" 1811 1752 1812 1753 1813
Note: See TracChangeset
for help on using the changeset viewer.