Changeset 5285 for LMDZ6/trunk/libf/phylmd/Dust
- Timestamp:
- Oct 28, 2024, 2:33:29 PM (5 weeks ago)
- Location:
- LMDZ6/trunk/libf/phylmd/Dust
- Files:
-
- 29 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/Dust/aeropt_spl.f90
r5274 r5285 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 USE yomcst_mod_h 25 14 IMPLICIT none 26 15 ! -
LMDZ6/trunk/libf/phylmd/Dust/bcscav_spl.f90
r5274 r5285 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 USE yomcst_mod_h 17 6 IMPLICIT NONE 18 7 !===================================================================== -
LMDZ6/trunk/libf/phylmd/Dust/bl_for_dms.f90
r5284 r5285 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 USE yomcst_mod_h 17 6 USE yoethf_mod_h 18 7 IMPLICIT NONE -
LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav.f90
r5274 r5285 9 9 USE infotrac 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 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 11 USE paramet_mod_h 12 USE yomcst_mod_h 25 13 IMPLICIT NONE 26 14 -
LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav_lsc.f90
r5274 r5285 9 9 USE infotrac 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 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 11 USE paramet_mod_h 12 USE yomcst_mod_h 25 13 IMPLICIT NONE 26 14 -
LMDZ6/trunk/libf/phylmd/Dust/checkmass.f90
r5274 r5285 2 2 USE dimphy 3 3 USE geometry_mod , ONLY:cell_area 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 USE yomcst_mod_h 16 5 IMPLICIT NONE 17 6 -
LMDZ6/trunk/libf/phylmd/Dust/cltrac_spl.f90
r5274 r5285 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 USE yomcst_mod_h 16 5 USE dimphy 17 6 USE dimensions_mod, ONLY: iim, jjm, llm, ndm -
LMDZ6/trunk/libf/phylmd/Dust/cm3_to_kg.f90
r5274 r5285 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 USE yomcst_mod_h 20 9 IMPLICIT NONE 21 10 ! -
LMDZ6/trunk/libf/phylmd/Dust/coarsemission.f90
r5274 r5285 32 32 ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb 33 33 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 34 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 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 34 USE paramet_mod_h 35 USE yomcst_mod_h 48 36 IMPLICIT NONE 49 37 -
LMDZ6/trunk/libf/phylmd/Dust/deposition.f90
r5274 r5285 11 11 12 12 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 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 13 USE paramet_mod_h 14 USE yomcst_mod_h 27 15 IMPLICIT NONE 28 16 -
LMDZ6/trunk/libf/phylmd/Dust/finemission.f90
r5274 r5285 16 16 ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb 17 17 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 18 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 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 18 USE paramet_mod_h 19 USE yomcst_mod_h 32 20 IMPLICIT NONE 33 21 -
LMDZ6/trunk/libf/phylmd/Dust/gastoparticle.f90
r5274 r5285 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 USE yomcst_mod_h 23 12 IMPLICIT NONE 24 13 ! -
LMDZ6/trunk/libf/phylmd/Dust/incloud_scav.f90
r5274 r5285 10 10 11 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 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 12 USE paramet_mod_h 13 USE yomcst_mod_h 26 14 IMPLICIT NONE 27 15 -
LMDZ6/trunk/libf/phylmd/Dust/incloud_scav_lsc.f90
r5274 r5285 10 10 11 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 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 12 USE paramet_mod_h 13 USE yomcst_mod_h 26 14 IMPLICIT NONE 27 15 -
LMDZ6/trunk/libf/phylmd/Dust/inscav_spl.f90
r5274 r5285 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 USE yomcst_mod_h 18 7 IMPLICIT NONE 19 8 !===================================================================== -
LMDZ6/trunk/libf/phylmd/Dust/kg_to_cm3.f90
r5274 r5285 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 USE yomcst_mod_h 18 7 IMPLICIT NONE 19 8 ! -
LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_orig.f90
r5274 r5285 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 USE yomcst_mod_h 28 17 IMPLICIT NONE 29 18 !===================================================================== -
LMDZ6/trunk/libf/phylmd/Dust/lsc_scav_spl.f90
r5274 r5285 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 USE yomcst_mod_h 29 18 IMPLICIT NONE 30 19 !===================================================================== -
LMDZ6/trunk/libf/phylmd/Dust/nightingale.f90
r5274 r5285 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 USE yomcst_mod_h 20 9 IMPLICIT NONE 21 10 ! -
LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90
r5284 r5285 395 395 396 396 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 397 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 398 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 399 , R_ecc, R_peri, R_incl & 400 , RA, RG, R1SA & 401 , RSIGMA & 402 , R, RMD, RMV, RD, RV, RCPD & 403 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 404 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 405 , RCW, RCS & 406 , RLVTT, RLSTT, RLMLT, RTT, RATM & 407 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 408 , RALPD, RBETD, RGAMD 397 USE yomcst_mod_h 409 398 USE clesphys_mod_h 410 399 USE iniprint_mod_h -
LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90
r5284 r5285 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 USE yomcst_mod_h 808 797 USE mod_grid_phy_lmdz 809 798 USE mod_phys_lmdz_para … … 820 809 mth_cur, phys_cal_update 821 810 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 822 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 823 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 811 USE paramet_mod_h 824 812 USE alpale_mod 825 813 USE yoethf_mod_h -
LMDZ6/trunk/libf/phylmd/Dust/precuremission.f90
r5274 r5285 21 21 ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb 22 22 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 23 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 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 23 USE paramet_mod_h 24 USE yomcst_mod_h 37 25 IMPLICIT NONE 38 26 -
LMDZ6/trunk/libf/phylmd/Dust/read_dust.f90
r5272 r5285 5 5 USE netcdf, ONLY: nf90_get_var, nf90_nowrite, nf90_open, nf90_inq_varid 6 6 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 7 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 8 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 7 USE paramet_mod_h 9 8 IMPLICIT NONE 10 9 ! -
LMDZ6/trunk/libf/phylmd/Dust/read_newemissions.f90
r5272 r5285 24 24 25 25 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 26 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 27 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 26 USE paramet_mod_h 28 27 IMPLICIT NONE 29 28 -
LMDZ6/trunk/libf/phylmd/Dust/read_surface.f90
r5272 r5285 12 12 USE netcdf, ONLY: nf90_inq_varid,nf90_noerr,nf90_get_var,nf90_nowrite,nf90_inq_varid,nf90_open 13 13 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 14 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 15 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14 USE paramet_mod_h 16 15 IMPLICIT NONE 17 16 -
LMDZ6/trunk/libf/phylmd/Dust/read_vent.f90
r5272 r5285 6 6 ! USE write_field_phy 7 7 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 8 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 9 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 8 USE paramet_mod_h 10 9 IMPLICIT NONE 11 10 -
LMDZ6/trunk/libf/phylmd/Dust/seasalt.f90
r5274 r5285 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 USE yomcst_mod_h 20 9 IMPLICIT NONE 21 10 ! -
LMDZ6/trunk/libf/phylmd/Dust/sediment_mod.f90
r5274 r5285 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 USE yomcst_mod_h 25 14 IMPLICIT NONE 26 15 ! -
LMDZ6/trunk/libf/phylmd/Dust/trconvect.f90
r5274 r5285 9 9 10 10 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 11 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 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 11 USE paramet_mod_h 12 USE yomcst_mod_h 25 13 IMPLICIT NONE 26 14
Note: See TracChangeset
for help on using the changeset viewer.