- Timestamp:
- Oct 26, 2023, 12:28:15 AM (14 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_ratqs_ini.F90
r4613 r4739 67 67 CALL getin_p('tau_cumul', tau_cumul) 68 68 CALL getin_p('a_ratqs_wake', a_ratqs_wake) 69 CALL getin_p('a_ratqs_cv', a_ratqs_cv) 70 do k=1,klev 71 do i=1,klon 72 povariance(i,k) = 0.00001 73 var_conv(i,k) = 0. 74 enddo 75 enddo 69 CALL getin_p('a_ratqs_cv', a_ratqs_cv) 70 71 !-------------------------------------------------------- 72 ! Initialisation des variances pour la paramétrisation 73 ! pronostique des variances de Louis. 74 ! Ne marche pour le moment qu'en 1D en forcant une 75 ! initialisation des variances à une valeur constante. 76 ! A terme la variance doit devenir une variable d'etat 77 ! passee en argument 78 !-------------------------------------------------------- 79 80 if (klon.eq.1) then 81 do k=1,klev 82 do i=1,klon 83 povariance(i,k) = 0.0000001 84 var_conv(i,k) = 0. 85 enddo 86 enddo 87 else 88 stop 'conserver la variance dans les restarts' 89 endif 90 !-------------------------------------------------------- 76 91 77 92 RETURN
Note: See TracChangeset
for help on using the changeset viewer.