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

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/dyn3d_common

Files:

• comdissnew.h (modified) (1 diff)
• disvert_noterre.F (modified) (4 diffs)
• interpre.F (modified) (3 diffs)
• ppm3d.F (modified) (2 diffs)
• traceurpole.F (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/comdissnew.h

@@ -5 +5 @@
 !  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
 !                 veillez à n'utiliser que des ! pour les commentaires
-!                 et à bien positionner les & des lignes de continuation 
+!                 et à bien positionner les & des lignes de continuation
 !                 (les placer en colonne 6 et en colonne 73)
 !

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/disvert_noterre.F

@@ -24 +24 @@
 c
 c=======================================================================
-c    Discretisation verticale en coordonn�e hybride (ou sigma)
+c    Discretisation verticale en coordonnée hybride (ou sigma)
 c
 c=======================================================================
@@ -208 +208 @@
 c     Calcul au milieu des couches :
 c     WARNING : le choix de placer le milieu des couches au niveau de
-c     pression interm�diaire est arbitraire et pourrait etre modifi�.
+c     pression intermédiaire est arbitraire et pourrait etre modifié.
 c     Le calcul du niveau pour la derniere couche 
 c     (on met la meme distance (en log pression)  entre P(llm)
 c     et P(llm -1) qu'entre P(llm-1) et P(llm-2) ) est
-c     Specifique.  Ce choix est sp�cifi� ici ET dans exner_milieu.F
+c     Specifique.  Ce choix est spécifié ici ET dans exner_milieu.F
 
       DO l = 1, llm-1
@@ -284 +284 @@
 c     L'objectif est de calculer newsig telle que
 c       (1 -pa/preff)*exp(1-1./newsig**2)+(pa/preff)*newsig = sig
-c     Cela ne se r�soud pas analytiquement: 
-c     => on r�soud par iterration bourrine 
+c     Cela ne se résoud pas analytiquement:
+c     => on résoud par iterration bourrine
 c     ----------------------------------------------
 c     Information  : where exp(1-1./x**2) become << x
@@ -320 +320 @@
               newsig=(X2+newsig)*0.5
           end if
-c         Test : on arete lorsque on approxime sig � moins de 0.01 m pr�s 
+c         Test : on arete lorsque on approxime sig à moins de 0.01 m près
 c         (en pseudo altitude) :
           IF(abs(10.*log(F))<1.E-5) goto 999

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/interpre.F

@@ -41 +41 @@
 
 c       CALCUL DE LA PRESSION DE SURFACE
-c       Les coefficients ap et bp sont pass�s en common 
-c       Calcul de la pression au sol en mb optimis�e pour 
+c       Les coefficients ap et bp sont passés en common
+c       Calcul de la pression au sol en mb optimisée pour
 c       la vectorialisation
                    
@@ -67 +67 @@
 c RECONSTRUCTION DES CHAMPS CONTRAVARIANTS
 c Le programme ppm3d travaille avec les composantes
-c de vitesse et pas les flux, on doit donc passer de l'un � l'autre
-c Dans le m�me temps, on fait le changement d'orientation du vent en v
+c de vitesse et pas les flux, on doit donc passer de l'un à l'autre
+c Dans le même temps, on fait le changement d'orientation du vent en v
       do l=1,llm
           do j=1,jjm
@@ -99 +99 @@
       
 c INVERSION DES NIVEAUX
-c le programme ppm3d travaille avec une 3�me coordonn�e invers�e par rapport
+c le programme ppm3d travaille avec une 3ème coordonnée inversée par rapport
 c de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface
-c On passe donc des niveaux du LMDZ � ceux de Lin
+c On passe donc des niveaux du LMDZ à ceux de Lin
      
       do l=1,llm+1

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/ppm3d.F

@@ -68 +68 @@
       implicit none
 
-c     rajout de d�clarations
+c     rajout de déclarations
 c      integer Jmax,kmax,ndt0,nstep,k,j,i,ic,l,js,jn,imh,iad,jad,krd
 c      integer iu,iiu,j2,jmr,js0,jt
@@ -769 +769 @@
       DO k=1,NLAY
       DO I=1,IMR
-c     j=1 c'est le p�le Sud, j=JNP c'est le p�le Nord
+c     j=1 c'est le pôle Sud, j=JNP c'est le pôle Nord
       Q(I,  2,k,IC) = Q(I,  1,k,IC)
       Q(I,JMR,k,IC) = Q(I,JNP,k,IC)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/traceurpole.F

@@ -28 +28 @@
 
     
-c On impose une seule valeur au pôle Sud j=jjm+1=jjp1       
+c On impose une seule valeur au pôle Sud j=jjm+1=jjp1
       sommemasses=0
       sommemqs=0