Changeset 5093 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/bilan_dyn_loc.F

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)

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/bilan_dyn_loc.F (modified) (7 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/bilan_dyn_loc.F

@@ -30 +30 @@
 c====================================================================
 c
-c   Sous-programme consacre � des diagnostics dynamiques de base
+c   Sous-programme consacre à des diagnostics dynamiques de base
 c
 c 
@@ -88 +88 @@
       real ww
 
-c   variables dynamiques interm�diaires
+c   variables dynamiques intermédiaires
       REAL,SAVE,ALLOCATABLE :: vcont(:,:,:),ucont(:,:,:)
       REAL,SAVE,ALLOCATABLE :: ang(:,:,:),unat(:,:,:)
@@ -96 +96 @@
       REAL,SAVE,ALLOCATABLE :: bern(:,:,:)
 
-c   champ contenant les scalaires advect�s.
+c   champ contenant les scalaires advectés.
       real,SAVE,ALLOCATABLE :: Q(:,:,:,:)
     
-c   champs cumul�s
+c   champs cumulés
       real,SAVE,ALLOCATABLE ::  ps_cum(:,:)
       real,SAVE,ALLOCATABLE ::  masse_cum(:,:,:)
@@ -370 +370 @@
       jje=jj_end
     
-c   �nergie cin�tique
+c   énergie cinétique
 !      ucont(:,jjb:jje,:)=0
 
@@ -382 +382 @@
       CALL enercin_loc(vcov,ucov,vcont,ucont,ecin)
 
-c   moment cin�tique
+c   moment cinétique
 !$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
       do l=1,llm
@@ -490 +490 @@
       enddo
 
-c    flux m�ridien
+c    flux méridien
 c    -------------
       do iQ=1,nQ
@@ -642 +642 @@
 
 c=====================================================================
-c   Transport m�ridien
+c   Transport méridien
 c=====================================================================