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

Annotation of /trunk/phylmd/yoethf.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 38 - (hide annotations)
Thu Jan 6 17:52:19 2011 UTC (13 years, 4 months ago) by guez
Original Path: trunk/libf/phylmd/yoethf.f90
File size: 799 byte(s) 
Extracted ASCII art from "inigeom" into a separate text file in the
documentation.

"test_disvert" now creates a separate file for layer thicknesses.

Moved variables from module "yomcst" to module "suphec_m" because this
is where those variables are defined. Kept in "yomcst" only parameters
of Earth orbit. Gave the attribute "parameter" to some variables of
module "suphec_m".

Variables of module "yoethf" were defined in procedure "suphec". Moved
these definitions to a new procedure "yoethf" in module "yoethf_m".
1 guez 38 module yoethf_m
2 guez 3
3 guez 37 ! From phylmd/yoethf.inc,v 1.1.1.1 2004/05/19 12:53:09
4 guez 38 ! Derived constants specific to ECMWF thermodynamics
5 guez 3
6     implicit none
7    
8 guez 38 ! Constants used for computation of saturation mixing ratio over
9     ! liquid water (r_les) or ice (r_ies):
10     REAL R2ES, R5LES, R5IES
11     real, parameter:: R3LES = 17.269, R3IES = 21.875, R4LES = 35.86, R4IES = 7.66
12 guez 3
13 guez 38 REAL RVTMP2
14     real RHOH2O ! density of liquid water
15 guez 3
16     save
17    
18 guez 38 contains
19    
20     subroutine yoethf
21    
22     ! Calcul des constantes pour les fonctions thermodynamiques
23    
24     use SUPHEC_M, only: ratm, rcpd, rcpv, rd, restt, rtt, rv
25    
26     !-----------------------------------------
27    
28     RVTMP2=RCPV/RCPD-1.
29     RHOH2O=RATM/100.
30     R2ES=RESTT*RD/RV
31     R5LES=R3LES*(RTT-R4LES)
32     R5IES=R3IES*(RTT-R4IES)
33    
34     end subroutine yoethf
35    
36     end module yoethf_m
  ViewVC Help
Powered by ViewVC 1.1.21