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

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmdiso/climb_hq_mod.F90 (modified) (4 diffs)

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

@@ -574 +574 @@
          if (iso_eau.gt.0) then
            call iso_verif_egalite(xt_old(iso_eau,i,k), &
-    &          q_old(i,k),'climb_hq_mod 421')
+               q_old(i,k),'climb_hq_mod 421')
          endif
 #ifdef ISOTRAC
@@ -692 +692 @@
      if (iso_eau.gt.0) then
         call iso_verif_egalite_vect2D( &
-     &           xt_new,q_new, &
-     &           'climb_hq_mod 504',ntraciso,klon,klev)
+                 xt_new,q_new, &
+                 'climb_hq_mod 504',ntraciso,klon,klev)
      endif !if (iso_eau.gt.0) then
      if ((iso_HDO.gt.0).and.(iso_O18.gt.0)) then  
@@ -700 +700 @@
             if (q_new(i,k).gt.ridicule) then  
                if (iso_verif_o18_aberrant_nostop( &
-     &              xt_new(iso_HDO,i,k)/q_new(i,k), &
-     &              xt_new(iso_O18,i,k)/q_new(i,k), &
-     &              'climb_hq_mod 690').eq.1) then
+                    xt_new(iso_HDO,i,k)/q_new(i,k), &
+                    xt_new(iso_O18,i,k)/q_new(i,k), &
+                    'climb_hq_mod 690').eq.1) then
                   write(*,*) 'i,k,q_new(i,k)=',i,k,q_new(i,k)                       
                   stop
@@ -773 +773 @@
         if (iso_eau.gt.0) then
            call iso_verif_egalite(d_xt(iso_eau,i,k), &
-     &         d_q(i,k),'climb_hq_mod 503') 
+               d_q(i,k),'climb_hq_mod 503')
            call iso_verif_egalite(xt_new(iso_eau,i,k), &
-     &         q_new(i,k),'climb_hq_mod 503b')
+               q_new(i,k),'climb_hq_mod 503b')
         endif
 #ifdef ISOTRAC