Changeset 5274 for LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (21 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90
r5273 r5274 26 26 & uncompress_ilp_zone 27 27 #endif 28 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 29 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 30 , R_ecc, R_peri, R_incl & 31 , RA, RG, R1SA & 32 , RSIGMA & 33 , R, RMD, RMV, RD, RV, RCPD & 34 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 35 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 36 , RCW, RCS & 37 , RLVTT, RLSTT, RLMLT, RTT, RATM & 38 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 39 , RALPD, RBETD, RGAMD 28 40 implicit none 29 41 30 INCLUDE "YOMCST.h" 42 31 43 32 44 ! inputs … … 12969 12981 USE isotrac_mod, ONLY: izone_cont,index_zone,index_iso 12970 12982 #endif 12971 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12983 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 12984 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 12985 , R_ecc, R_peri, R_incl & 12986 , RA, RG, R1SA & 12987 , RSIGMA & 12988 , R, RMD, RMV, RD, RV, RCPD & 12989 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 12990 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 12991 , RCW, RCS & 12992 , RLVTT, RLSTT, RLMLT, RTT, RATM & 12993 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 12994 , RALPD, RBETD, RGAMD 12995 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12972 12996 implicit none 12973 12997 … … 12978 13002 INCLUDE "YOETHF.h" 12979 13003 INCLUDE "FCTTRE.h" 12980 INCLUDE "YOMCST.h"12981 13004 ! 12982 13005 !INCLUDE "paramet.h" … … 13542 13565 & bassin_map 13543 13566 #endif 13544 implicit none 13567 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 13568 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 13569 , R_ecc, R_peri, R_incl & 13570 , RA, RG, R1SA & 13571 , RSIGMA & 13572 , R, RMD, RMV, RD, RV, RCPD & 13573 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 13574 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 13575 , RCW, RCS & 13576 , RLVTT, RLSTT, RLMLT, RTT, RATM & 13577 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 13578 , RALPD, RBETD, RGAMD 13579 implicit none 13545 13580 13546 13581 INCLUDE "YOETHF.h" 13547 13582 INCLUDE "FCTTRE.h" 13548 INCLUDE "YOMCST.h" 13583 13549 13584 13550 13585 ! inputs … … 14460 14495 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 14461 14496 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 14497 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 14498 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 14499 , R_ecc, R_peri, R_incl & 14500 , RA, RG, R1SA & 14501 , RSIGMA & 14502 , R, RMD, RMV, RD, RV, RCPD & 14503 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 14504 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 14505 , RCW, RCS & 14506 , RLVTT, RLSTT, RLMLT, RTT, RATM & 14507 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 14508 , RALPD, RBETD, RGAMD 14462 14509 implicit none 14463 14510 14464 14511 INCLUDE "YOETHF.h" 14465 14512 INCLUDE "FCTTRE.h" 14466 INCLUDE "YOMCST.h" 14513 14467 14514 ! 14468 14515 ! … … 16634 16681 USE isotopes_verif_mod 16635 16682 #endif 16636 implicit none 16637 16638 INCLUDE "YOMCST.h" 16683 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 16684 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 16685 , R_ecc, R_peri, R_incl & 16686 , RA, RG, R1SA & 16687 , RSIGMA & 16688 , R, RMD, RMV, RD, RV, RCPD & 16689 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 16690 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 16691 , RCW, RCS & 16692 , RLVTT, RLSTT, RLMLT, RTT, RATM & 16693 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 16694 , RALPD, RBETD, RGAMD 16695 implicit none 16696 16697 16639 16698 16640 16699 ! input … … 18233 18292 #endif 18234 18293 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 18294 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 18295 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 18296 , R_ecc, R_peri, R_incl & 18297 , RA, RG, R1SA & 18298 , RSIGMA & 18299 , R, RMD, RMV, RD, RV, RCPD & 18300 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 18301 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 18302 , RCW, RCS & 18303 , RLVTT, RLSTT, RLMLT, RTT, RATM & 18304 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 18305 , RALPD, RBETD, RGAMD 18235 18306 implicit none 18236 18307 18237 INCLUDE "YOMCST.h" 18308 18238 18309 18239 18310 ! pour avoir iim et jjm … … 18376 18447 USE isotopes_verif_mod 18377 18448 #endif 18378 implicit none 18379 18380 INCLUDE "YOMCST.h" 18449 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 18450 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 18451 , R_ecc, R_peri, R_incl & 18452 , RA, RG, R1SA & 18453 , RSIGMA & 18454 , R, RMD, RMV, RD, RV, RCPD & 18455 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 18456 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 18457 , RCW, RCS & 18458 , RLVTT, RLSTT, RLMLT, RTT, RATM & 18459 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 18460 , RALPD, RBETD, RGAMD 18461 implicit none 18462 18463 18381 18464 18382 18465 ! Arguments
Note: See TracChangeset
for help on using the changeset viewer.