/[lmdze]/trunk/libf/phylmd/YOECUMF.f90
ViewVC logotype

Contents of /trunk/libf/phylmd/YOECUMF.f90

Parent Directory Parent Directory | Revision Log Revision Log


Revision 10 - (show annotations)
Fri Apr 18 14:45:53 2008 UTC (16 years ago) by guez
File size: 1526 byte(s)
Added NetCDF directory "/home/guez/include" in "g95.mk" and
"nag_tools.mk".

Added some "intent" attributes in "PVtheta", "advtrac", "caladvtrac",
"calfis", "diagedyn", "dissip", "vlspltqs", "aeropt", "ajsec",
"calltherm", "clmain", "cltrac", "cltracrn", "concvl", "conema3",
"conflx", "fisrtilp", "newmicro", "nuage", "diagcld1", "diagcld2",
"drag_noro", "lift_noro", "SUGWD", "physiq", "phytrac", "radlwsw", "thermcell".

Removed the case "ierr == 0" in "abort_gcm"; moved call to "histclo"
and messages for end of run from "abort_gcm" to "gcm"; replaced call
to "abort_gcm" in "leapfrog" by exit from outer loop.

In "calfis": removed argument "pp" and variable "unskap"; changed
"pksurcp" from scalar to rank 2; use "pressure_var"; rewrote
computation of "zplev", "zplay", "ztfi", "pcvgt" using "dyn_phy";
added computation of "pls".

Removed unused variable in "dynredem0".

In "exner_hyb": changed "dellta" from scalar to rank 1; replaced call
to "ssum" by call to "sum"; removed variables "xpn" and "xps";
replaced some loops by array expressions.

In "leapfrog": use "pressure_var"; deleted variables "p", "longcles".

Converted common blocks "YOECUMF", "YOEGWD" to modules.

Removed argument "pplay" in "cvltr", "diagetpq", "nflxtr".

Created module "raddimlw" from include file "raddimlw.h".

Corrected call to "new_unit" in "test_disvert".

1 module yoecumf
2
3 ! From phylmd/YOECUMF.h,v 1.1.1.1 2004/05/19 12:53:07
4
5 ! PARAMETERS FOR CUMULUS MASSFLUX SCHEME
6
7 implicit none
8
9 LOGICAL LMFPEN,LMFSCV,LMFMID,LMFDD,LMFDUDV
10 REAL ENTRPEN, ENTRSCV, ENTRMID, ENTRDD
11 REAL CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, CPRCON
12
13 ! M.TIEDTKE E. C. M. W. F. 18/1/89
14 !
15 ! NAME TYPE PURPOSE
16 ! ---- ---- -------
17 !
18 ! LMFPEN LOGICAL TRUE IF PENETRATIVE CONVECTION IS SWITCHED ON
19 ! LMFSCV LOGICAL TRUE IF SHALLOW CONVECTION IS SWITCHED ON
20 ! LMFMID LOGICAL TRUE IF MIDLEVEL CONVECTION IS SWITCHED ON
21 ! LMFDD LOGICAL TRUE IF CUMULUS DOWNDRAFT IS SWITCHED ON
22 ! LMFDUDV LOGICAL TRUE IF CUMULUS FRICTION IS SWITCHED ON
23 ! ENTRPEN REAL ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
24 ! ENTRSCV REAL ENTRAINMENT RATE FOR SHALLOW CONVECTION
25 ! ENTRMID REAL ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
26 ! ENTRDD REAL ENTRAINMENT RATE FOR CUMULUS DOWNDRAFTS
27 ! CMFCTOP REAL RELAT. CLOUD MASSFLUX AT LEVEL ABOVE NONBUOYANC
28 ! CMFCMAX REAL MAXIMUM MASSFLUX VALUE ALLOWED FOR
29 ! CMFCMIN REAL MINIMUM MASSFLUX VALUE (FOR SAFETY)
30 ! CMFDEPS REAL FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
31 ! RHCDD REAL RELATIVE SATURATION IN DOWNDRAFTS
32 ! CPRCON REAL COEFFICIENTS FOR DETERMINING CONVERSION
33 ! FROM CLOUD WATER TO RAIN
34
35 end module yoecumf

Properties

Name Value
svn:eol-style native

  ViewVC Help
Powered by ViewVC 1.1.21