source: trunk/LMDZ.VENUS/libf/phyvenus/YOMCST.h @ 1017

Last change on this file since 1017 was 1017, checked in by emillour, 11 years ago

Common dynamics: (and collateral adaptations in Venus physics)
Improved cpdet routines in and additional sponge mode:

  • Additionnal sponge mode (trigered with "callsponge" flag), in line with the one used in the Generic and Martian GCM. This sponge is called whenever there is a dissipation step.
  • Improvement of the cpdet routines : created routines tpot2t_glo_p and t2tpot_glo_p which handle fields on the whole dynamics (scaler) grid, which are more efficient than calling tpot2t_p or t2tpot_p with slabs of data (generated use of intermediate copies of these chunks of data at every call)
  • Turned cpdet.F into a module cpdet_mod.F90 (and correspondingly adapted all routines in the Venus physics).

EM
File size: 1.5 KB
Line 
1!
2!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
3!                 veillez  n'utiliser que des ! pour les commentaires
4!                 et  bien positionner les & des lignes de continuation
5!                 (les placer en colonne 6 et en colonne 73)
6!
7! A1.0 Fundamental constants
8      REAL RPI,RCLUM,RHPLA,RKBOL,RNAVO
9! A1.1 Astronomical constants
10      REAL RDAY,REA,REPSM,RSIYEA,RSIDAY,ROMEGA
11! A1.1.bis Constantes concernant l'orbite de la Terre:
12      REAL R_ecc, R_peri, R_incl
13! A1.2 Geoide
14      REAL RA,RG,R1SA
15! A1.3 Radiation
16!     REAL RSIGMA,RI0
17      REAL RSIGMA
18! A1.4 Thermodynamic gas phase
19      REAL R,RMD,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
20      REAL RKAPPA,RETV
21! ADAPTATION GCM POUR CP(T)
22!      real cpdet
23!      external cpdet
24! A1.5,6 Thermodynamic liquid,solid phases
25      REAL RCW,RCS
26! A1.7 Thermodynamic transition of phase
27      REAL RLVTT,RLSTT,RLMLT,RTT,RATM
28! A1.8 Curve of saturation
29      REAL RESTT,RALPW,RBETW,RGAMW,RALPS,RBETS,RGAMS
30      REAL RALPD,RBETD,RGAMD
31!
32      COMMON/YOMCST/RPI ,RCLUM, RHPLA, RKBOL, RNAVO ,RDAY  ,REA         &
33     & ,REPSM ,RSIYEA,RSIDAY,ROMEGA , R_ecc, R_peri, R_incl             &
34     & ,RA    ,RG ,R1SA                                                 &
35     & ,RSIGMA,R ,RMD   ,RMV   ,RD    ,RV    ,RCPD ,RCPV,RCVD           &
36     & ,RCVV  ,RKAPPA,RETV ,RCW   ,RCS ,RLVTT ,RLSTT ,RLMLT ,RTT ,RATM  &
37     & ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS ,RALPD ,RBETD   &
38     & ,RGAMD
Note: See TracBrowser for help on using the repository browser.