Changeset 5093 for LMDZ6/branches/Amaury_dev/libf/phylmdiso

Timestamp:

Jul 21, 2024, 1:07:18 PM (4 months ago)

Author:

abarral

Message:

Use latest FCM source (2021.05.0) [Note: we still use the legacy FCM1 build system]
Correct UTF8 encoding of french chars

---

Compil OK (tested: oldrad/rrtm/ecrad, para/seq/1D)
Convergence (ref r5063) bench 33x OK oldrad orch2.0 (tested: para/seq)

Location:

LMDZ6/branches/Amaury_dev/libf/phylmdiso

Files:

• add_wake_tend.F90 (modified) (1 diff)
• lmdz_wake.F90 (modified) (11 diffs)
• phyaqua_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/add_wake_tend.F90

@@ -5 +5 @@
         )
 !===================================================================
-! Ajoute les tendances li�es aux diverses parametrisations physiques aux
+! Ajoute les tendances liées aux diverses parametrisations physiques aux
 ! variables d'etat des poches froides.
 !===================================================================

LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_wake.F90

@@ -127 +127 @@
   ! wdens_ref: initial number of wakes per unit area (3D) or per
   ! unit length (2D), at the beginning of each time step
-  ! Tgw    : 1 sur la p�riode de onde de gravit�
-  ! Cgw    : vitesse de propagation de onde de gravit�
+  ! Tgw    : 1 sur la période de onde de gravité
+  ! Cgw    : vitesse de propagation de onde de gravité
   ! LL     : distance entre 2 poches
 
   ! -------------------------------------------------------------------------
-  ! D�claration de variables
+  ! Déclaration de variables
   ! -------------------------------------------------------------------------
 
@@ -196 +196 @@
   ! -------------------
 
-  ! Variables � fixer
+  ! Variables à fixer
   INTEGER, SAVE                                         :: igout
   !$OMP THREADPRIVATE(igout)
@@ -383 +383 @@
   ! Configuration de coefgw,stark,wdens (22/02/06 by YU Jingmei)
 
-  ! coefgw : Coefficient pour les ondes de gravit�
+  ! coefgw : Coefficient pour les ondes de gravité
   ! stark : Coefficient k dans Cstar=k*sqrt(2*WAPE)
-  ! wdens : Densit� surfacique de poche froide
+  ! wdens : Densité surfacique de poche froide
   ! -------------------------------------------------------------------------
 
@@ -1088 +1088 @@
 
     ! cc nrlmd   Ajout d'un recalcul de wdens dans le cas d'un entrainement
-    ! n�gatif de ktop � kupper --------
-    ! cc           On calcule pour cela une densit� wdens0 pour laquelle on
+    ! négatif de ktop à kupper --------
+    ! cc           On calcule pour cela une densité wdens0 pour laquelle on
     ! aurait un entrainement nul ---
     !jyg<
@@ -1096 +1096 @@
     ! des descentes unsaturees. Nous faisons alors l'hypothese que la 
     ! convection profonde cree directement de nouvelles poches, sans passer 
-    ! par les thermiques. La nouvelle valeur de wdens est alors impos�e.
+    ! par les thermiques. La nouvelle valeur de wdens est alors imposée.
 
     DO i = 1, klon
@@ -1195 +1195 @@
       DO i = 1, klon
         IF (wk_adv(i)) THEN
-          ! cc nrlmd          Introduction du taux de mortalit� des poches et
+          ! cc nrlmd          Introduction du taux de mortalité des poches et
           ! test sur sigmaw_max=0.4
           ! cc         d_sigmaw(i) = gfl(i)*Cstar(i)*dtimesub
@@ -1308 +1308 @@
 
     ! c      DO i=1,klon
-    ! c        print*,'Pente entre 0 et kupper (r�f�rence)'
+    ! c        print*,'Pente entre 0 et kupper (référence)'
     ! c     $           ,omg(i,kupper(i)+1)/(pupper(i)-ph(i,1))
     ! c        print*,'Pente entre ktop et kupper'
@@ -1602 +1602 @@
 
 
-          ! Coefficient de r�partition
+          ! Coefficient de répartition
 
           crep(i, k) = crep_sol*(ph(i,kupper(i))-ph(i,k))/ &
@@ -1646 +1646 @@
 !
 
-          ! cc nrlmd          Prise en compte du taux de mortalit�
-          ! cc               D�finitions de entr, detr
+          ! cc nrlmd          Prise en compte du taux de mortalité
+          ! cc               Définitions de entr, detr
 !jyg<
 !!            detr(i, k) = 0.
@@ -1664 +1664 @@
 
 
-          ! ajout d'un effet onde de gravit� -Tgw(k)*deltatw(k) 03/02/06 YU
+          ! ajout d'un effet onde de gravité -Tgw(k)*deltatw(k) 03/02/06 YU
           ! Jingmei
 
@@ -2601 +2601 @@
         discrim = b*b - 4.*a*c
         ! print*, 'x, a, b, c, discrim', x, a, b, c, discrim
-        IF (a+b>=0.) THEN !! Condition suffisante pour la positivit� de ovap
+        IF (a+b>=0.) THEN !! Condition suffisante pour la positivité de ovap
           alpha1(i) = 1.
         ELSE

LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyaqua_mod.F90

@@ -963 +963 @@
       if (type_profil==20) then
       print*,'Profile SST 20'
-!     Méthode 13 "Qmax2K" plateau réel �|  l'Equateur augmenté +2K
+!     Méthode 13 "Qmax2K" plateau réel é|  l'Equateur augmenté +2K
 
       do j=1,klon
@@ -972 +972 @@
       if (type_profil==21) then
       print*,'Profile SST 21'
-!     Méthode 13 "Qmax2K" plateau réel �|  l'Equateur augmenté +2K
+!     Méthode 13 "Qmax2K" plateau réel é|  l'Equateur augmenté +2K
       do j=1,klon
         phy_sst(j,i)=252.+55.*(1-sin(rlatd(j))**2)