/[lmdze]/trunk/phylmd/yoethf.f
ViewVC logotype

Contents of /trunk/phylmd/yoethf.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 266 - (show annotations)
Thu Apr 19 17:54:55 2018 UTC (6 years ago) by guez
File size: 706 byte(s)
Define macros of the preprocessor CPP_IIM, CPP_JJM, CPP_LLM so we can
control the resolution from the compilation command, and automate
compilation for several resolutions.

In module yoethf_m, transform variables into named constants. So we do
not need procedure yoethf any longer.

Bug fix in program test_inter_barxy, missing calls to fyhyp and fxhyp,
and definition of rlatu.

Remove variable iecri of module conf_gcm_m. The files dyn_hist*.nc are
written every time step. We are simplifying the output system, pending
replacement by a whole new system.

Modify possible value of vert_sampling from "param" to
"strato_custom", following LMDZ. Default values of corresponding
namelist variables are now the values used for LMDZ CMIP6.

1 module yoethf_m
2
3 ! From phylmd/yoethf.inc, version 1.1.1.1 2004/05/19 12:53:09
4 ! Derived constants specific to ECMWF thermodynamics
5
6 use SUPHEC_M, only: ratm, rcpd, rcpv, rd, restt, rtt, rv
7
8 implicit none
9
10 ! Constants used for computation of saturation mixing ratio over
11 ! liquid water (r.les) or ice (r.ies):
12 real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66
13 real, parameter:: R5LES=R3LES*(RTT-R4LES)
14 real, parameter:: R5IES=R3IES*(RTT-R4IES)
15
16 real, parameter:: RVTMP2=RCPV/RCPD-1.
17 real, parameter:: RHOH2O=RATM/100. ! density of liquid water
18 real, parameter:: R2ES = RESTT * RD / RV
19
20 private ratm, rcpd, rcpv, rd, restt, rtt, rv
21
22 end module yoethf_m

  ViewVC Help
Powered by ViewVC 1.1.21