Changeset 5274 for LMDZ6/trunk/libf/phylmd/orografi_strato.f90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (9 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/orografi_strato.f90
r5268 r5274 3 3 pustr, pvstr, d_t, d_u, d_v) 4 4 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 USE dimphy 6 18 IMPLICIT NONE … … 62 74 63 75 ! ====================================================================== 64 include "YOMCST.h"65 76 include "YOEGWD.h" 66 77 … … 159 170 , pulow, pvlow, pvom, pvol, pte) 160 171 172 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 173 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 174 , R_ecc, R_peri, R_incl & 175 , RA, RG, R1SA & 176 , RSIGMA & 177 , R, RMD, RMV, RD, RV, RCPD & 178 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 179 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 180 , RCW, RCS & 181 , RLVTT, RLSTT, RLMLT, RTT, RATM & 182 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 183 , RALPD, RBETD, RGAMD 161 184 USE dimphy 162 185 IMPLICIT NONE … … 239 262 240 263 241 include "YOMCST.h"242 264 include "YOEGWD.h" 243 265 … … 544 566 ! ----------------------------------------------------------------------- 545 567 USE dimphy 546 IMPLICIT NONE 547 548 549 include "YOMCST.h" 568 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 569 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 570 , R_ecc, R_peri, R_incl & 571 , RA, RG, R1SA & 572 , RSIGMA & 573 , R, RMD, RMV, RD, RV, RCPD & 574 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 575 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 576 , RCW, RCS & 577 , RLVTT, RLSTT, RLMLT, RTT, RATM & 578 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 579 , RALPD, RBETD, RGAMD 580 IMPLICIT NONE 581 582 583 550 584 include "YOEGWD.h" 551 585 … … 997 1031 ! ----------------------------------------------------------------------- 998 1032 USE dimphy 999 IMPLICIT NONE 1000 1001 include "YOMCST.h" 1033 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1034 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1035 , R_ecc, R_peri, R_incl & 1036 , RA, RG, R1SA & 1037 , RSIGMA & 1038 , R, RMD, RMV, RD, RV, RCPD & 1039 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 1040 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 1041 , RCW, RCS & 1042 , RLVTT, RLSTT, RLMLT, RTT, RATM & 1043 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1044 , RALPD, RBETD, RGAMD 1045 IMPLICIT NONE 1046 1047 1002 1048 include "YOEGWD.h" 1003 1049 … … 1114 1160 1115 1161 USE dimphy 1116 IMPLICIT NONE 1117 1118 include "YOMCST.h" 1162 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1163 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1164 , R_ecc, R_peri, R_incl & 1165 , RA, RG, R1SA & 1166 , RSIGMA & 1167 , R, RMD, RMV, RD, RV, RCPD & 1168 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 1169 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 1170 , RCW, RCS & 1171 , RLVTT, RLSTT, RLMLT, RTT, RATM & 1172 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1173 , RALPD, RBETD, RGAMD 1174 IMPLICIT NONE 1175 1176 1119 1177 include "YOEGWD.h" 1120 1178 … … 1290 1348 pvlow, pustr, pvstr, d_t, d_u, d_v) 1291 1349 1350 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1351 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1352 , R_ecc, R_peri, R_incl & 1353 , RA, RG, R1SA & 1354 , RSIGMA & 1355 , R, RMD, RMV, RD, RV, RCPD & 1356 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 1357 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 1358 , RCW, RCS & 1359 , RLVTT, RLSTT, RLMLT, RTT, RATM & 1360 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1361 , RALPD, RBETD, RGAMD 1292 1362 USE dimphy 1293 1363 IMPLICIT NONE … … 1350 1420 ! ====================================================================== 1351 1421 1352 include "YOMCST.h"1353 1422 include "YOEGWD.h" 1354 1423 … … 1505 1574 1506 1575 USE dimphy 1507 IMPLICIT NONE 1508 1509 1510 include "YOMCST.h" 1576 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1577 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1578 , R_ecc, R_peri, R_incl & 1579 , RA, RG, R1SA & 1580 , RSIGMA & 1581 , R, RMD, RMV, RD, RV, RCPD & 1582 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 1583 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 1584 , RCW, RCS & 1585 , RLVTT, RLSTT, RLMLT, RTT, RATM & 1586 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1587 , RALPD, RBETD, RGAMD 1588 IMPLICIT NONE 1589 1590 1591 1511 1592 include "YOEGWD.h" 1512 1593 ! -----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.