Changeset 5274 for LMDZ6/trunk/libf/phylmd/Dust
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (9 hours ago)
- Location:
- LMDZ6/trunk/libf/phylmd/Dust
- Files:
-
- 25 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/Dust/aeropt_spl.f90
r5271 r5274 11 11 USE infotrac 12 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 14 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 15 , R_ecc, R_peri, R_incl & 16 , RA, RG, R1SA & 17 , RSIGMA & 18 , R, RMD, RMV, RD, RV, RCPD & 19 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 20 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 21 , RCW, RCS & 22 , RLVTT, RLSTT, RLMLT, RTT, RATM & 23 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 24 , RALPD, RBETD, RGAMD 13 25 IMPLICIT none 14 26 ! … … 16 28 17 29 !INCLUDE "dimphy.h" 18 INCLUDE "YOMCST.h" 30 19 31 ! 20 32 ! Arguments: -
LMDZ6/trunk/libf/phylmd/Dust/bcscav_spl.f90
r5271 r5274 3 3 USE dimphy 4 4 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 5 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 6 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 7 , R_ecc, R_peri, R_incl & 8 , RA, RG, R1SA & 9 , RSIGMA & 10 , R, RMD, RMV, RD, RV, RCPD & 11 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 12 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 13 , RCW, RCS & 14 , RLVTT, RLSTT, RLMLT, RTT, RATM & 15 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 16 , RALPD, RBETD, RGAMD 5 17 IMPLICIT NONE 6 18 !===================================================================== … … 12 24 13 25 INCLUDE "chem.h" 14 INCLUDE "YOMCST.h" 26 15 27 INCLUDE "YOECUMF.h" 16 28 ! -
LMDZ6/trunk/libf/phylmd/Dust/bl_for_dms.f90
r5271 r5274 3 3 USE dimphy 4 4 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 5 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 6 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 7 , R_ecc, R_peri, R_incl & 8 , RA, RG, R1SA & 9 , RSIGMA & 10 , R, RMD, RMV, RD, RV, RCPD & 11 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 12 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 13 , RCW, RCS & 14 , RLVTT, RLSTT, RLMLT, RTT, RATM & 15 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 16 , RALPD, RBETD, RGAMD 5 17 IMPLICIT NONE 6 18 ! … … 19 31 ! 20 32 21 INCLUDE "YOMCST.h" 33 22 34 INCLUDE "YOETHF.h" 23 35 INCLUDE "FCTTRE.h" -
LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav.f90
r5272 r5274 11 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 13 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 14 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 15 , R_ecc, R_peri, R_incl & 16 , RA, RG, R1SA & 17 , RSIGMA & 18 , R, RMD, RMV, RD, RV, RCPD & 19 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 20 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 21 , RCW, RCS & 22 , RLVTT, RLSTT, RLMLT, RTT, RATM & 23 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 24 , RALPD, RBETD, RGAMD 13 25 IMPLICIT NONE 14 26 15 27 16 28 INCLUDE "chem.h" 17 INCLUDE "YOMCST.h" 29 18 30 19 31 -
LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav_lsc.f90
r5272 r5274 11 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 13 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 14 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 15 , R_ecc, R_peri, R_incl & 16 , RA, RG, R1SA & 17 , RSIGMA & 18 , R, RMD, RMV, RD, RV, RCPD & 19 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 20 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 21 , RCW, RCS & 22 , RLVTT, RLSTT, RLMLT, RTT, RATM & 23 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 24 , RALPD, RBETD, RGAMD 13 25 IMPLICIT NONE 14 26 15 27 16 28 INCLUDE "chem.h" 17 INCLUDE "YOMCST.h" 29 18 30 19 31 -
LMDZ6/trunk/libf/phylmd/Dust/checkmass.f90
r5268 r5274 2 2 USE dimphy 3 3 USE geometry_mod , ONLY:cell_area 4 IMPLICIT NONE 4 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 5 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 6 , R_ecc, R_peri, R_incl & 7 , RA, RG, R1SA & 8 , RSIGMA & 9 , R, RMD, RMV, RD, RV, RCPD & 10 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 11 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 12 , RCW, RCS & 13 , RLVTT, RLSTT, RLMLT, RTT, RATM & 14 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 15 , RALPD, RBETD, RGAMD 16 IMPLICIT NONE 5 17 6 INCLUDE "YOMCST.h" 18 7 19 8 20 ! Entrees -
LMDZ6/trunk/libf/phylmd/Dust/cltrac_spl.f90
r5271 r5274 2 2 flux,paprs,pplay,d_tr) 3 3 4 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 5 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 6 , R_ecc, R_peri, R_incl & 7 , RA, RG, R1SA & 8 , RSIGMA & 9 , R, RMD, RMV, RD, RV, RCPD & 10 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 11 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 12 , RCW, RCS & 13 , RLVTT, RLSTT, RLMLT, RTT, RATM & 14 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 15 , RALPD, RBETD, RGAMD 4 16 USE dimphy 5 17 USE dimensions_mod, ONLY: iim, jjm, llm, ndm … … 37 49 ! REAL flux_tr(klon,klev) 38 50 !====================================================================== 39 INCLUDE "YOMCST.h"40 51 !====================================================================== 41 52 INTEGER :: i, k -
LMDZ6/trunk/libf/phylmd/Dust/cm3_to_kg.f90
r5271 r5274 6 6 7 7 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 8 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 9 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 10 , R_ecc, R_peri, R_incl & 11 , RA, RG, R1SA & 12 , RSIGMA & 13 , R, RMD, RMV, RD, RV, RCPD & 14 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 15 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 16 , RCW, RCS & 17 , RLVTT, RLSTT, RLMLT, RTT, RATM & 18 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 19 , RALPD, RBETD, RGAMD 8 20 IMPLICIT NONE 9 21 ! 10 22 11 INCLUDE "YOMCST.h" 23 12 24 ! 13 25 REAL :: t_seri(klon,klev), pplay(klon,klev) -
LMDZ6/trunk/libf/phylmd/Dust/coarsemission.f90
r5272 r5274 34 34 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 35 35 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 36 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 37 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 38 , R_ecc, R_peri, R_incl & 39 , RA, RG, R1SA & 40 , RSIGMA & 41 , R, RMD, RMV, RD, RV, RCPD & 42 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 43 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 44 , RCW, RCS & 45 , RLVTT, RLSTT, RLMLT, RTT, RATM & 46 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 47 , RALPD, RBETD, RGAMD 36 48 IMPLICIT NONE 37 49 … … 39 51 INCLUDE "chem.h" 40 52 INCLUDE "chem_spla.h" 41 INCLUDE "YOMCST.h" 53 42 54 43 55 -
LMDZ6/trunk/libf/phylmd/Dust/deposition.f90
r5272 r5274 13 13 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 14 14 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 15 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 16 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 17 , R_ecc, R_peri, R_incl & 18 , RA, RG, R1SA & 19 , RSIGMA & 20 , R, RMD, RMV, RD, RV, RCPD & 21 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 22 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 23 , RCW, RCS & 24 , RLVTT, RLSTT, RLMLT, RTT, RATM & 25 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 26 , RALPD, RBETD, RGAMD 15 27 IMPLICIT NONE 16 28 17 29 18 30 INCLUDE "chem.h" 19 INCLUDE "YOMCST.h" 31 20 32 21 33 -
LMDZ6/trunk/libf/phylmd/Dust/finemission.f90
r5272 r5274 18 18 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 19 19 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 20 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 21 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 22 , R_ecc, R_peri, R_incl & 23 , RA, RG, R1SA & 24 , RSIGMA & 25 , R, RMD, RMV, RD, RV, RCPD & 26 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 27 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 28 , RCW, RCS & 29 , RLVTT, RLSTT, RLMLT, RTT, RATM & 30 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 31 , RALPD, RBETD, RGAMD 20 32 IMPLICIT NONE 21 33 22 34 23 35 INCLUDE "chem.h" 24 INCLUDE "YOMCST.h" 36 25 37 26 38 -
LMDZ6/trunk/libf/phylmd/Dust/gastoparticle.f90
r5271 r5274 9 9 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 12 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 13 , R_ecc, R_peri, R_incl & 14 , RA, RG, R1SA & 15 , RSIGMA & 16 , R, RMD, RMV, RD, RV, RCPD & 17 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 18 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 19 , RCW, RCS & 20 , RLVTT, RLSTT, RLMLT, RTT, RATM & 21 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 22 , RALPD, RBETD, RGAMD 11 23 IMPLICIT NONE 12 24 ! … … 14 26 INCLUDE "chem.h" 15 27 INCLUDE "chem_spla.h" 16 INCLUDE "YOMCST.h" 28 17 29 INCLUDE "YOECUMF.h" 18 30 ! -
LMDZ6/trunk/libf/phylmd/Dust/incloud_scav.f90
r5272 r5274 12 12 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 13 13 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 15 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 16 , R_ecc, R_peri, R_incl & 17 , RA, RG, R1SA & 18 , RSIGMA & 19 , R, RMD, RMV, RD, RV, RCPD & 20 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 21 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 22 , RCW, RCS & 23 , RLVTT, RLSTT, RLMLT, RTT, RATM & 24 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 25 , RALPD, RBETD, RGAMD 14 26 IMPLICIT NONE 15 27 16 28 17 29 INCLUDE "chem.h" 18 INCLUDE "YOMCST.h" 30 19 31 20 32 -
LMDZ6/trunk/libf/phylmd/Dust/incloud_scav_lsc.f90
r5272 r5274 12 12 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 13 13 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 15 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 16 , R_ecc, R_peri, R_incl & 17 , RA, RG, R1SA & 18 , RSIGMA & 19 , R, RMD, RMV, RD, RV, RCPD & 20 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 21 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 22 , RCW, RCS & 23 , RLVTT, RLSTT, RLMLT, RTT, RATM & 24 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 25 , RALPD, RBETD, RGAMD 14 26 IMPLICIT NONE 15 27 16 28 17 29 INCLUDE "chem.h" 18 INCLUDE "YOMCST.h" 30 19 31 20 32 -
LMDZ6/trunk/libf/phylmd/Dust/inscav_spl.f90
r5271 r5274 4 4 USE dimphy 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 7 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 8 , R_ecc, R_peri, R_incl & 9 , RA, RG, R1SA & 10 , RSIGMA & 11 , R, RMD, RMV, RD, RV, RCPD & 12 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 13 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 14 , RCW, RCS & 15 , RLVTT, RLSTT, RLMLT, RTT, RATM & 16 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 17 , RALPD, RBETD, RGAMD 6 18 IMPLICIT NONE 7 19 !===================================================================== … … 13 25 14 26 INCLUDE "chem.h" 15 INCLUDE "YOMCST.h" 27 16 28 INCLUDE "YOECUMF.h" 17 29 ! -
LMDZ6/trunk/libf/phylmd/Dust/kg_to_cm3.f90
r5271 r5274 4 4 USE infotrac 5 5 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 6 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 7 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 8 , R_ecc, R_peri, R_incl & 9 , RA, RG, R1SA & 10 , RSIGMA & 11 , R, RMD, RMV, RD, RV, RCPD & 12 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 13 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 14 , RCW, RCS & 15 , RLVTT, RLSTT, RLMLT, RTT, RATM & 16 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 17 , RALPD, RBETD, RGAMD 6 18 IMPLICIT NONE 7 19 ! 8 20 9 INCLUDE "YOMCST.h" 21 10 22 ! 11 23 REAL :: t_seri(klon,klev), pplay(klon,klev) -
LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_orig.f90
r5271 r5274 14 14 15 15 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 16 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 17 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 18 , R_ecc, R_peri, R_incl & 19 , RA, RG, R1SA & 20 , RSIGMA & 21 , R, RMD, RMV, RD, RV, RCPD & 22 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 23 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 24 , RCW, RCS & 25 , RLVTT, RLSTT, RLMLT, RTT, RATM & 26 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 27 , RALPD, RBETD, RGAMD 16 28 IMPLICIT NONE 17 29 !===================================================================== … … 24 36 25 37 include "chem.h" 26 include "YOMCST.h" 38 27 39 include "YOECUMF.h" 28 40 -
LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_spl.f90
r5271 r5274 15 15 USE iophy 16 16 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 17 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 18 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 19 , R_ecc, R_peri, R_incl & 20 , RA, RG, R1SA & 21 , RSIGMA & 22 , R, RMD, RMV, RD, RV, RCPD & 23 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 24 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 25 , RCW, RCS & 26 , RLVTT, RLSTT, RLMLT, RTT, RATM & 27 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 28 , RALPD, RBETD, RGAMD 17 29 IMPLICIT NONE 18 30 !===================================================================== … … 26 38 27 39 include "chem.h" 28 include "YOMCST.h" 40 29 41 include "YOECUMF.h" 30 42 -
LMDZ6/trunk/libf/phylmd/Dust/nightingale.f90
r5271 r5274 6 6 USE indice_sol_mod 7 7 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 8 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 9 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 10 , R_ecc, R_peri, R_incl & 11 , RA, RG, R1SA & 12 , RSIGMA & 13 , R, RMD, RMV, RD, RV, RCPD & 14 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 15 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 16 , RCW, RCS & 17 , RLVTT, RLSTT, RLMLT, RTT, RATM & 18 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 19 , RALPD, RBETD, RGAMD 8 20 IMPLICIT NONE 9 21 ! 10 22 11 INCLUDE "YOMCST.h" 23 12 24 ! 13 25 REAL :: u(klon,klev), v(klon,klev) -
LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90
r5271 r5274 397 397 398 398 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 399 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 400 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 401 , R_ecc, R_peri, R_incl & 402 , RA, RG, R1SA & 403 , RSIGMA & 404 , R, RMD, RMV, RD, RV, RCPD & 405 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 406 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 407 , RCW, RCS & 408 , RLVTT, RLSTT, RLMLT, RTT, RATM & 409 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 410 , RALPD, RBETD, RGAMD 399 411 IMPLICIT NONE 400 412 … … 403 415 INCLUDE "alpale.h" 404 416 INCLUDE "compbl.h" 405 INCLUDE "YOMCST.h" 417 406 418 407 419 include "iniprint.h" -
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" -
LMDZ6/trunk/libf/phylmd/Dust/precuremission.f90
r5272 r5274 23 23 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 24 24 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 25 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 26 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 27 , R_ecc, R_peri, R_incl & 28 , RA, RG, R1SA & 29 , RSIGMA & 30 , R, RMD, RMV, RD, RV, RCPD & 31 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 32 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 33 , RCW, RCS & 34 , RLVTT, RLSTT, RLMLT, RTT, RATM & 35 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 36 , RALPD, RBETD, RGAMD 25 37 IMPLICIT NONE 26 38 … … 28 40 INCLUDE "chem.h" 29 41 INCLUDE "chem_spla.h" 30 INCLUDE "YOMCST.h" 42 31 43 32 44 -
LMDZ6/trunk/libf/phylmd/Dust/seasalt.f90
r5271 r5274 6 6 USE dimphy 7 7 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 8 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 9 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 10 , R_ecc, R_peri, R_incl & 11 , RA, RG, R1SA & 12 , RSIGMA & 13 , R, RMD, RMV, RD, RV, RCPD & 14 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 15 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 16 , RCW, RCS & 17 , RLVTT, RLSTT, RLMLT, RTT, RATM & 18 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 19 , RALPD, RBETD, RGAMD 8 20 IMPLICIT NONE 9 21 ! … … 11 23 INCLUDE "chem.h" 12 24 INCLUDE "chem_spla.h" 13 INCLUDE "YOMCST.h" 25 14 26 INCLUDE "YOECUMF.h" 15 27 ! -
LMDZ6/trunk/libf/phylmd/Dust/sediment_mod.f90
r5271 r5274 11 11 USE infotrac 12 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 14 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 15 , R_ecc, R_peri, R_incl & 16 , RA, RG, R1SA & 17 , RSIGMA & 18 , R, RMD, RMV, RD, RV, RCPD & 19 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 20 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 21 , RCW, RCS & 22 , RLVTT, RLSTT, RLMLT, RTT, RATM & 23 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 24 , RALPD, RBETD, RGAMD 13 25 IMPLICIT NONE 14 26 ! … … 16 28 INCLUDE "chem.h" 17 29 ! INCLUDE "dimphy.h" 18 INCLUDE "YOMCST.h" 30 19 31 INCLUDE "YOECUMF.h" 20 32 ! -
LMDZ6/trunk/libf/phylmd/Dust/trconvect.f90
r5272 r5274 11 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 12 12 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 13 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 14 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 15 , R_ecc, R_peri, R_incl & 16 , RA, RG, R1SA & 17 , RSIGMA & 18 , R, RMD, RMV, RD, RV, RCPD & 19 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 20 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 21 , RCW, RCS & 22 , RLVTT, RLSTT, RLMLT, RTT, RATM & 23 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 24 , RALPD, RBETD, RGAMD 13 25 IMPLICIT NONE 14 26 15 27 16 28 INCLUDE "chem.h" 17 INCLUDE "YOMCST.h" 29 18 30 19 31
Note: See TracChangeset
for help on using the changeset viewer.