Changeset 5267 for LMDZ6/trunk/libf/dyn3d/bilan_dyn.F90

Timestamp:

Oct 23, 2024, 5:34:46 PM (2 days ago)

Author:

abarral

Message:

Remove CPP_IOIPSL cpp keys uses

File:

• LMDZ6/trunk/libf/dyn3d/bilan_dyn.F90 (modified) (7 diffs)

LMDZ6/trunk/libf/dyn3d/bilan_dyn.F90

@@ -10 +10 @@
   !             vQ..A=Cp T + L * ...
 
-#ifdef CPP_IOIPSL
   USE IOIPSL
-#endif
   USE comconst_mod, ONLY: pi, cpp
   USE comvert_mod, ONLY: presnivs
@@ -26 +24 @@
   !====================================================================
   !
-  !   Sous-programme consacre à des diagnostics dynamiques de base
+  !   Sous-programme consacre � des diagnostics dynamiques de base
   !
   !
@@ -89 +87 @@
   real :: ww
 
-  !   variables dynamiques intermédiaires
+  !   variables dynamiques interm�diaires
   REAL :: vcont(iip1,jjm,llm),ucont(iip1,jjp1,llm)
   REAL :: ang(iip1,jjp1,llm),unat(iip1,jjp1,llm)
@@ -97 +95 @@
   REAL :: bern(iip1,jjp1,llm)
 
-  !   champ contenant les scalaires advectés.
+  !   champ contenant les scalaires advect�s.
   real :: Q(iip1,jjp1,llm,nQ)
 
-  !   champs cumulés
+  !   champs cumul�s
   real :: ps_cum(iip1,jjp1)
   real :: masse_cum(iip1,jjp1,llm)
@@ -308 +306 @@
   !   ----------------------------
 
-  !   énergie cinétique
+  !   �nergie cin�tique
   ucont(:,:,:)=0
   CALL covcont(llm,ucov,vcov,ucont,vcont)
   CALL enercin(vcov,ucov,vcont,ucont,ecin)
 
-  !   moment cinétique
+  !   moment cin�tique
   do l=1,llm
      ang(:,:,l)=ucov(:,:,l)+constang(:,:)
@@ -373 +371 @@
   enddo
 
-  !    flux méridien
+  !    flux m�ridien
   !    -------------
   do iQ=1,nQ
@@ -440 +438 @@
 
   !=====================================================================
-  !   Transport méridien
+  !   Transport m�ridien
   !=====================================================================