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
RevLine 
[3]1!
[97]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)
[3]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:
[101]12      REAL R_ecc, R_peri, R_incl
[3]13! A1.2 Geoide
14      REAL RA,RG,R1SA
15! A1.3 Radiation
[101]16!     REAL RSIGMA,RI0
[3]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)
[1017]22!      real cpdet
23!      external cpdet
[3]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!
[97]32      COMMON/YOMCST/RPI ,RCLUM, RHPLA, RKBOL, RNAVO ,RDAY  ,REA         &
[101]33     & ,REPSM ,RSIYEA,RSIDAY,ROMEGA , R_ecc, R_peri, R_incl             &
[97]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.