Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/add_phys_tend_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/add_phys_tend_mod.F90 (modified) (10 diffs)

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

@@ -151 +151 @@
 USE cmp_seri_mod
 USE phys_output_var_mod, ONLY : d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
-  &           , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
+              , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
 
 #ifdef ISO
@@ -330 +330 @@
 #ifdef ISOTRAC
         call iso_verif_traceur_vect(xt_seri,klon,klev, &
-     &           'add_phys_tend 328a: '//text)
+                 'add_phys_tend 328a: '//text)
         call iso_verif_traceur_vect(xtl_seri,klon,klev, &
-     &           'add_phys_tend 328b: '//text)
+                 'add_phys_tend 328b: '//text)
 #endif
 #endif
@@ -396 +396 @@
 #ifdef ISOTRAC
         call iso_verif_traceur_vect(xt_seri,klon,klev, &
-     &           'add_phys_tend 374a: '//text)
+                 'add_phys_tend 374a: '//text)
         call iso_verif_traceur_vect(xtl_seri,klon,klev, &
-     &           'add_phys_tend 374b: '//text)
+                 'add_phys_tend 374b: '//text)
 #endif
 #endif
@@ -527 +527 @@
 #ifdef ISOTRAC
         call iso_verif_traceur_vect(xt_seri,klon,klev, &
-     &           'add_phys_tend 499'//text)
+                 'add_phys_tend 499'//text)
 #endif
 #endif
@@ -562 +562 @@
           print*,'PLANTAGE2 POUR LE POINT i itap lon lat txt jbad zdt t',&
                  i,itap,longitude_deg(i),latitude_deg(i),text,jbad, &
-       &        zdt(i,k),t_seri(i,k)-zdt(i,k)
+                zdt(i,k),t_seri(i,k)-zdt(i,k)
 !!!       if(prt_level.ge.10.and.itap.GE.229.and.i.EQ.3027) THEN 
           print*,'l    T     dT       Q     dQ    '
@@ -580 +580 @@
           print*,'WARNING  : EAU2 POUR LE POINT i itap lon lat txt jqbad zdq q zdql ql',&
                  i,itap,longitude_deg(i),latitude_deg(i),text,jqbad,&
-       &        zdq(i,k), q_seri(i,k)-zdq(i,k), zdql(i,k), ql_seri(i,k)-zdql(i,k)
+                zdq(i,k), q_seri(i,k)-zdq(i,k), zdql(i,k), ql_seri(i,k)-zdql(i,k)
 !!!       if(prt_level.ge.10.and.itap.GE.229.and.i.EQ.3027) THEN 
           print*,'l    T     dT       Q     dQ    '
@@ -686 +686 @@
 USE cmp_seri_mod
 USE phys_output_var_mod, ONLY : d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
-  &           , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
+              , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
 IMPLICIT none
   include "YOMCST.h"
@@ -918 +918 @@
 USE cmp_seri_mod
 USE phys_output_var_mod, ONLY : d_qw_col, d_ql_col, d_qs_col, d_qbs_col, d_qt_col, d_ek_col, d_h_dair_col &
-  &           , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
+              , d_h_qw_col, d_h_ql_col, d_h_qs_col, d_h_qbs_col, d_h_col
 USE phys_local_var_mod, ONLY: evap, sens
 USE phys_local_var_mod, ONLY: u_seri, v_seri, ql_seri, qs_seri, qbs_seri, q_seri, t_seri &
-   &  , rain_lsc, snow_lsc
+      , rain_lsc, snow_lsc
 USE climb_hq_mod, ONLY : d_h_col_vdf, f_h_bnd
 IMPLICIT none
@@ -956 +956 @@
       bilq_bnd = - rain_lsc(1) - snow_lsc(1)
       bilh_bnd = (-(rcw-rcpd)*t_seri(1,1) + rlvtt) * rain_lsc(1) &
-    &         + (-(rcs-rcpd)*t_seri(1,1) + rlstt) * snow_lsc(1)
+              + (-(rcs-rcpd)*t_seri(1,1) + rlstt) * snow_lsc(1)
   CASE("bsss") param
       bilq_bnd = - bs_fall(1)
@@ -963 +963 @@
       bilq_bnd = - rain_con(1) - snow_con(1)
       bilh_bnd = (-(rcw-rcpd)*t_seri(1,1) + rlvtt) * rain_con(1) &
-    &         + (-(rcs-rcpd)*t_seri(1,1) + rlstt) * snow_con(1)
+              + (-(rcs-rcpd)*t_seri(1,1) + rlstt) * snow_con(1)
   CASE("SW") param
       bilh_bnd = topsw(1) - solsw(1)