Changeset 43 for LMDZ.3.3/trunk/libf


Ignore:
Timestamp:
Feb 9, 2000, 11:28:54 AM (25 years ago)
Author:
lmdz
Message:

Ajustement de parametres L.Li
LF

Location:
LMDZ.3.3/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/trunk/libf/phylmd/fisrtilp.F

    r23 r43  
    3939      PARAMETER (ct=1./1800.)
    4040      REAL cl ! seuil de precipitation
    41       PARAMETER (cl=2.0e-4)
     41      PARAMETER (cl=2.6e-4)
     42ccc      PARAMETER (cl=2.3e-4)
     43ccc      PARAMETER (cl=2.0e-4)
    4244      INTEGER ninter ! sous-intervals pour la precipitation
    4345      PARAMETER (ninter=5)
     
    8082#include "YOETHF.h"
    8183#include "FCTTRE.h"
    82 CCC      fallv (zzz) = 3.29/3.0 * ((zzz)**0.
    83        fallv (zzz) = 3.29 * ((zzz)**0.16)
     84      fallv (zzz) = 3.29/2.0 * ((zzz)**0.16)
     85ccc      fallv (zzz) = 3.29/3.0 * ((zzz)**0.16)
     86ccc      fallv (zzz) = 3.29 * ((zzz)**0.16)
    8487c
    8588      DATA appel1er /.TRUE./
     
    214217            zx = zx * zx * zx
    215218            ratqs = zx * (rat_max-rat_min) + rat_min
    216             IF (.NOT.calcrat) ratqs=0.2
     219            IF (.NOT.calcrat) ratqs=0.05
     220ccc            IF (.NOT.calcrat) ratqs=0.2
    217221c
    218222            zdelq = ratqs * zq(i)
  • LMDZ.3.3/trunk/libf/phylmd/fisrtilp_tr.F

    r27 r43  
    5656      PARAMETER (ct=1./1800.)
    5757      REAL cl ! seuil de precipitation
    58       PARAMETER (cl=2.0e-4)
     58      PARAMETER (cl=2.6e-4)
     59ccc      PARAMETER (cl=2.3e-4)
     60ccc      PARAMETER (cl=2.0e-4)
    5961      INTEGER ninter ! sous-intervals pour la precipitation
    6062      PARAMETER (ninter=5)
     
    6567      LOGICAL calcrat ! calculer ratqs au lieu de fixer sa valeur
    6668      REAL ratqs ! determine la largeur de distribution de vapeur
    67       PARAMETER (calcrat=.FALSE.)
     69      PARAMETER (calcrat=.TRUE.)
    6870      REAL zx_min, rat_max
    6971      PARAMETER (zx_min=1.0, rat_max=0.01)
     
    114116#include "YOETHF.h"
    115117#include "FCTTRE.h"
    116       fallv (zzz) = 3.29 * ((zzz)**0.16)
     118      fallv (zzz) = 3.29/2.0 * ((zzz)**0.16)
     119ccc      fallv (zzz) = 3.29/3.0 * ((zzz)**0.16)
     120ccc      fallv (zzz) = 3.29 * ((zzz)**0.16)
    117121c
    118122      DATA appel1er /.TRUE./
     
    282286            zx = zx * zx * zx
    283287            ratqs = zx * (rat_max-rat_min) + rat_min
    284             IF (.NOT.calcrat) ratqs=0.2
     288            IF (.NOT.calcrat) ratqs=0.05
    285289c
    286290            zdelq = ratqs * zq(i)
Note: See TracChangeset for help on using the changeset viewer.