Changeset 4739

Timestamp:

Oct 26, 2023, 12:28:15 AM (7 months ago)

Author:

fhourdin

Message:

Initialisation pour les ratqs de Louis (en 1D)

File:

• LMDZ6/trunk/libf/phylmd/lmdz_ratqs_ini.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/lmdz_ratqs_ini.F90

@@ -67 +67 @@
 CALL getin_p('tau_cumul', tau_cumul)
 CALL getin_p('a_ratqs_wake', a_ratqs_wake) 
-CALL getin_p('a_ratqs_cv', a_ratqs_cv)         
-do k=1,klev
-  do i=1,klon
-   povariance(i,k) = 0.00001
-   var_conv(i,k) = 0.
-  enddo
-enddo
+CALL getin_p('a_ratqs_cv', a_ratqs_cv)
+
+!--------------------------------------------------------
+! Initialisation des variances pour la paramétrisation
+! pronostique des variances de Louis.
+! Ne marche pour le moment qu'en 1D en forcant une 
+! initialisation des variances à une valeur constante.
+! A terme la variance doit devenir une variable d'etat
+! passee en argument
+!--------------------------------------------------------
+
+if (klon.eq.1) then
+    do k=1,klev
+      do i=1,klon 
+          povariance(i,k) = 0.0000001
+          var_conv(i,k) = 0.
+      enddo
+    enddo
+else
+    stop 'conserver la variance dans les restarts'
+endif
+!--------------------------------------------------------
 
  RETURN