Changeset 5274 for LMDZ6/trunk/libf/phylmdiso/cv_driver.F90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (18 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmdiso/cv_driver.F90
r4491 r5274 1231 1231 USE ioipsl_getin_p_mod, ONLY : getin_p 1232 1232 1233 IMPLICIT NONE 1233 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1234 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1235 , R_ecc, R_peri, R_incl & 1236 , RA, RG, R1SA & 1237 , RSIGMA & 1238 , R, RMD, RMV, RD, RV, RCPD & 1239 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 1240 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 1241 , RCW, RCS & 1242 , RLVTT, RLSTT, RLMLT, RTT, RATM & 1243 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1244 , RALPD, RBETD, RGAMD 1245 IMPLICIT NONE 1234 1246 1235 1247 ! Argument : iflag_ice_thermo : ice thermodynamics is taken into account if … … 1245 1257 ! 1246 1258 ! si icvflag_Tpa=0, alors la fraction de glace dans l'ascendance adiabatique est 1247 ! fonction de la temperature de l'environnement et la temperature de l'ascendance est 1248 ! calculee en deux iterations, une en supposant qu'il n'y a pas de glace et l'autre 1259 ! fonction de la temperature de l'environnement et la temperature de l'ascendance est 1260 ! calculee en deux iterations, une en supposant qu'il n'y a pas de glace et l'autre 1249 1261 ! en ajoutant la glace (ancien schema d'Arnaud Jam). 1250 1262 ! si icvflag_Tpa=1, alors la fraction de glace dans l'ascendance adiabatique est 1251 ! fonction de la temperature de l'environnement et la temperature de l'ascendance est 1263 ! fonction de la temperature de l'environnement et la temperature de l'ascendance est 1252 1264 ! calculee en une seule iteration. 1253 1265 ! si icvflag_Tpa=2, alors la fraction de glace dans l'ascendance adiabatique est 1254 ! fonction de la temperature de l'ascendance et la temperature de l'ascendance est 1266 ! fonction de la temperature de l'ascendance et la temperature de l'ascendance est 1255 1267 ! calculee en une seule iteration. 1256 icvflag_Tpa=0 1268 icvflag_Tpa=0 1257 1269 call getin_p('icvflag_Tpa', icvflag_Tpa) 1258 1270 … … 1262 1274 ! ================================================================== 1263 1275 SUBROUTINE cv_thermo(iflag_con) 1276 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 1277 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 1278 , R_ecc, R_peri, R_incl & 1279 , RA, RG, R1SA & 1280 , RSIGMA & 1281 , R, RMD, RMV, RD, RV, RCPD & 1282 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 1283 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 1284 , RCW, RCS & 1285 , RLVTT, RLSTT, RLMLT, RTT, RATM & 1286 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 1287 , RALPD, RBETD, RGAMD 1264 1288 IMPLICIT NONE 1265 1289 … … 1267 1291 ! Set thermodynamical constants for convectL 1268 1292 ! ------------------------------------------------------------- 1269 1270 include "YOMCST.h"1271 1293 include "cvthermo.h" 1272 1294
Note: See TracChangeset
for help on using the changeset viewer.