Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/lidar_simulator.F90 (modified) (16 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/lidar_simulator.F90

@@ -378 +378 @@
 !     opt. thick of each layer
       tau_mol(:,1:nlev) = alpha_mol(:,1:nlev) &
-         & *(zheight(:,2:nlev+1)-zheight(:,1:nlev))
+   *(zheight(:,2:nlev+1)-zheight(:,1:nlev))
 !     opt. thick from TOA
       DO k = nlev-1, 1, -1
@@ -390 +390 @@
 !       opt. thick of each layer
         tau_part(:,:,i) = tau_part(:,:,i) &
-           & * (zheight(:,2:nlev+1)-zheight(:,1:nlev) )
+   * (zheight(:,2:nlev+1)-zheight(:,1:nlev) )
 !       opt. thick from TOA
         DO k = nlev-1, 1, -1 
@@ -400 +400 @@
 !      Upper layer 
        pmol(:,nlev) = beta_mol(:,nlev) / (2.*tau_mol(:,nlev)) &
-            & * (1.-exp(-2.0*tau_mol(:,nlev)))
+   * (1.-exp(-2.0*tau_mol(:,nlev)))
 !      Other layers
        DO k= nlev-1, 1, -1
@@ -406 +406 @@
         WHERE (tau_mol_lay(:)>0.)
           pmol(:,k) = beta_mol(:,k) * EXP(-2.0*tau_mol(:,k+1)) / (2.*tau_mol_lay(:)) &
-            & * (1.-exp(-2.0*tau_mol_lay(:)))
+   * (1.-exp(-2.0*tau_mol_lay(:)))
         ELSEWHERE
 !         This must never happend, but just in case, to avoid div. by 0
@@ -429 +429 @@
 !     Upper layer 
       pnorm(:,nlev) = betatot(:,nlev) / (2.*tautot(:,nlev)) &
-            & * (1.-exp(-2.0*tautot(:,nlev)))
+   * (1.-exp(-2.0*tautot(:,nlev)))
 
 !     Other layers
@@ -436 +436 @@
         WHERE (tautot_lay(:)>0.)
           pnorm(:,k) = betatot(:,k) * EXP(-2.0*tautot(:,k+1)) / (2.*tautot_lay(:)) &
-               & * (1.-EXP(-2.0*tautot_lay(:)))
+   * (1.-EXP(-2.0*tautot_lay(:)))
         ELSEWHERE
 !         This must never happend, but just in case, to avoid div. by 0
@@ -468 +468 @@
 !     Upper layer
       pnorm_ice(:,nlev) = betatot_ice(:,nlev) / (2.*tautot_ice(:,nlev)) &
-            & * (1.-exp(-2.0*tautot_ice(:,nlev)))
+   * (1.-exp(-2.0*tautot_ice(:,nlev)))
 
       DO k= nlev-1, 1, -1
@@ -474 +474 @@
         WHERE (tautot_lay_ice(:)>0.)
          pnorm_ice(:,k)=betatot_ice(:,k)*EXP(-2.0*tautot_ice(:,k+1))/(2.*tautot_lay_ice(:)) &
-               & * (1.-EXP(-2.0*tautot_lay_ice(:)))
+   * (1.-EXP(-2.0*tautot_lay_ice(:)))
         ELSEWHERE
          pnorm_ice(:,k)=betatot_ice(:,k)*EXP(-2.0*tautot_ice(:,k+1))
@@ -483 +483 @@
 !     Upper layer
       pnorm_liq(:,nlev) = betatot_liq(:,nlev) / (2.*tautot_liq(:,nlev)) &
-            & * (1.-exp(-2.0*tautot_liq(:,nlev)))
+   * (1.-exp(-2.0*tautot_liq(:,nlev)))
 
       DO k= nlev-1, 1, -1
@@ -489 +489 @@
         WHERE (tautot_lay_liq(:)>0.)
           pnorm_liq(:,k)=betatot_liq(:,k)*EXP(-2.0*tautot_liq(:,k+1))/(2.*tautot_lay_liq(:)) &
-               & * (1.-EXP(-2.0*tautot_lay_liq(:)))
+   * (1.-EXP(-2.0*tautot_lay_liq(:)))
         ELSEWHERE
           pnorm_liq(:,k)=betatot_liq(:,k)*EXP(-2.0*tautot_liq(:,k+1))
@@ -510 +510 @@
 !     Upper layer 
       beta_perp_ice(:,nlev) = pnorm_perp_ice(:,nlev) * (2.*tautot_ice(:,nlev)) &
-            & / (1.-exp(-2.0*tautot_ice(:,nlev)))
+   / (1.-exp(-2.0*tautot_ice(:,nlev)))
 
       DO k= nlev-1, 1, -1
@@ -516 +516 @@
         WHERE (tautot_lay_ice(:)>0.)
          beta_perp_ice(:,k) = pnorm_perp_ice(:,k)/ EXP(-2.0*tautot_ice(:,k+1)) * (2.*tautot_lay_ice(:)) &
-            & / (1.-exp(-2.0*tautot_lay_ice(:)))
+   / (1.-exp(-2.0*tautot_lay_ice(:)))
 
         ELSEWHERE
@@ -526 +526 @@
 !     Upper layer 
       beta_perp_liq(:,nlev) = pnorm_perp_liq(:,nlev) * (2.*tautot_liq(:,nlev)) &
-            & / (1.-exp(-2.0*tautot_liq(:,nlev)))
+   / (1.-exp(-2.0*tautot_liq(:,nlev)))
 
       DO k= nlev-1, 1, -1
@@ -532 +532 @@
         WHERE (tautot_lay_liq(:)>0.)
          beta_perp_liq(:,k) = pnorm_perp_liq(:,k)/ max(seuil,EXP(-2.0*tautot_liq(:,k+1))) &
-            & * (2.*tautot_lay_liq(:)) / (1.-exp(-2.0*tautot_lay_liq(:)))
+   * (2.*tautot_lay_liq(:)) / (1.-exp(-2.0*tautot_lay_liq(:)))
 
         ELSEWHERE
@@ -550 +550 @@
           pnorm_perp_tot(:,nlev) = &
               (beta_perp_ice(:,nlev)+beta_perp_liq(:,nlev)-(beta_mol(:,nlev)/(1+1/0.0284))) / (2.*tautot(:,nlev)) &
-              & * (1.-exp(-2.0*tautot(:,nlev)))
+   * (1.-exp(-2.0*tautot(:,nlev)))
     ELSEWHERE
     pnorm_perp_tot(:,nlev) = 0.
@@ -570 +570 @@
                           (beta_perp_ice(:,k)+beta_perp_liq(:,k)-(beta_mol(:,k)/(1+1/0.0284))) * &
                           EXP(-2.0*tautot(:,k+1)) / (2.*tautot_lay(:)) &
-                          & * (1.-EXP(-2.0*tautot_lay(:)))
+   * (1.-EXP(-2.0*tautot_lay(:)))
                     ELSEWHERE
           !         This must never happen, but just in case, to avoid div. by 0