source: LMDZ6/branches/Ocean_skin/libf/phylmd/YOMCST.h @ 3429

Last change on this file since 3429 was 3429, checked in by lguez, 5 years ago

Create subdirectory Ocean_skin in libf. For now, Ocean_skin is under
control of git, not subversion.

Add variable eps_w to common YOMCST.

For now, continue to read ocean skin parameters from a namelist in
config_ocean_skin.

The parameterisation is called from procedure surf_ocean.

Add two prognostic variables for the parameterisation: dt_ns and
ds_ns. Add eight diagnostic variables: t_int, s_int, dter, dser, tkt,
tks, rf, taur. The ten variables are only defined on ocean surface,
elsewhere they are set to nf90_fill_real. In pbl_surface, we can
initialize the eight diagnostic variables to nf90_fill_real before the
loop on sub-surfaces, but we need to keep the old values of dt_ns and
ds_ns as input of the parameterisation so we set dt_ns and ds_ns to
nf90_fill_real after the call to surf_ocean. Define ten corresponding
compressed variables in pbl_surface. Define ten corresponding NetCDF
output variables in phys_output_ctrlout_mod.

In procedure pbl_surface_newfrac, for an appearing ocean sub-surface,
dt_ns and ds_ns are set to 0. In phyetat0, also set initial dt_ns and
ds_ns to 0 if they are not in start file.

In procedure surf_ocean, for now, we use a constant specific latent
heat of vaporization, as elsewhere in LMDZ, and a constant bulk
salinity.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.8 KB
Line 
1!
2! $Header$
3!
4!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
5!                 veillez à n'utiliser que des ! pour les commentaires
6!                 et à bien positionner les & des lignes de continuation
7!                 (les placer en colonne 6 et en colonne 73)
8!
9!
10! A1.0 Fundamental constants
11      REAL RPI,RCLUM,RHPLA,RKBOL,RNAVO
12! A1.1 Astronomical constants
13      REAL RDAY,REA,REPSM,RSIYEA,RSIDAY,ROMEGA
14! A1.1.bis Constantes concernant l'orbite de la Terre:
15      REAL R_ecc, R_peri, R_incl
16! A1.2 Geoide
17      REAL RA,RG,R1SA
18! A1.3 Radiation
19!     REAL RSIGMA,RI0
20      REAL RSIGMA
21! A1.4 Thermodynamic gas phase
22      REAL R,RMD,RMO3,RMCO2,RMC,RMV,RD,RV,RCPD,RCPV,RCVD,RCVV
23      REAL RKAPPA,RETV, eps_w
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                   &
33     &      ,RDAY  ,REA   ,REPSM ,RSIYEA,RSIDAY,ROMEGA                  &
34     &      ,R_ecc, R_peri, R_incl                                      &
35     &      ,RA    ,RG    ,R1SA                                         &
36     &      ,RSIGMA                                                     &
37     &      ,R     ,RMD   ,RMO3  ,RMCO2, RMC, RMV   ,RD    ,RV    ,RCPD &
38     &      ,RCPV  ,RCVD  ,RCVV  ,RKAPPA,RETV, eps_w                    &
39     &      ,RCW   ,RCS                                                 &
40     &      ,RLVTT ,RLSTT ,RLMLT ,RTT   ,RATM                           &
41     &      ,RESTT ,RALPW ,RBETW ,RGAMW ,RALPS ,RBETS ,RGAMS            &
42     &      ,RALPD ,RBETD ,RGAMD
43!    ------------------------------------------------------------------
44!$OMP THREADPRIVATE(/YOMCST/)
Note: See TracBrowser for help on using the repository browser.