/[lmdze]/trunk/libf/dyn3d/comconst.f90
ViewVC logotype

Contents of /trunk/libf/dyn3d/comconst.f90

Parent Directory Parent Directory | Revision Log Revision Log

Revision 70 - (show annotations)
Mon Jun 24 15:39:52 2013 UTC (10 years, 11 months ago) by guez
File size: 717 byte(s) 
In procedure, "addfi" access directly the module variable "dtphys"
instead of going through an argument.

In "conflx", do not create a local variable for temperature with
reversed order of vertical levels. Instead, give an actual argument
with reversed order in "physiq".

Changed names of variables "rmd" and "rmv" from module "suphec_m" to
"md" and "mv".

In "hgardfou", print only the first temperature out of range found.
1 module comconst
2
3 use dimens_m, only: jjm
4 use nr_util, only: pi
5
6 implicit none
7
8 INTEGER im, jm, lllm, imp1
9 integer, parameter:: jmp1 = jjm + 1
10 integer lllmm1, lllmp1, lcl
11 REAL dtvr ! time step for dynamics (in s)
12 real, parameter:: daysec = 86400. ! number of seconds per day
13 REAL dtphys ! time step of integration
14 real, parameter:: rad = 6371229. ! radius of the Earth (in m)
15 real r
16 real, parameter:: cpp = 1004.70885 ! J K-1 kg-1
17 real, parameter:: kappa = 0.2857143
18 REAL cotot, unsim
19 real, parameter:: g = 9.8 ! acceleration of gravity (in m s-2)
20
21 real, parameter:: omeg = 2 * pi / daysec
22 ! angular speed of rotation of the Earth (in rad s-1)
23
24 private jjm, pi
25
26 end module comconst
  ViewVC Help
Powered by ViewVC 1.1.21