Changeset 5274 for LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (11 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90
r5272 r5274 794 794 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 795 795 796 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 797 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 798 , R_ecc, R_peri, R_incl & 799 , RA, RG, R1SA & 800 , RSIGMA & 801 , R, RMD, RMV, RD, RV, RCPD & 802 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 803 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 804 , RCW, RCS & 805 , RLVTT, RLSTT, RLMLT, RTT, RATM & 806 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 807 , RALPD, RBETD, RGAMD 796 808 USE mod_grid_phy_lmdz 797 809 USE mod_phys_lmdz_para … … 801 813 USE indice_sol_mod 802 814 USE write_field_phy 803 815 804 816 805 817 USE mod_phys_lmdz_transfert_para … … 819 831 ! Remarques en vrac: 820 832 ! ------------------ 821 ! 1/ le call phytrac se fait avec nqmax-2 donc nous avons bien 833 ! 1/ le call phytrac se fait avec nqmax-2 donc nous avons bien 822 834 ! les vrais traceurs (nbtr) dans phytrac (pas la vapeur ni eau liquide) 823 !! AS : nqmax-2 devrait etre nqmax-3 apres introducton de H2Oi ; 835 !! AS : nqmax-2 devrait etre nqmax-3 apres introducton de H2Oi ; 824 836 !! et c'est encore different avec le parser de DC ? 825 837 !====================================================================== 826 838 INCLUDE "chem.h" 827 839 INCLUDE "chem_spla.h" 828 INCLUDE "YOMCST.h"829 840 INCLUDE "YOETHF.h" 830 841 INCLUDE "alpale.h"
Note: See TracChangeset
for help on using the changeset viewer.