Parent Directory
| 
Revision Log
Module pressure_var is now only used in gcm. Created local variables pls and p3d in etat0, added argument p3d to regr_pr_o3. In leapfrog, moved computation of p3d and exner function immediately after integrd, for clarity (does not change the execution). Removed unused arguments: ntra, tra1 and tra of cv3_compress; ntra, tra and traent of cv3_mixing; ntra, ftra, ftra1 of cv3_uncompress; ntra, tra, trap of cv3_unsat; ntra, tra, trap, traent, ftra of cv3_yield; tra, tvp, pbase, bbase, dtvpdt1, dtvpdq1, dplcldt, dplcldr, ntra of concvl; ndp1, ntra, tra1 of cv_driver Removed argument d_tra and computation of d_tra in concvl. Removed argument ftra1 and computation of ftra1 in cv_driver. ftra1 was just set to 0 in cv_driver, associated to d_tra in concvl, and set again to zero in concvl.
| 1 | guez | 3 | ! |
| 2 | ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/cv_routines.F,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $ | ||
| 3 | ! | ||
| 4 | SUBROUTINE cv_param(nd) | ||
| 5 | guez | 52 | use cvparam |
| 6 | guez | 3 | implicit none |
| 7 | |||
| 8 | guez | 52 | !------------------------------------------------------------ |
| 9 | ! Set parameters for convectL | ||
| 10 | ! (includes microphysical parameters and parameters that | ||
| 11 | ! control the rate of approach to quasi-equilibrium) | ||
| 12 | !------------------------------------------------------------ | ||
| 13 | guez | 3 | |
| 14 | guez | 52 | ! *** ELCRIT IS THE AUTOCONVERSION THERSHOLD WATER CONTENT (gm/gm) *** |
| 15 | ! *** TLCRIT IS CRITICAL TEMPERATURE BELOW WHICH THE AUTO- *** | ||
| 16 | ! *** CONVERSION THRESHOLD IS ASSUMED TO BE ZERO *** | ||
| 17 | ! *** (THE AUTOCONVERSION THRESHOLD VARIES LINEARLY *** | ||
| 18 | ! *** BETWEEN 0 C AND TLCRIT) *** | ||
| 19 | ! *** ENTP IS THE COEFFICIENT OF MIXING IN THE ENTRAINMENT *** | ||
| 20 | ! *** FORMULATION *** | ||
| 21 | ! *** SIGD IS THE FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT *** | ||
| 22 | ! *** SIGS IS THE FRACTION OF PRECIPITATION FALLING OUTSIDE *** | ||
| 23 | ! *** OF CLOUD *** | ||
| 24 | ! *** OMTRAIN IS THE ASSUMED FALL SPEED (P/s) OF RAIN *** | ||
| 25 | ! *** OMTSNOW IS THE ASSUMED FALL SPEED (P/s) OF SNOW *** | ||
| 26 | ! *** COEFFR IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION *** | ||
| 27 | ! *** OF RAIN *** | ||
| 28 | ! *** COEFFS IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION *** | ||
| 29 | ! *** OF SNOW *** | ||
| 30 | ! *** CU IS THE COEFFICIENT GOVERNING CONVECTIVE MOMENTUM *** | ||
| 31 | ! *** TRANSPORT *** | ||
| 32 | ! *** DTMAX IS THE MAXIMUM NEGATIVE TEMPERATURE PERTURBATION *** | ||
| 33 | ! *** A LIFTED PARCEL IS ALLOWED TO HAVE BELOW ITS LFC *** | ||
| 34 | ! *** ALPHA AND DAMP ARE PARAMETERS THAT CONTROL THE RATE OF *** | ||
| 35 | ! *** APPROACH TO QUASI-EQUILIBRIUM *** | ||
| 36 | ! *** (THEIR STANDARD VALUES ARE 0.20 AND 0.1, RESPECTIVELY) *** | ||
| 37 | ! *** (DAMP MUST BE LESS THAN 1) *** | ||
| 38 | guez | 3 | |
| 39 | guez | 97 | integer, intent(in):: nd |
| 40 | guez | 3 | |
| 41 | guez | 52 | ! noff: integer limit for convection (nd-noff) |
| 42 | ! minorig: First level of convection | ||
| 43 | guez | 3 | |
| 44 | noff = 2 | ||
| 45 | minorig = 2 | ||
| 46 | |||
| 47 | nl=nd-noff | ||
| 48 | nlp=nl+1 | ||
| 49 | nlm=nl-1 | ||
| 50 | |||
| 51 | elcrit=0.0011 | ||
| 52 | tlcrit=-55.0 | ||
| 53 | entp=1.5 | ||
| 54 | sigs=0.12 | ||
| 55 | sigd=0.05 | ||
| 56 | omtrain=50.0 | ||
| 57 | omtsnow=5.5 | ||
| 58 | coeffr=1.0 | ||
| 59 | coeffs=0.8 | ||
| 60 | dtmax=0.9 | ||
| 61 | guez | 52 | ! |
| 62 | guez | 3 | cu=0.70 |
| 63 | guez | 52 | ! |
| 64 | guez | 3 | betad=10.0 |
| 65 | guez | 52 | ! |
| 66 | guez | 3 | damp=0.1 |
| 67 | alpha=0.2 | ||
| 68 | guez | 52 | ! |
| 69 | guez | 3 | delta=0.01 ! cld |
| 70 | guez | 52 | ! |
| 71 | guez | 3 | return |
| 72 | end |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |