Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/readaerosol_optic.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/readaerosol_optic.F90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/readaerosol_optic.F90

@@ -1 +1 @@
 ! $Id$
-!
+
 SUBROUTINE readaerosol_optic(debut, flag_aerosol, itap, rjourvrai, &
      pdtphys, pplay, paprs, t_seri, rhcl, presnivs, &
@@ -10 +10 @@
 ! 1) recevie the aerosols(already read and interpolated) corresponding to flag_aerosol
 ! 2) calculate the optical properties for the aerosols
-!
-  
+
   USE dimphy
   USE aero_mod
@@ -75 +74 @@
 !****************************************************************************************
 ! 1) Get aerosol mass
-!    
+
 !****************************************************************************************
 ! Read and interpolate sulfate
@@ -141 +140 @@
   ENDIF
 
-!
 ! Store all aerosols in one variable
-!
+
   m_allaer(:,:,id_ASBCM_phy)  = bcsol(:,:)        ! ASBCM
   m_allaer(:,:,id_ASPOMM_phy) = pomsol(:,:)       ! ASPOMM
@@ -172 +170 @@
   m_allaer_pi(:,:,id_CSNO3M_phy) = 0.0
   m_allaer_pi(:,:,id_CINO3M_phy) = 0.0
-!
+
 ! Calculate the total mass of all soluble aersosols
-!
+
   mass_solu_aero(:,:)    = sulfate(:,:)    + bcsol(:,:)    + pomsol(:,:) + ssacu(:,:)
   mass_solu_aero_pi(:,:) = sulfate_pi(:,:) + bcsol_pi(:,:) + pomsol_pi(:,:) + ssacu_pi(:,:)
@@ -180 +178 @@
 !****************************************************************************************
 ! 2) Calculate optical properties for the aerosols
-!
+
 !****************************************************************************************
   DO k = 1, klev