Changeset 5271 for LMDZ6/trunk/libf/dyn3d_common/interpre.f90

Timestamp:

Oct 24, 2024, 4:25:39 PM (26 hours ago)

Author:

abarral

Message:

Move dimensions.h into a module
Nb: doesn't compile yet

File:

• LMDZ6/trunk/libf/dyn3d_common/interpre.f90 (modified) (4 diffs)

LMDZ6/trunk/libf/dyn3d_common/interpre.f90

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