Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/stratemit.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/phylmd/StratAer/stratemit.F90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/stratemit.F90

@@ -54 +54 @@
     IF (is_mpi_root) THEN
        WRITE(*,*) 'IN STRATEMIT: date from phys_cal_mod=',year_cur,'-',&
-                      &  mth_cur,'-',day_cur,'-',hour,' flh2o=',flh2o
+    mth_cur,'-',day_cur,'-',hour,' flh2o=',flh2o
     ENDIF
 
@@ -75 +75 @@
                 
        IF (  xlat(i)>=latmin-dlat_loc .AND. &
-         &   xlat(i)<latmax+dlat_loc .AND. &
-         &   xlon(i)>=lonmin-dlon .AND. &
-         &   xlon(i)<lonmax+dlon ) THEN
+     xlat(i)<latmax+dlat_loc .AND. &
+     xlon(i)>=lonmin-dlon .AND. &
+     xlon(i)<lonmax+dlon ) THEN
                    !
           WRITE(*,*) 'coordinates of volcanic injection point=',&
-            &    xlat(i),xlon(i),day_cur,mth_cur,year_cur
+      xlat(i),xlon(i),day_cur,mth_cur,year_cur
           WRITE(*,*) 'DD m_emiss_vol_daily=', &
-            &    m_emiss_vol_daily
+      m_emiss_vol_daily
           
           !compute altLMDz
@@ -97 +97 @@
           IF (flag_emit==3) then
              theta=(sin(theta_max/180.*RPI)-sin(theta_min/180.*RPI))/ &
-               & (sin(xlat_max_sai/180.*RPI)-sin(xlat_min_sai/180.*RPI))
+   (sin(xlat_max_sai/180.*RPI)-sin(xlat_min_sai/180.*RPI))
           ELSE
              theta=1.
@@ -108 +108 @@
             ! stretch emission over stretchlong period
             emission=m_emiss_vol_daily/m_air_gridbox(i,k)*f_lay_emiss(k)/stretchlong/ &
-                 &     (86400.-pdt)*theta
+       (86400.-pdt)*theta
             
              IF(flag_verbose_strataer) WRITE(*,*) 'IN STRATEMIT: emission avant/apres', &
-              &  'alt= ', altLMDz(k), &
-              &  'flh2o= ',flh2o, &
-              &  'id_speac= ',id_spec,id_species_total, &
-              &  'emission= ',emission, &
-              &  'pdtphys= ',pdtphys, &
-              &  'rapport m_emiss/m_air*f_lay= ', m_emiss_vol_daily/m_air_gridbox(i,k)*f_lay_emiss(k), &
-              &   'stretchlong= ', stretchlong, &
-              &   'theta= ', theta
+    'alt= ', altLMDz(k), &
+    'flh2o= ',flh2o, &
+    'id_speac= ',id_spec,id_species_total, &
+    'emission= ',emission, &
+    'pdtphys= ',pdtphys, &
+    'rapport m_emiss/m_air*f_lay= ', m_emiss_vol_daily/m_air_gridbox(i,k)*f_lay_emiss(k), &
+     'stretchlong= ', stretchlong, &
+     'theta= ', theta
              
              IF(emission < 1.E-34) emission = 0.0
@@ -124 +124 @@
              IF (flh2o==0) THEN
                 IF(flag_verbose_strataer) WRITE(*,*) 'IN STRATEMIT: tr_ser avant/apres',&
-                  &  'i= ',i,'k= ',k, 'flh2o= ',flh2o, &
-                  &  tr_seri(i,k,id_spec), &
-                  &  tr_seri(i,k,id_spec)+emission*pdtphys
+    'i= ',i,'k= ',k, 'flh2o= ',flh2o, &
+    tr_seri(i,k,id_spec), &
+    tr_seri(i,k,id_spec)+emission*pdtphys
               
                 tr_seri(i,k,id_spec)=tr_seri(i,k,id_spec)+emission*pdtphys
@@ -141 +141 @@
                 
                 IF(flag_verbose_strataer) WRITE(*,*) 'IN STRATEMIT: ',&
-                     &  'i= ',i,'k= ',k, 'flh2o= ',flh2o, &
-                     &  'emission= ',emission, &
-                     &  'd_q_emiss(i,k)= ',d_q_emiss(i,k)
+    'i= ',i,'k= ',k, 'flh2o= ',flh2o, &
+    'emission= ',emission, &
+    'd_q_emiss(i,k)= ',d_q_emiss(i,k)
                 
                 IF(d_q_emiss(i,k) > 1.E34) THEN