Changeset 5271 for LMDZ6/trunk/libf/dyn3d_common/interpre.f90
- Timestamp:
- Oct 24, 2024, 4:25:39 PM (26 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d_common/interpre.f90
r5246 r5271 9 9 USE comvert_mod, ONLY: ap, bp 10 10 11 implicit none 11 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 12 implicit none 12 13 13 include "dimensions.h" 14 14 15 include "paramet.h" 15 16 include "comdissip.h" … … 41 42 42 43 ! CALCUL DE LA PRESSION DE SURFACE 43 ! Les coefficients ap et bp sont pass és en common44 ! Calcul de la pression au sol en mb optimis ée pour44 ! Les coefficients ap et bp sont pass�s en common 45 ! Calcul de la pression au sol en mb optimis�e pour 45 46 ! la vectorialisation 46 47 … … 67 68 ! RECONSTRUCTION DES CHAMPS CONTRAVARIANTS 68 69 ! Le programme ppm3d travaille avec les composantes 69 ! de vitesse et pas les flux, on doit donc passer de l'un àl'autre70 ! Dans le m ême temps, on fait le changement d'orientation du vent en v70 ! de vitesse et pas les flux, on doit donc passer de l'un � l'autre 71 ! Dans le m�me temps, on fait le changement d'orientation du vent en v 71 72 do l=1,llm 72 73 do j=1,jjm … … 99 100 100 101 ! INVERSION DES NIVEAUX 101 ! le programme ppm3d travaille avec une 3 ème coordonnée inversée par rapport102 ! le programme ppm3d travaille avec une 3�me coordonn�e invers�e par rapport 102 103 ! de celle du LMDZ: z=1<=>niveau max, z=llm+1<=>surface 103 ! On passe donc des niveaux du LMDZ àceux de Lin104 ! On passe donc des niveaux du LMDZ � ceux de Lin 104 105 105 106 do l=1,llm+1
Note: See TracChangeset
for help on using the changeset viewer.