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

Timestamp:

Jul 21, 2024, 1:07:18 PM (2 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/dyn3d

Files:

• bilan_dyn.F (modified) (6 diffs)
• guide_mod.F90 (modified) (3 diffs)
• tetaleveli1j.F (modified) (2 diffs)
• tetaleveli1j1.F (modified) (2 diffs)
• top_bound.F (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d/bilan_dyn.F

@@ -26 +26 @@
 c====================================================================
 c
-c   Sous-programme consacre � des diagnostics dynamiques de base
+c   Sous-programme consacre à des diagnostics dynamiques de base
 c
 c 
@@ -89 +89 @@
       real ww
 
-c   variables dynamiques interm�diaires
+c   variables dynamiques intermédiaires
       REAL vcont(iip1,jjm,llm),ucont(iip1,jjp1,llm)
       REAL ang(iip1,jjp1,llm),unat(iip1,jjp1,llm)
@@ -97 +97 @@
       REAL bern(iip1,jjp1,llm)
 
-c   champ contenant les scalaires advect�s.
+c   champ contenant les scalaires advectés.
       real Q(iip1,jjp1,llm,nQ)
     
-c   champs cumul�s
+c   champs cumulés
       real ps_cum(iip1,jjp1)
       real masse_cum(iip1,jjp1,llm)
@@ -308 +308 @@
 c   ----------------------------
 
-c   �nergie cin�tique
+c   énergie cinétique
       ucont(:,:,:)=0
       CALL covcont(llm,ucov,vcov,ucont,vcont)
       CALL enercin(vcov,ucov,vcont,ucont,ecin)
 
-c   moment cin�tique
+c   moment cinétique
       do l=1,llm
          ang(:,:,l)=ucov(:,:,l)+constang(:,:)
@@ -373 +373 @@
       enddo
 
-c    flux m�ridien
+c    flux méridien
 c    -------------
       do iQ=1,nQ
@@ -440 +440 @@
  
 c=====================================================================
-c   Transport m�ridien
+c   Transport méridien
 c=====================================================================
 

LMDZ6/branches/Amaury_dev/libf/dyn3d/guide_mod.F90

@@ -99 +99 @@
     CALL getpar('guide_teta',.false.,guide_teta,'guidage de T par Teta')
 
-    CALL getpar('guide_add',.false.,guide_add,'for�age constant?')
+    CALL getpar('guide_add',.false.,guide_add,'forçage constant?')
     CALL getpar('guide_zon',.false.,guide_zon,'guidage moy zonale')
     if (guide_zon .and. abs(grossismx - 1.) > 0.01) &
@@ -121 +121 @@
 
 
-! Sauvegarde du for�age
+! Sauvegarde du forçage
     CALL getpar('guide_sav',.false.,guide_sav,'sauvegarde guidage')
     CALL getpar('iguide_sav',4,iguide_sav,'freq. sauvegarde guidage')
@@ -1719 +1719 @@
         call nf95_put_var(nid, varid_alpha_q, alpha_q)
 ! --------------------------------------------------------------------
-! Cr�ation des variables sauvegard�es
+! Création des variables sauvegardées
 ! --------------------------------------------------------------------
         ierr = nf90_redef(nid)

LMDZ6/branches/Amaury_dev/libf/dyn3d/tetaleveli1j.F

@@ -57 +57 @@
 c=====================================================================
       if (lnew) then
-c   on r�initialise les r�indicages et les poids
+c   on réinitialise les réindicages et les poids
 c=====================================================================
 
@@ -96 +96 @@
 c
 c ...   Modif . P. Le Van    ( 20/01/98) ....
-c       Modif Fr�d�ric Hourdin (3/01/02)
+c       Modif Frédéric Hourdin (3/01/02)
 
         IF(pgcm(i,lb(i))==0.OR.

LMDZ6/branches/Amaury_dev/libf/dyn3d/tetaleveli1j1.F

@@ -57 +57 @@
 c=====================================================================
       if (lnew) then
-c   on r�initialise les r�indicages et les poids
+c   on réinitialise les réindicages et les poids
 c=====================================================================
 
@@ -96 +96 @@
 c
 c ...   Modif . P. Le Van    ( 20/01/98) ....
-c       Modif Fr�d�ric Hourdin (3/01/02)
+c       Modif Frédéric Hourdin (3/01/02)
 
         IF(pgcm(i,lb(i))==0.OR.

LMDZ6/branches/Amaury_dev/libf/dyn3d/top_bound.F

@@ -27 +27 @@
 c   ------
 c
-c   Dissipation lin�aire (ex top_bound de la physique)
+c   Dissipation linéaire (ex top_bound de la physique)
 c
 c=======================================================================