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

Timestamp:

Jul 19, 2024, 5:41:58 PM (4 months ago)

Author:

abarral

Message:

(lint) Fix obsolete boolean operators

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/bilan_dyn_loc.F (modified) (12 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(:,:,:)
@@ -225 +225 @@
 c   ncum est la frequence de stokage en pas de temps
         ncum=dt_cum/dt_app
-        if (abs(ncum*dt_app-dt_cum).gt.1.e-5*dt_app) then
+        if (abs(ncum*dt_app-dt_cum)>1.e-5*dt_app) then
            WRITE(lunout,*)
      .            'Pb : le pas de cumule doit etre multiple du pas'
@@ -298 +298 @@
       do iQ=1,nQ
          do itr=1,ntr
-            if(itr.eq.1) then
+            if(itr==1) then
                znom(itr,iQ)=nom(iQ)
                znoml(itr,iQ)=nom(iQ)
@@ -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
@@ -406 +406 @@
 c=====================================================================
 c
-      if(icum.EQ.0) then
+      if(icum==0) then
          jjb=jj_begin
          jje=jj_end
@@ -490 +490 @@
       enddo
 
-c    flux méridien
+c    flux m�ridien
 c    -------------
       do iQ=1,nQ
@@ -584 +584 @@
 c   PAS DE TEMPS D'ECRITURE
 c=====================================================================
-      if (icum.eq.ncum) then
+      if (icum==ncum) then
 c=====================================================================
 
@@ -642 +642 @@
 
 c=====================================================================
-c   Transport méridien
+c   Transport m�ridien
 c=====================================================================
 
@@ -778 +778 @@
 c   sorties proprement dites
 !$OMP MASTER      
-      if (i_sortie.eq.1) then
+      if (i_sortie==1) then
       jjb=jj_begin
       jje=jj_end