Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/concvl.F90

Timestamp:

Jul 20, 2024, 12:00:23 PM (4 months ago)

Author:

abarral

Message:

remove fixed-form ^{\s+& remaining in .f90,.F90}

File:

• LMDZ6/branches/Amaury_dev/libf/phylmdiso/concvl.F90 (modified) (8 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/concvl.F90

@@ -21 +21 @@
                   epmax_diag & ! epmax_cape
 #ifdef ISO
-     &       ,xt,xt_wake,d_xt,xtrain,xtsnow &
-     &       ,xtVprecip,xtVprecipi   &
-     &       ,xtclw,dd_xt,xtevap,xtwdtrainA &
+             ,xt,xt_wake,d_xt,xtrain,xtsnow &
+             ,xtVprecip,xtVprecipi   &
+             ,xtclw,dd_xt,xtevap,xtwdtrainA &
 #ifdef DIAGISO
-     &       , qlp,xtlp,qvp,xtvp & ! juste diagnostique  
-     &       , fq_detrainement,fq_ddft,fq_fluxmasse,fq_evapprecip &
-     &       , fxt_detrainement,fxt_ddft,fxt_fluxmasse,fxt_evapprecip &
-     &       , f_detrainement,q_detrainement,xt_detrainement &
+             , qlp,xtlp,qvp,xtvp & ! juste diagnostique
+             , fq_detrainement,fq_ddft,fq_fluxmasse,fq_evapprecip &
+             , fxt_detrainement,fxt_ddft,fxt_fluxmasse,fxt_evapprecip &
+             , f_detrainement,q_detrainement,xt_detrainement &
 #endif          
 #endif
-     &        ) ! **************************************************************
+              ) ! **************************************************************
 ! *
 ! CONCVL                                                      *
@@ -482 +482 @@
         do i = 1, klon   
           call iso_verif_egalite_choix(xt(iso_eau,i,k),q(i,k), &
-     &            'concvl 174',errmax,errmaxrel) 
+                  'concvl 174',errmax,errmaxrel)
         enddo !do i = 1, klon
        enddo !do k = 1, klev   
@@ -520 +520 @@
                    epmax_diag & ! epmax_cape
 #ifdef ISO
-     &             , xt,d_xt &
-     &             , xtrain,xtVprecip &
-     &             , xtevap,xtclw,xtwdtrainA &
+                   , xt,d_xt &
+                   , xtrain,xtVprecip &
+                   , xtevap,xtclw,xtwdtrainA &
 #ifdef DIAGISO
-     &          , qlp,xtlp,qvp,xtvp & ! juste diagnostique  
-     &          , fq_detrainement,fq_ddft,fq_fluxmasse,fq_evapprecip &
-     &          , fxt_detrainement,fxt_ddft,fxt_fluxmasse,fxt_evapprecip &
-     &          , f_detrainement,q_detrainement,xt_detrainement &
+                , qlp,xtlp,qvp,xtvp & ! juste diagnostique
+                , fq_detrainement,fq_ddft,fq_fluxmasse,fq_evapprecip &
+                , fxt_detrainement,fxt_ddft,fxt_fluxmasse,fxt_evapprecip &
+                , f_detrainement,q_detrainement,xt_detrainement &
 #endif      
 #endif
-     &              )
+                    )
 !           print *, 'cv_driver ->'      !jyg
 
@@ -543 +543 @@
             call iso_verif_egalite(xt_wake(iso_eau,i,k),q_wake(i,k),'concvl 204')
             call iso_verif_egalite(d_xt(iso_eau,i,k),d_q(i,k), &
-     &            'concvl 452')
+                  'concvl 452')
          endif !if (iso_eau.gt.0) then
 #ifdef DIAGISO
@@ -557 +557 @@
            call iso_verif_traceur_vect(xt,klon,klev,'concvl 218')
            call iso_verif_trac_masse_vect(d_xt,klon,klev, &
-     &           'concvl 464',errmax,errmaxrel)
+                 'concvl 464',errmax,errmaxrel)
 #endif            
 #endif
@@ -604 +604 @@
                     epmax_diag & ! epmax_cape
 #ifdef ISO
-     &             ,xt,xt_wake,d_xt, xtrain &
-     &             ,xtvprecip,xtvprecipi &
-     &             ,xtclw,dd_xt,xtevap,xtwdtrainA &
+                   ,xt,xt_wake,d_xt, xtrain &
+                   ,xtvprecip,xtvprecipi &
+                   ,xtclw,dd_xt,xtevap,xtwdtrainA &
 #ifdef DIAGISO     
-     &          , qlp,xtlp,qvp,xtvp &
-     &          , fq_detrainement,fq_ddft,fq_fluxmasse,fq_evapprecip &
-     &          , fxt_detrainement,fxt_ddft,fxt_fluxmasse,fxt_evapprecip &
-     &          , f_detrainement,q_detrainement,xt_detrainement &
+                , qlp,xtlp,qvp,xtvp &
+                , fq_detrainement,fq_ddft,fq_fluxmasse,fq_evapprecip &
+                , fxt_detrainement,fxt_ddft,fxt_fluxmasse,fxt_evapprecip &
+                , f_detrainement,q_detrainement,xt_detrainement &
 #endif      
 #endif
-     &          )      
+                )
   END IF
 ! ------------------------------------------------------------------
@@ -658 +658 @@
              if (q(i,k).gt.ridicule) then
                  call iso_verif_aberrant_encadre((xt(iso_HDO,i,k) &
-     &        +d_xt(iso_HDO,i,k))/(q(i,k)+d_q(i,k)),'concvl 250')
+              +d_xt(iso_HDO,i,k))/(q(i,k)+d_q(i,k)),'concvl 250')
              endif !if (q_seri(i,k).gt.ridicule) then
           endif !if (iso_HDO.gt.0) then 
            if (iso_eau.gt.0) then 
              call iso_verif_egalite_choix(d_xt(iso_eau,i,k), &
-     &          d_q(i,k),'concvl 530',errmax*dtime,errmaxrel)
+                d_q(i,k),'concvl 530',errmax*dtime,errmaxrel)
           endif !if (iso_HDO.gt.0) then 
 #ifdef ISOTRAC
@@ -682 +682 @@
 #ifdef ISOTRAC  
         call iso_verif_traceur_jbid_vect(d_xt, &
-     &            klon,klev)    
+                  klon,klev)
 #endif          
       endif !if ((iso_eau.gt.0).and.(bidouille_anti_divergence)) then