Changeset 4812 for LMDZ6/trunk/libf/phylmd/lmdz_ratqs_ini.F90
- Timestamp:
- Feb 9, 2024, 9:38:16 AM (7 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_ratqs_ini.F90
r4740 r4812 58 58 59 59 60 tau_var = 700. ! temps de relaxation de la variabilit épour les thermiques60 tau_var = 700. ! temps de relaxation de la variabilit?? pour les thermiques 61 61 fac_tau = 2. 62 62 tau_cumul = 1000 63 a_ratqs_wake = 3. ! param ètre pilotant l'importance du terme dépendant des poches froides63 a_ratqs_wake = 3. ! param??tre pilotant l'importance du terme d??pendant des poches froides 64 64 a_ratqs_cv = 1. 65 65 CALL getin_p('tau_var', tau_var) … … 70 70 71 71 !-------------------------------------------------------- 72 ! Initialisation des variances pour la param étrisation72 ! Initialisation des variances pour la param??trisation 73 73 ! pronostique des variances de Louis. 74 74 ! Ne marche pour le moment qu'en 1D en forcant une 75 ! initialisation des variances àune valeur constante.75 ! initialisation des variances ?? une valeur constante. 76 76 ! A terme la variance doit devenir une variable d'etat 77 77 ! passee en argument … … 81 81 do k=1,klev 82 82 do i=1,klon 83 povariance(i,k) = 0.000000 184 var_conv(i,k) = 0. 83 povariance(i,k) = 0.00000000001 84 var_conv(i,k) = 0.00000000001 85 85 enddo 86 86 enddo
Note: See TracChangeset
for help on using the changeset viewer.